CTITL LINEMRGE.FTN - MERGE FILES OF SPLIT LINES
      CHARACTER*12 FNAME
      CHARACTER*96 LINE
      OPEN(UNIT=4,FILE='mag.ndx')
C OPEN THE FILE CONTAINING THE LIS TOF FILES TO JOIN
      OPEN(UNIT=7,FILE='mag.ldt')
C OPEN THE OUTPUT FILE
   10 READ(4,100,END=40) FNAME
  100 FORMAT(A12)
      OPEN(UNIT=2,FILE=FNAME)
   20 READ(2,200,END=25) LINE
  200 FORMAT(A96)
      WRITE(7,201) LINE
  201 FORMAT(A96)
      GOTO 20
C COPY
   25 CONTINUE
      CLOSE(UNIT=2)
      GOTO 10
C
   40 CONTINUE
      CLOSE(UNIT=7,STATUS='KEEP')
      END
