QSPLIT is a simple utility for splitting merged files created by SPAG or QMERGE. A new output file is opened whenever a header record is found in the input file. The new output file name is specified on the header record.
To split up a merged file called spag.out simply type
qsplit spag.out
By default QSPLIT assumes that header records are identified by the four characters !*== or **==. If a different header identifier has been used, it must be specified using the HEAD= keyword.
qsplit spag.out head=**+-
If you omit the name of the input file, QSPLIT assumes it is qmerge.out
!*==input.ftn SUBROUTINE INPUT(X,Y) REAL X,Y READ(*,*) X,Y RETURN END !*==main.ftn PROGRAM MAIN REAL A,B,C CALL INPUT(A,B) CALL PROCESS(A,B,C) CALL OUTPUT(C) STOP 'finished' END !*==output.ftn SUBROUTINE OUTPUT(Z) REAL Z PRINT *,' The answer is ',Z RETURN END !*==process.ftn SUBROUTINE PROCESS(X,Y,Z) REAL X,Y,Z Z = X + Y RETURN END