Trailing-Edge
-
PDP-10 Archives
-
decuslib20-05
-
decus/20-0137/linupd.f4
There is 1 other file named linupd.f4 in the archive. Click here to see a list.
DIMENSION INPUT1(72),INPUT2(72),IM1(2),IM2(2)
1 CONTINUE
C
C READ FIRST UPDATE RECORD
C
READ(1,1000) INPUT1,IM1
1000 FORMAT(72A1,2A4)
2 CONTINUE
READ(20,1000,END=900) INPUT2,IM2
IF(IM1(1) .NE. IM2(1)) GO TO 500
IF(IM1(2) .NE. IM2(2)) GO TO 500
C
C FOUND RECORD TO BE REPLACED
C
WRITE(3,1001)INPUT1,IM1,INPUT2,IM2
1001 FORMAT(
*' REPLACEMENT :',72A1,2A4,/,' REPLACED :',72A1,2A4,/)
WRITE(23,1000) INPUT1,IM1
READ(1,1000,END=800) INPUT1,IM1
GO TO 2
500 CONTINUE
WRITE(23,1000) INPUT2,IM2
GO TO 2
800 CONTINUE
WRITE(3,1002)
1002 FORMAT(' END OF UPDATE',///)
STOP
900 CONTINUE
READ(1,1000,END=950) INPUT1,IM1
WRITE(3,1000) INPUT1,IM1
1010 FORMAT(' NO MATCH FOR:',72A1,2A4)
GO TO 900
950 STOP
END