ESMF/mytools/print_sub.awk

# AWK script used to print out "END SUBROUTINE" at the end of all the SUBROUTINES in
# a module instead of just "END". Who put this in the F90 and standard and why. I wonder?
#
BEGIN{isub=0}
/^  *[Ss][Uu][Bb][Rr][Oo][Uu][Tt][Ii][Nn][Ee]/,/^ *[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(" SUBROUTINE\n");isub=0;printf(".") | "cat >&2"}
}
END{printf("\n") | "cat >&2"}
1	cnh	1.1	# AWK script used to print out "END SUBROUTINE" at the end of all the SUBROUTINES in
2			# a module instead of just "END". Who put this in the F90 and standard and why. I wonder?
3			#
4			BEGIN{isub=0}
5			/^ [Ss][Uu][Bb][Rr][Oo][Uu][Tt][Ii][Nn][Ee]/,/^ [Ee][Nn][Dd] *$/ {printf("%s",$0); isub=1}
6			/^ [Ee][Nn][Dd] $/{if (isub==1){isub=2}}
7			{ if ( isub==0 ) {}
8			else if ( isub==1 ) {printf("\n")}
9			else if ( isub==2 ) {printf(" SUBROUTINE\n");isub=0;printf(".") \| "cat >&2"}
10			}
11			END{printf("\n") \| "cat >&2"}