ESMF/mytools/print_func.awk

# AWK script to print out END FUNCTION at the end of all the FUNCTIONS.
# For some reason F90 standard specifies this, instead of just END and so 
# some compilers choke if its not there - not sure why anyone would put
# this in the standard!
#
BEGIN{isub=0}
/^      .*[Ff][Uu][Nn][Cc][Tt][Ii][Oo][Nn]/,/^ *[Ee][Nn][Dd] *$/ {printf("%s",$0); isub=1}
/^ *[Ee][Nn][Dd] *$/{if (isub==1){isub=2}}
{ if      ( isub==0 ) {}
  else if ( isub==1 ) {printf("\n")}
  else if ( isub==2 ) {printf(" FUNCTION\n");isub=0;printf(".") | "cat >&2" }
}
END{printf("\n") | "cat >&2"}
1	# AWK script to print out END FUNCTION at the end of all the FUNCTIONS.
2	# For some reason F90 standard specifies this, instead of just END and so
3	# some compilers choke if its not there - not sure why anyone would put
4	# this in the standard!
5	#
6	BEGIN{isub=0}
7	/^ .[Ff][Uu][Nn][Cc][Tt][Ii][Oo][Nn]/,/^ [Ee][Nn][Dd] *$/ {printf("%s",$0); isub=1}
8	/^ [Ee][Nn][Dd] $/{if (isub==1){isub=2}}
9	{ if ( isub==0 ) {}
10	else if ( isub==1 ) {printf("\n")}
11	else if ( isub==2 ) {printf(" FUNCTION\n");isub=0;printf(".") \| "cat >&2" }
12	}
13	END{printf("\n") \| "cat >&2"}