Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0100/1081.rpl
There is 1 other file named 1081.rpl in the archive. Click here to see a list.
C                               1/81                                    CF0 0020
C ***       PROGRAM CURRENTLY DIMENSIONED FOR 35 MAX VARIABLES          CF0 0030
C --- BEFORE TRANSFORMATIONS, 10 VARIABLES AFTER TRANSFORMATIONS,       CF0 0040
C --- 200 OBSERVATIONS,  COMPONENT EFFECTS TABLE = (VARIABLES X         CF0 0050
C --- OBSERVATIONS) = 442, 2 FORMAT CARDS, 2 DELETE OBSERVATIONS        CF0 0060
C --- CARDS AND 2 INDICATOR-VARIABLE-OBSERVATIONS CARDS.                CF0 0061
C ---   45  22  NUMBER OF FORMAT CARDS IF GREATER THAN 1. (2 MAX.)      CF0 0940
C ---            BY COMPUTER USING 7(I4,6X) FORMAT.  2 CARDS MAXIMUM.   CF0 1303
C ---            2 CARDS MAXIMUM.                                       CF0 1308
      DIMENSION STDDEV(10)                                              CF0 2330
      COMMON /CCCCCC/ COM3( 36)                                         CF0 2340
      COMMON /HHHHHH/ BETA(11), C(10,10), Z(11,11), NNNN, MXSIZE        CF0 2360
      EQUIVALENCE (COM3( 21),STDDEV(1))                                 CF0 2410
      DIMENSION AVATR( 35), DATA( 36), FMT( 36), IOMIT( 35), ITLOC( 35) CF1 0130
      COMMON /AAAAAA/ COM1( 200)                                        CF1 0150
      COMMON /BBBBBB/ COM2( 47)                                         CF1 0160
      COMMON /CCCCCC/ COM3( 36)                                         CF1 0170
      COMMON /DDDDDD/ COM4(1578)                                        CF1 0180
      COMMON /EEEEEE/ LSORT( 200)                                       CF1 0190
      COMMON /FFFFFF/ VARTR( 35), ITRFM( 35)                            CF1 0200
      COMMON /GGGGGG/ BI(35), EQU(144)                                  CF1 0210
      COMMON /HHHHHH/ BETA(11), C(10,10), Z(11,11), NNNN, MXSIZE        CF1 0220
      COMMON /LLLLLL/ XEFMT, JOMIT(14), JIVOS(14), JIV(14), NOMIT,      CF1 0250
      COMMON /SSSSSS/ ICP(10), MAXICP, MAXLBS, MINLBS, MAXCPS, MINCPS   CF1 0340
C ---          EQUIVALENCE STATEMENTS IN CF 1, 2 AND 5 (IOMIT ALSO IN 3)CF1 0350
      EQUIVALENCE (COM1(1),AVATR(1)), (COM1( 36),ITLOC(1)),             CF1 0360
     1            (COM1( 71),IOMIT(1))                                  CF1 0370
      MXVRBT = 35                                                       CF1 0560
      MXOBSV = 200                                                      CF1 0640
      MXFMTC = 2                                                        CF1 0720
      MNOMTC = 2                                                        CF1 0744
      MNIVOC = 2                                                        CF1 0748
      MAXCPS = 10                                                       CF1 0757
      MAXLBS = 10                                                       CF1 0766
      MINCPS = 10                                                       CF1 0773
      MINLBS = 10                                                       CF1 0783
      MAXICP = 10                                                       CF1 0792
      DIMENSION AMAX(10), AMIN(10), AVATR( 35), AVG(10), B(10),         CF2 0110
     1          DATA( 36), FMT( 36), IOMIT( 35), ITLOC( 35),            CF2 0120
     2          SIGMA(10), STDDEV(10), W1(10)                           CF2 0130
      COMMON /AAAAAA/ COM1( 200)                                        CF2 0150
      COMMON /BBBBBB/ COM2( 47)                                         CF2 0160
      COMMON /CCCCCC/ COM3( 36)                                         CF2 0170
      COMMON /FFFFFF/ VARTR( 35), ITRFM( 35)                            CF2 0180
      COMMON /GGGGGG/ BI(35), EQU(144)                                  CF2 0200
      COMMON /HHHHHH/ BETA(11), C(10,10), Z(11,11), NNNN, MXSIZE        CF2 0210
      COMMON /LLLLLL/ XEFMT, JOMIT(14), JIVOS(14), JIV(14), NOMIT,      CF2 0240
      COMMON /TTTTTT/ NOPLOT(10)                                        CF2 0331
