# 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