6 QSPLIT

6.1 Use of QSPLIT

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

6.2 Example of Merged File

  !*==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