C ---          EQUIVALENCE STATEMENTS IN CF 1, 2 AND 5 (IOMIT ALSO IN 3)CF2 0340
      EQUIVALENCE (COM1(1),AVATR(1)), (COM1( 36),ITLOC(1)),             CF2 0350
     1            (COM1( 71),IOMIT(1))                                  CF2 0360
C ---          EQUIVALENCE STATEMENTS IN CF 1 AND 2                     CF2 0370
      EQUIVALENCE (COM2(1),DATA(1)), (COM2( 37),B(1))                   CF2 0380
      EQUIVALENCE (COM3(1),FMT(1))                                      CF2 0390
C ---          EQUIVALENCE STATEMENTS IN CF 2 AND 3                     CF2 0400
      EQUIVALENCE (COM1(1),AMAX(1)), (COM1(11),AMIN(1)),                CF2 0410
     1        (COM1( 21),W1(1))                                         CF2 0420
      EQUIVALENCE (COM3(1),AVG(1)), (COM3(11),SIGMA(1)),                CF2 0430
     1            (COM3( 21),STDDEV(1))                                 CF2 0440
      B(10) = Z(1,1)                                                    CF2 3810
      DOUBLE PRECISION IDZA( 200)                                       CF3 0090
      REAL*4 DE(NBSV,ISIZE), STUDNR( 200)                               CF3 0091
      DIMENSION AMAX(10), AMIN(10), AVG(10), B(10), D(10),              CF3 0100
     1          DELSD( 200), DELTA( 200), DELYN( 200), IDRS1( 200),     CF3 0110
     2          IDRS2( 200), IOMIT( 35), JSORT( 200), RELINF(10),       CF3 0120
     3          RISQRD(10), SIGB(10), SIGMA(10), STDDEV(10),            CF3 0130
     4          TVALUE(10), VAR(10), W1(10), XXIN( 200), YRESID(10),    CF3 0140
     5          YYCC( 200), YYIN( 200)                                  CF3 0141
C --- THE DIMENSIONS OF DE(NOOBSV,ISIZE) ARE SET IN CALL FIT IN CF2.    CF3 0150
C --- ISIZE = MXSIZE/NOOBSV.  MXSIZE = THE DIMENSIONS OF C AND Z.       CF3 0160
      COMMON /AAAAAA/ COM1( 200)                                        CF3 0170
      COMMON /BBBBBB/ COM2( 47)                                         CF3 0180
      COMMON /CCCCCC/ COM3( 36)                                         CF3 0190
      COMMON /DDDDDD/ COM4(1578)                                        CF3 0200
      COMMON /EEEEEE/ LSORT( 200)                                       CF3 0210
      COMMON /FFFFFF/ VARTR( 35), ITRFM( 35)                            CF3 0220
      COMMON /GGGGGG/ BI(35), EQU(144)                                  CF3 0240
      COMMON /HHHHHH/ BETA(11), C(10,10), Z(11,11), NNNN, MXSIZE        CF3 0250
      COMMON /JJJJJJ/ IDZB( 200)                                        CF3 0260
      COMMON /LLLLLL/ XEFMT, JOMIT(14), JIVOS(14), JIV(14), NOMIT,      CF3 0290
C ---          EQUIVALENCE STATEMENTS IN CF 2 AND 3(IOMIT ALSO IN 1, 5) CF3 0360
      EQUIVALENCE (COM1(1),AMAX(1)), (COM1(11),AMIN(1)),                CF3 0370
     1            (COM1( 21),W1(1)), (COM1( 31),D(1)),                  CF3 0380
     2            (COM1( 71),IOMIT(1)), (COM1( 41),RELINF(1)),          CF3 0381
     3            (COM1(106),RISQRD(1)), (COM1(116),SIGB(1))            CF3 0382
      EQUIVALENCE (COM3(1),AVG(1)), (COM3(11),SIGMA(1)),                CF3 0390
     1            (COM3( 21),STDDEV(1))                                 CF3 0400
