Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50401/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.