Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0100/for03.dat
There are no other files named for03.dat in the archive.
1             HISTORY OF CARD REPLACEMENT
0REPLACEMENT :C                               1/79                                    CF0 0020
 REPLACED    :C                               1/79                                    CF0 0020
0REPLACEMENT :C ***       PROGRAM CURRENTLY DIMENSIONED FOR 105 MAX VARIABLES         CF0 0030
 REPLACED    :C ***       PROGRAM CURRENTLY DIMENSIONED FOR 65 MAX VARIABLES          CF0 0030
0REPLACEMENT :C --- BEFORE TRANSFORMATIONS, 80 VARIABLES AFTER TRANSFORMATIONS,       CF0 0040
 REPLACED    :C --- BEFORE TRANSFORMATIONS, 40 VARIABLES AFTER TRANSFORMATIONS,       CF0 0040
0REPLACEMENT :C --- 1000 OBSERVATIONS,  COMPONENT EFFECTS TABLE = (VARIABLES X        CF0 0050
 REPLACED    :C --- 1000 OBSERVATIONS,  COMPONENT EFFECTS TABLE = (VARIABLES X        CF0 0050
0REPLACEMENT :C --- OBSERVATIONS) = 25,922, 8 FORMAT CARDS, 5 DELETE OBSERVATIONS     CF0 0060
 REPLACED    :C --- OBSERVATIONS) = 6,562, 8 FORMAT CARDS, AND 5 DELETE OBSERVATIONS  CF0 0060
0REPLACEMENT :      DIMENSION STDDEV(80)                                              CF0 2330
 REPLACED    :      DIMENSION STDDEV(40)                                              CF0 2330
0REPLACEMENT :      COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE        CF0 2360
 REPLACED    :      COMMON /HHHHHH/ BETA(41), C(40,40), Z(41,41), NNNN, MXSIZE        CF0 2360
0REPLACEMENT :      SUBROUTINE BASPGM(N77,M10,ITON)                                   CF1 0010
 REPLACED    :      SUBROUTINE BASPGM(N77,M10,ITON)                                   CF1 0010
0REPLACEMENT :      DIMENSION AVATR(105), DATA(106), FMT(144), IOMIT(105), ITLOC(105) CF1 0130
 REPLACED    :      DIMENSION AVATR( 65), DATA( 66), FMT(144), IOMIT( 65), ITLOC( 65) CF1 0130
0REPLACEMENT :      COMMON /FFFFFF/ VARTR(105), ITRFM(105)                            CF1 0200
 REPLACED    :      COMMON /FFFFFF/ VARTR( 65), ITRFM( 65)                            CF1 0200
0REPLACEMENT :      COMMON /GGGGGG/ BI(105), EQU(144)                                 CF1 0210
 REPLACED    :      COMMON /GGGGGG/ BI(65), EQU(144)                                  CF1 0210
0REPLACEMENT :      COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE        CF1 0220
 REPLACED    :      COMMON /HHHHHH/ BETA(41), C(40,40), Z(41,41), NNNN, MXSIZE        CF1 0220
0REPLACEMENT :      MXVRBT = 105                                                      CF1 0560
 REPLACED    :      MXVRBT = 65                                                       CF1 0560
0REPLACEMENT :      SUBROUTINE STAT(ISIZE,IRTRN)                                      CF2 0010
 REPLACED    :      SUBROUTINE STAT(ISIZE,IRTRN)                                      CF2 0010
0REPLACEMENT :      DIMENSION AMAX(80), AMIN(80), AVATR(105), AVG(80), B(80),         CF2 0110
 REPLACED    :      DIMENSION AMAX(40), AMIN(40), AVATR( 65), AVG(40), B(40),         CF2 0110
0REPLACEMENT :     1          DATA(106), FMT(144), IOMIT(105), ITLOC(105),            CF2 0120
 REPLACED    :     1          DATA(66), FMT(144), IOMIT(65), ITLOC(65),               CF2 0120
0REPLACEMENT :     2          SIGMA(80), STDDEV(80), W1(80)                           CF2 0130
 REPLACED    :     2          SIGMA(40), STDDEV(40), W1(40)                           CF2 0130
0REPLACEMENT :      COMMON /FFFFFF/ VARTR(105), ITRFM(105)                            CF2 0180
 REPLACED    :      COMMON /FFFFFF/ VARTR( 65), ITRFM( 65)                            CF2 0180
0REPLACEMENT :      COMMON /GGGGGG/ BI(105), EQU(144)                                 CF2 0200
 REPLACED    :      COMMON /GGGGGG/ BI(65), EQU(144)                                  CF2 0200
0REPLACEMENT :      COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE        CF2 0210
 REPLACED    :      COMMON /HHHHHH/ BETA(41), C(40,40), Z(41,41), NNNN, MXSIZE        CF2 0210
0REPLACEMENT :      SUBROUTINE FIT(DE,MAXINF,NBSV,ISIZE,IRTRN)                        CF3 0010
 REPLACED    :      SUBROUTINE FIT(DE,MAXINF,NBSV,ISIZE,IRTRN)                        CF3 0010