C ---          EQUIVALENCE STATEMENTS IN CF 3 ALONE                     CF3 0410
      EQUIVALENCE (BETA(1),TVALUE(1))                                   CF3 0420
      EQUIVALENCE (COM2(1),YRESID(1)), (COM2(1),VAR(1)),                CF3 0430
     1            (COM2( 37),B(1))                                      CF3 0440
      EQUIVALENCE (COM4( 601),JSORT(1)), (COM4( 201),XXIN(1)),          CF3 0450
     1                                                                  CF3 0451
     1            (COM4( 201),IDZA(1)),  (COM4( 401),YYIN(1)),          CF3 0460
     2            (COM4( 201),DELYN(1)), (COM4( 401),DELSD(1))          CF3 0470
      DIMENSION AVATR( 35), DATA( 36), FMT( 36), IOMIT( 35), ITLOC( 35) CF4 0240
      COMMON /AAAAAA/ COM1( 200)                                        CF4 0250
      COMMON /BBBBBB/ COM2( 47)                                         CF4 0260
      COMMON /CCCCCC/ COM3( 36)                                         CF4 0270
      COMMON /DDDDDD/ COM4(1578)                                        CF4 0280
      COMMON /EEEEEE/ LSORT( 200)                                       CF4 0290
      COMMON /FFFFFF/ VARTR( 35), ITRFM( 35)                            CF4 0300
      COMMON /GGGGGG/ BI(35), EQU(144)                                  CF4 0310
      COMMON /HHHHHH/ BETA(11), C(10,10), Z(11,11), NNNN, MXSIZE        CF4 0320
      COMMON /JJJJJJ/ IDZB( 200)                                        CF4 0330
C ---          EQUIVALENCE STATEMENTS IN CF 4 ARE THE SAME AS IN CF 1   CF4 0420
      EQUIVALENCE (COM1(1),AVATR(1)), (COM1( 36),ITLOC(1)),             CF4 0430
     1            (COM1( 71),IOMIT(1))                                  CF4 0440
      DIMENSION AVATR( 35), DATA( 36), IOMIT( 35), ITLOC( 35)           CF5 0060
      COMMON /AAAAAA/ COM1( 200)                                        CF5 0070
      COMMON /BBBBBB/ COM2( 47)                                         CF5 0080
      COMMON /FFFFFF/ VARTR( 35), ITRFM( 35)                            CF5 0090
      EQUIVALENCE (COM1(1),AVATR(1)), (COM1( 36),ITLOC(1)),             CF5 0140
     1            (COM1( 71),IOMIT(1))                                  CF5 0150
      DIMENSION C(10), LP(10)                                           CF6 0180
      COMMON /EEEEEE/ LSORT( 200)                                       CF6 0190
      COMMON /HHHHHH/ BETA(11), A(10,10), Z(11,11), N, MXSIZE           CF6 0200
C ---          EQUIVALENCE STATEMENTS IN CF 6 ALONE                     CF6 0210
C --- EQUIVALENCE (LSORT(1),C(1)), (LSORT(2*MXVRAT+1),LP(1))            CF6 0220
      EQUIVALENCE (LSORT(1),C(1)), (LSORT( 21),LP(1))                   CF6 0230
      COMMON /FFFFFF/ VARTR( 35), ITRFM( 35)                            CF8 0060
      DIMENSION AMAX(10), AMIN(10), B(10), COMPR( 200), DELTA( 200),    CF9 0090
     1          RESID(9),    X(NBSV,ISIZE), YYCC( 200), ICOMP(9),       CF9 0100
     2          NEG(8), POS(8), PRAX(51), IAND(3), ICPR(24)             CF9 0110
      COMMON /AAAAAA/ COM1( 200)                                        CF9 0120
      COMMON /BBBBBB/ COM2( 47)                                         CF9 0130
      COMMON /DDDDDD/ COM4(1578)                                        CF9 0140
      COMMON /EEEEEE/ LSORT( 200)                                       CF9 0150
      COMMON /GGGGGG/ BI(35), EQU(144)                                  CF9 0160
      COMMON /HHHHHH/ BETA(11), C(10,10), Z(11,11), NNNN, MXSIZE        CF9 0170
      COMMON /TTTTTT/ NOPLOT(10)                                        CF9 0241
