C --- LINCUR.UPD UPD 0001
C --- PROGRAM TO INSERT REPLACEMENT CARDS TO CHANGE DIMENSIONS AND UPD 0010
C --- CORE REQUIREMENTS OF ORIGINAL CURVE FITTING PROGRAM. UPD 0020
C --- PROGRAM WRITTEN BY R.F.KOHM, REVISED BY F.S.WOOD. UPD 0030
C UPD 0040
C NOTE THE LAST CARD IN EACH REPLACEMENT CARD FILE STATES THAT IT UPD 0050
C IS THE END OF THAT FILES REPLACEMENT CARDS. UPD 0060
C UPD 0070
DIMENSION INPUT1(72),INPUT2(72),IM1(2),IM2(2) UPD 0080
C --- KRPL = FILE NUMBER OF REPLACEMENT CARDS UPD 0090
KRPL = 1 UPD 0100
C --- KORG = FILE NUMBER OF ORIGIONAL PROGRAM UPD 0110
KORG = 20 UPD 0120
C --- KPRN = FILE NUMBER OF PRINTOUT UPD 0130
KPRN = 3 UPD 0140
C --- KNEW = PUNCH OR FILE NUMBER OF NEW PROGRAM UPD 0150
KNEW = 23 UPD 0160
1 CONTINUE UPD 0170
WRITE(KPRN,100) UPD 0180
100 FORMAT(1H1,13X,27HHISTORY OF CARD REPLACEMENT ) UPD 0190
C UPD 0200
C READ FIRST UPDATE RECORD UPD 0210
C UPD 0220
READ(KRPL,1000) INPUT1,IM1 UPD 0230
1000 FORMAT(72A1,2A4) UPD 0240
2 CONTINUE UPD 0250
READ(KORG,1000,END=900) INPUT2,IM2 UPD 0260
IF(IM1(1) .NE. IM2(1)) GO TO 500 UPD 0270
IF(IM1(2) .NE. IM2(2)) GO TO 500 UPD 0280
C UPD 0290
C FOUND RECORD TO BE REPLACED UPD 0300
C UPD 0310
WRITE(KPRN,1001)INPUT1,IM1,INPUT2,IM2 UPD 0320
1001 FORMAT(1H0,13HREPLACEMENT :,72A1,2A4 / UPD 0330
1 1X,13HREPLACED :,72A1,2A4 ) UPD 0340
WRITE(KNEW,1000) INPUT1,IM1 UPD 0350
READ(KRPL,1000,END=800) INPUT1,IM1 UPD 0360
GO TO 2 UPD 0370
500 CONTINUE UPD 0380
WRITE(KNEW,1000) INPUT2,IM2 UPD 0390
GO TO 2 UPD 0400
800 CONTINUE UPD 0410
WRITE(KPRN,1002) UPD 0420
1002 FORMAT(1H0,45HEND OF REPLACEMENT CARDS, UPDATE NOT COMPLETE,///) UPD 0430
STOP UPD 0440
900 WRITE(KPRN,1004) UPD 0450
1004 FORMAT(1H0,13HEND OF UPDATE,///) UPD 0460
910 WRITE(KPRN,1010) INPUT1,IM1 UPD 0470
1010 FORMAT(1H0,13HNO MATCH FOR:,72A1,2A4) UPD 0480
READ(KRPL,1000,END=950) INPUT1,IM1 UPD 0490
GO TO 910 UPD 0500
950 STOP UPD 0510
END UPD 0520