#  this script file may be used to break monster fortran programs into
#  individual files.  To use, simply type
#
#  breakup fortfile [>main]
#
#  breakup will place each function and subroutine on a file with the
#  same name and the extension .qq.  If a main program appears
#  at the beginning of the file, it will be placed on standard output.
#
tr <$1 A-Z a-z |@
ch "%[!#c][!#]*subroutine" "%[!#c][!#]*function" "%?*$"  "#-h- &@n&" |@
ch "%#-h-" "@- ?*subroutine" "@- " |@
ch "%#-h-" "@- ?*function" "@- " | asplit -v -t.qq