C ---          EQUIVALENCE STATEMENTS IN CF 9 ALONE                     CF9 0270
      EQUIVALENCE (COM4( 201),GRIDA(1)),(COM4( 890),GRIDB(1))           CF9 0280
      EQUIVALENCE (COM2(1),AMAX(1)), (COM2( 37),B(1)),                  CF9 0290
     1            (COM2(  11),AMIN(1))                                  CF9 0300
      DIMENSION AVAR(10), CP( 200), INOUT(10), IP( 200), IS(40),        CF120810
     1          IVAR(10), IVGT(10), IVLT(10), TVALUE(10)                CF120820
C *** TO MAKE A 50 VARIABLE, 2000 OBSERVATION PROGRAM, CHANGE THE       CF120830
C *** DIMENSIONS OF AVAR, INOUT, IVAR, IVGT, IVLT AND TVALUE TO 50.     CF120840
      COMMON /AAAAAA/ COM1( 200)                                        CF120850
      COMMON /BBBBBB/ COM2( 47)                                         CF120860
      COMMON /CCCCCC/ COM3( 36)                                         CF120870
      COMMON /DDDDDD/ COM4(1578)                                        CF120880
      COMMON /EEEEEE/ LSORT( 200)                                       CF120890
      COMMON /GGGGGG/ BI(35), EQU(144)                                  CF120910
      COMMON /HHHHHH/ BETA(11), C(10,10), Z(11,11), NNNN, MXSIZE        CF120920
      COMMON /JJJJJJ/ IDZB( 200)                                        CF120930
      COMMON /SSSSSS/ ICP(10), MAXICP, MAXLBS, MINLBS, MAXCPS, MINCPS   CF121000
C ---          EQUIVALENCE STATEMENTS IN CF 12 ALONE                    CF121010
      EQUIVALENCE (COM1(1),CP(1)), (COM2(1),INOUT(1)), (COM4(1),IS(1)), CF121020
     1 (COM3(1),AVAR(1)), (COM3(11),IVLT(1)), (COM3( 21),IVGT(1)),      CF121030
     2 (COM3( 31),IVAR(1)), (BETA(1),TVALUE(1)),  (IDZB(1),IP(1))       CF121040
    1 JCP    = 10                                                       CF121220
      LCP    = 100                                                      CF121230
C     IF(IQ(21).GT.MINCPS.AND.IQ(21).LE.MAXCPS) MAXSRH = IQ(21)         CF121290
      DIMENSION U(11)                                                   CF130110
      COMMON /HHHHHH/ BETA(11), C(10,10), Z(11,11), NNNN, MXSIXE        CF130120
      COMMON /LLLLLL/ XEFMT, JOMIT(14), JIVOS(14), JIV(14), NOMIT,      CF150090
      DIMENSION AVATR( 35), IOMIT( 35), ITLOC( 35)                      CF160070
      DIMENSION ARRAY(21,6), DRRAY(4), ERRAY( 40)                       CF160080
      COMMON /AAAAAA/ COM1( 200)                                        CF160090
      COMMON /FFFFFF/ VARTR( 35), ITRFM( 35)                            CF160100
      COMMON /GGGGGG/ BI(35), EQU(144)                                  CF160110
C ---          EQUIVALENCE STATEMENTS IN CF 1, 2 AND 5                  CF160140
      EQUIVALENCE (COM1(1),AVATR(1)), (COM1( 36),ITLOC(1)),             CF160150
     1            (COM1( 71),IOMIT(1))                                  CF160160
C --- ARRAY OF NUMBERS FROM 1 TO 40.                                    CF160620
     3           2H31,2H32,2H33,2H34,2H35,2H36,2H37,2H38,2H39,2H40/     CF160670
