Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50402/nonlin.upd
There are 2 other files named nonlin.upd in the archive. Click here to see a list.
C --- NONLIN.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