C MAKELDT.F - MAKE ONE LDT FORM THE TWO BASS BASIN LDTS FOR T/RL1
      INTEGER*4 LINE1,FID1,LINE2,FID2,IDATE
      REAL*8 MAGLEV,MAGWELL,TIME
      CHARACTER*41 CHAR1
      CHARACTER*19 CHAR2
C
      OPEN(UNIT=3,FILE='tape1.ldt',READONLY)
      OPEN(UNIT=4,FILE='tape2.ldt',READONLY)
C INPUTS
      OPEN(UNIT=8,FILE='/mdata7/proc/sagasco/trl1/mag.dat')
C OUTPUT
   10 READ(3,100,END=20) LINE1,FID1,CHAR1,MAGLEV,MAGWELL
  100 FORMAT(I6,I7,A41,61X,F9.3,1X,F9.3)
C
      READ(4,101) LINE2,FID2,CHAR2,IDATE,TIME
  101 FORMAT(I6,I7,21X,A19,I4,4X,F9.1)
C
      IF ((LINE1 .NE. LINE2) .OR. (FID1 .NE. FID2)) GOTO 10
C CHECK SAME DATA
      IF (CHAR1(2:2) .EQ. '9') GOTO 10
C DUMMY COORDS
      IDATE=IDATE+94000
C ADD YEAR
      WRITE(8,200) LINE1,FID1,CHAR1,CHAR2,IDATE,TIME,MAGLEV,MAGWELL
  200 FORMAT(I6,I8,1X,A41,1X,A19,I6,F9.1,2F10.3)
      GOTO 10
C
   20 CONTINUE
      STOP
      END