:**************************************************************************O:* *:* DIVPGM (DATED 90053) *(:* *E2:* *** SEE UTILITY SECTION OF SCRAM BBS *** *<:* *F:* 919-541-5742 *;P:* *Z:**************************************************************************d:n: INTRODUCTIONx: THIS PROGRAM WAS DESIGNED AS A QUICK AND EASY METHOD OF SEPARATING_ FORTRAN SOURCE CODE INTO ITS SUBROUTINES BY DETECTING AN 'END' STATEMENT. WHEN AN END STATEMENT IS DETECTED, THE OLD OUTPUT FILE IS CLOSED AND A SEARCH IS BEGUN IN THE NEXT LINE OR LINES OF CODE FOR@ THE WORD: SUBROUTINE, FUNCTION OR BLOCK. IF THE WORD BLOCK IS READ, THE NEW OUTPUT FILE IS CALLED BLOCK.FOR. IF THE WORD SUBROUTINE OR FUNCTION IS FOUND, THE REST OF THE LINE IS SEARCHED FOR THE SUBROUTINE OR FUNCTION NAME. THAT NAME IS USED IN OPENING A NEW^ OUTPUT FILE WITH A .FOR EXTENTION. NEW LINES OF CODE ARE THEN READ FROM THE SOURCE CODE FILE AND WRITTEN TO THE NEW FILE ALONG WITH THE SUBROUTINE, FUNCTION OR BLOCK LINE. THIS CYCLE CONTINUES UNTIL THEA PROGRAM TERMINATES WHEN AN 'END OF FILE' IS DETECTED OR WHEN AN ERRORg OCCURS DURING DISK OPERATIONS.m THIS PROGRAM CAN SPLIT A 625 KILOBYTE FORTRAN PROGRAM INTO 60 SUBROUTINES IN LESS THAN 4 MINUTES ON A 12 Mhz IBM-PC/AT COMPATIBLE." ,6U@ "ENTER THE NAME OF THE FILE TO BE DIVIDED :", OFN$J "ENTER THE FULL PATH NAME FOR THE OUTPUT FILES :", PTH$T (PTH$,) "\" PTH$ "\" PTH$^ PTH$h "ENTER THE NAME OF THE FILE TO BE WRITTEN TO FIRST :", AN$Sr "ENTER THE NAME OF THE FILE FOR STORING FILENAMES :", SFN$Y|"DO YOU WANT TO SEE THE SOURCE CODE LINES AS THEY ARE READ (Y/N)";Q$ Q$ "Y" Q$ "y" Q  :  Q$ "N" Q$ "n" Q  :    / "I", , OFN$B "O", , AN$V "O", , SFN$f #, AN$v #, L$ Q L$ LTH (L$) LTH   (L$,) " "  (L$,LTH) (LTH)  I  LTH4& (L$,I,) " " bW0 (L$,I,) "E" |: (L$,I,) "END" D ((I) LTH) vN (LTH I (L$,I,LTHI ) (LTHI)) vX (LTH H (L$,I,(HI)) (HI)) v$b I/l >v #, L$I #W #,L$i Q L${ LTH (L$) LTH   (L$,) " "  LTH I L$ (LTH)  LTH H (L$,H) (H) ! I  C (L$,I,) " " R (L$,I, ) "SUBROUTINE" CODE I  :  (L$,I,) "FUNCTION" CODE I  :  (L$,I,) "BLOCK" R AN$ "BLOCK.FOR"  CODE I  + CODE LTH D  J CODE LTH^* J H 4 (L$,J,) " " > JH R I\ :" A SUBROUTINE, FUNCTION NOR A BLOCK STATEMENT COULD BE "; f "FOUND AFTER A BONAFIDE"Hp "END STATEMENT. THE FOLLOWING IS THE LAST LINE READ:"Sz L$\ } FIND AND CREATE A FILENAME I CODE LTH (L$,I,) " "  I J I LTH (L$,J,) " "  (L$,J,) "("  J<AN$ (L$,I,JI) ".FOR"O "O", #, AN$^ #, AN$l #, L$v }