0REPLACEMENT :      DIMENSION AMAX(80), AMIN(80), AVG(80), B(80), D(80),              CF3 0100
 REPLACED    :      DIMENSION AMAX(40), AMIN(40), AVG(40), B(40), D(40),              CF3 0100
0REPLACEMENT :     2          IDRS2(1000), IOMIT(105), JSORT(1000), RELINF(80),       CF3 0120
 REPLACED    :     2          IDRS2(1000), IOMIT( 65), JSORT(1000), RELINF(40),       CF3 0120
0REPLACEMENT :     3          SIGMA(80), STDDEV(80), TVALUE(80), VAR(80), W1(80),     CF3 0130
 REPLACED    :     3          SIGMA(40), STDDEV(40), TVALUE(40), VAR(40), W1(40),     CF3 0130
0REPLACEMENT :     4          XXIN(1000), YRESID(80), YYCC(1000), YYIN(1000)          CF3 0140
 REPLACED    :     4          XXIN(1000), YRESID(40), YYCC(1000), YYIN(1000)          CF3 0140
0REPLACEMENT :      COMMON /FFFFFF/ VARTR(105), ITRFM(105)                            CF3 0220
 REPLACED    :      COMMON /FFFFFF/ VARTR( 65), ITRFM( 65)                            CF3 0220
0REPLACEMENT :      COMMON /GGGGGG/ BI(105), EQU(144)                                 CF3 0240
 REPLACED    :      COMMON /GGGGGG/ BI(65), EQU(144)                                  CF3 0240
0REPLACEMENT :      COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE        CF3 0250
 REPLACED    :      COMMON /HHHHHH/ BETA(41), C(40,40), Z(41,41), NNNN, MXSIZE        CF3 0250
0REPLACEMENT :      SUBROUTINE REDATA                                                 CF4 0010
 REPLACED    :      SUBROUTINE REDATA                                                 CF4 0010
0REPLACEMENT :      DIMENSION AVATR(105), DATA(106), FMT(144), IOMIT(105), ITLOC(105) CF4 0240
 REPLACED    :      DIMENSION AVATR( 65), DATA( 66), FMT(144), IOMIT( 65), ITLOC( 65) CF4 0240
0REPLACEMENT :      COMMON /FFFFFF/ VARTR(105), ITRFM(105)                            CF4 0300
 REPLACED    :      COMMON /FFFFFF/ VARTR( 65), ITRFM( 65)                            CF4 0300
0REPLACEMENT :      COMMON /GGGGGG/ BI(105), EQU(144)                                 CF4 0310
 REPLACED    :      COMMON /GGGGGG/ BI(65), EQU(144)                                  CF4 0310
0REPLACEMENT :      COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE        CF4 0320
 REPLACED    :      COMMON /HHHHHH/ BETA(41), C(40,40), Z(41,41), NNNN, MXSIZE        CF4 0320
0REPLACEMENT :      SUBROUTINE TRANSF                                                 CF5 0010
 REPLACED    :      SUBROUTINE TRANSF                                                 CF5 0010
0REPLACEMENT :      DIMENSION AVATR(105), DATA(106), IOMIT(105), ITLOC(105)           CF5 0060
 REPLACED    :      DIMENSION AVATR( 65), DATA( 66), IOMIT( 65), ITLOC( 65)           CF5 0060
0REPLACEMENT :      COMMON /FFFFFF/ VARTR(105), ITRFM(105)                            CF5 0090
 REPLACED    :      COMMON /FFFFFF/ VARTR( 65), ITRFM( 65)                            CF5 0090
0REPLACEMENT :      SUBROUTINE INV                                                    CF6 0010
 REPLACED    :      SUBROUTINE INV                                                    CF6 0010
0REPLACEMENT :      DIMENSION C(80), LP(80)                                           CF6 0180
 REPLACED    :      DIMENSION C(40), LP(40)                                           CF6 0180
0REPLACEMENT :      COMMON /HHHHHH/ BETA(81), A(80,80), Z(81,81), N, MXSIZE           CF6 0200
 REPLACED    :      COMMON /HHHHHH/ BETA(41), A(40,40), Z(41,41), N, MXSIZE           CF6 0200
0REPLACEMENT :      SUBROUTINE YBACK (KQ, ZBAK)                                       CF8 0010
 REPLACED    :      SUBROUTINE YBACK (KQ, ZBAK)                                       CF8 0010
0REPLACEMENT :      COMMON /FFFFFF/ VARTR(105), ITRFM(105)                            CF8 0060
 REPLACED    :      COMMON /FFFFFF/ VARTR( 65), ITRFM( 65)                            CF8 0060
0REPLACEMENT :      SUBROUTINE PITCHA(YCMAX,YCMIN,X,MAXINF,NBSV,ISIZE)                CF9 0010
 REPLACED    :      SUBROUTINE PITCHA(YCMAX,YCMIN,X,MAXINF,NBSV,ISIZE)                CF9 0010
0REPLACEMENT :      DIMENSION AMAX(80), AMIN(80), B(80), COMPR(1000), DELTA(1000),    CF9 0090
 REPLACED    :      DIMENSION AMAX(40), AMIN(40), B(40), COMPR(1000), DELTA(1000),    CF9 0090