C    4           2H41,2H42,2H43,2H44,2H45,2H46,2H47,2H48,2H49,2H50,     CF160680
C    5           2H51,2H52,2H53,2H54,2H55,2H56,2H57,2H58,2H59,2H60,     CF160690
C    6           2H61,2H62,2H63,2H64,2H65,2H66,2H67,2H68,2H69,2H70/     CF160700
C    7           2H71,2H72,2H73,2H74,2H75,2H76,2H77,2H78,2H79,2H80,     CF160710
C    8           2H81,2H82,2H83,2H84,2H85,2H86,2H87,2H88,2H89,2H90,     CF160720
C    9           2H91,2H92,2H93,2H94,2H95,2H96,2H97,2H98,2H99,3H100,    CF160730
C    1           3H101,3H102,3H103,3H104,3H105/                         CF160740
      DIMENSION CP( 200), IP( 200)                                      CF180160
      COMMON /AAAAAA/ COM1( 200)                                        CF180170
      COMMON /DDDDDD/ COM4(1578)                                        CF180180
      COMMON /EEEEEE/ LSORT( 200)                                       CF180190
      COMMON /GGGGGG/ BI(35), EQU(144)                                  CF180210
      COMMON /JJJJJJ/ IDZB( 200)                                        CF180220
      EQUIVALENCE  (COM4( 201),GRIDA(1)),(COM4( 890),GRIDB(1))          CF180270
      DIMENSION ILI(10,10), MD(10,10), XC(10,10), XI(  275)             CF190350
      DIMENSION CO(10), ID(10), INT(10),                                CF190380
     * IPI(10), IPN(10), NI(10), YI(10), YN(10)                         CF190390
      DIMENSION CI(30), CL(30), CP(30), JP(30), RM(30)                  CF190420
      DIMENSION AVG(10), B(10), SIGMA(10)                               CF190450
      DIMENSION AVAR(10), IND(10), RR(11,11), XP(11,11)                 CF190462
      DIMENSION IVGT(10), IVLT(10)                                      CF190480
      COMMON /AAAAAA/ COM1( 200)                                        CF190500
      COMMON /BBBBBB/ COM2( 47)                                         CF190510
      COMMON /CCCCCC/ COM3( 36)                                         CF190520
      COMMON /DDDDDD/ COM4(1578)                                        CF190530
      COMMON /GGGGGG/ BI(35), EQU(144)                                  CF190550
      COMMON /HHHHHH/ BETA(11), C(10,10), Z(11,11), NNNN, MXSIZE        CF190560
      COMMON /JJJJJJ/ IDZB( 200)                                        CF190570
      COMMON /SSSSSS/ ICP(10), MAXICP, MAXLBS, MINLBS, MAXCPS, MINCPS   CF190630
      EQUIVALENCE (COM2( 37), B(1))                                     CF190660
      EQUIVALENCE (COM3( 1),AVG(1)), (COM3( 11),SIGMA(1))               CF190670
      EQUIVALENCE (COM3( 21),YI(1))                                     CF190680
      EQUIVALENCE (COM4( 1),AVAR(1)), (COM4( 11),CI(1))                 CF190690
      EQUIVALENCE (COM4( 41),CO(1)), (COM4( 51),CL(1))                  CF190700
      EQUIVALENCE (COM4( 81),RM(1)), (COM4(111),YN(1))                  CF190710
      EQUIVALENCE (COM4(121),MD(1,1)), (COM4(221),ILI(1,1))             CF190720
      EQUIVALENCE (IDZB(  1), JP(1)), (IDZB( 31), ID(1))                CF190730
      EQUIVALENCE (IDZB( 41),IND(1)), (IDZB( 51),INT(1))                CF190740
      EQUIVALENCE (IDZB( 61),IPI(1)), (IDZB( 71),IPN(1))                CF190750
      EQUIVALENCE (IDZB( 81), NI(1)), (IDZB( 91),IVGT(1))               CF190760
      EQUIVALENCE (IDZB(101),IVLT(1))                                   CF190770
      EQUIVALENCE (Z(1,1),RR(1,1)),  (COM4(321),XP(1,1))                CF190790
      EQUIVALENCE (COM4(301),XI(1)), (COM4(301),XC(1,1))                CF190800
      DATA KO/30/, MBST/20/, NF/10/                                     CF191230
      DATA ND,NL/10,275/                                                CF191260
      NCWCOF = 10                                                       CF191280
C --- END OF REPLACEMENT CARDS TO REDUCE PROGRAM TO 35 MAX VARIABLES.