0REPLACEMENT :      COMMON /GGGGGG/ BI(105), EQU(144)                                 CF9 0160
 REPLACED    :      COMMON /GGGGGG/ BI(65), EQU(144)                                  CF9 0160
0REPLACEMENT :      COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE        CF9 0170
 REPLACED    :      COMMON /HHHHHH/ BETA(41), C(40,40), Z(41,41), NNNN, MXSIZE        CF9 0170
0REPLACEMENT :      SUBROUTINE CPMAIN(ZMS)                                            CF120010
 REPLACED    :      SUBROUTINE CPMAIN(ZMS)                                            CF120010
0REPLACEMENT :      DIMENSION AVAR(80), CP(1000), INOUT(80), IP(1000), IS(40),        CF120810
 REPLACED    :      DIMENSION AVAR(40), CP(1000), INOUT(40), IP(1000), IS(40),        CF120810
0REPLACEMENT :     1          IVAR(80), IVGT(80), IVLT(80), TVALUE(80)                CF120820
 REPLACED    :     1          IVAR(40), IVGT(40), IVLT(40), TVALUE(40)                CF120820
0REPLACEMENT :      COMMON /GGGGGG/ BI(105), EQU(144)                                 CF120910
 REPLACED    :      COMMON /GGGGGG/ BI(65), EQU(144)                                  CF120910
0REPLACEMENT :      COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE        CF120920
 REPLACED    :      COMMON /HHHHHH/ BETA(41), C(40,40), Z(41,41), NNNN, MXSIZE        CF120920
0REPLACEMENT :      SUBROUTINE SWEEP(JOY,SIGN,KSEQP1,NVLTP1)                          CF130010
 REPLACED    :      SUBROUTINE SWEEP(JOY,SIGN,KSEQP1,NVLTP1)                          CF130010
0REPLACEMENT :      DIMENSION U(81)                                                   CF130110
 REPLACED    :      DIMENSION U(41)                                                   CF130110
0REPLACEMENT :      COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE        CF130120
 REPLACED    :      COMMON /HHHHHH/ BETA(41), C(40,40), Z(41,41), NNNN, MXSIZE        CF130120
0REPLACEMENT :      SUBROUTINE TRANPT                                                 CF160010
 REPLACED    :      SUBROUTINE TRANPT                                                 CF160010
0REPLACEMENT :      DIMENSION AVATR(105), IOMIT(105), ITLOC(105)                      CF160070
 REPLACED    :      DIMENSION AVATR(65), IOMIT(65), ITLOC(65)                         CF160070
0REPLACEMENT :      DIMENSION ARRAY(21,6), DRRAY(4), ERRAY(105)                       CF160080
 REPLACED    :      DIMENSION ARRAY(21,6), DRRAY(4), ERRAY(70)                        CF160080
0REPLACEMENT :      COMMON /FFFFFF/ VARTR(105), ITRFM(105)                            CF160100
 REPLACED    :      COMMON /FFFFFF/ VARTR(65), ITRFM(65)                              CF160100
0REPLACEMENT :      COMMON /GGGGGG/ BI(105), EQU(144)                                 CF160110
 REPLACED    :      COMMON /GGGGGG/ BI(65), EQU(144)                                  CF160110
0REPLACEMENT :C --- ARRAY OF NUMBERS FROM 1 TO 105.                                   CF160620
 REPLACED    :C --- ARRAY OF NUMBERS FROM 1 TO 70                                     CF160620
0REPLACEMENT :     6           2H61,2H62,2H63,2H64,2H65,2H66,2H67,2H68,2H69,2H70,     CF160700
 REPLACED    :     6           2H61,2H62,2H63,2H64,2H65,2H66,2H67,2H68,2H69,2H70/     CF160700
0REPLACEMENT :     7           2H71,2H72,2H73,2H74,2H75,2H76,2H77,2H78,2H79,2H80,     CF160710
 REPLACED    :C    7           2H71,2H72,2H73,2H74,2H75,2H76,2H77,2H78,2H79,2H80,     CF160710
0REPLACEMENT :     8           2H81,2H82,2H83,2H84,2H85,2H86,2H87,2H88,2H89,2H90,     CF160720
 REPLACED    :C    8           2H81,2H82,2H83,2H84,2H85,2H86,2H87,2H88,2H89,2H90,     CF160720
0REPLACEMENT :     9           2H91,2H92,2H93,2H94,2H95,2H96,2H97,2H98,2H99,3H100,    CF160730
 REPLACED    :C    9           2H91,2H92,2H93,2H94,2H95,2H96,2H97,2H98,2H99,3H100,    CF160730
0REPLACEMENT :     1           3H101,3H102,3H103,3H104,3H105/                         CF160740
 REPLACED    :C    1           3H101,3H102,3H103,3H104,3H105/                         CF160740
0END OF UPDATE



0NO MATCH FOR:C ---   END OF REPLACEMENT CARDS TO CHANGE PROGRAM TO 105 MAX VARIABLES