Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0100/8081.rpl
There is 1 other file named 8081.rpl in the archive. Click here to see a list.
C 1/81 CF0 0020
C *** PROGRAM CURRENTLY DIMENSIONED FOR 105 MAX VARIABLES CF0 0030
C --- BEFORE TRANSFORMATIONS, 80 VARIABLES AFTER TRANSFORMATIONS, CF0 0040
C --- 1000 OBSERVATIONS, COMPONENT EFFECTS TABLE = (VARIABLES X CF0 0050
C --- OBSERVATIONS) = 25,922, 8 FORMAT CARDS, 5 DELETE OBSERVATIONS CF0 0060
C --- BY COMPUTER USING 7(I4,6X) FORMAT. 9 CARDS MAXIMUM. CF0 1303
C --- 9 CARDS MAXIMUM. CF0 1308
DIMENSION STDDEV(80) CF0 2330
COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE CF0 2360
DIMENSION AVATR(105), DATA(106), FMT(144), IOMIT(105), ITLOC(105) CF1 0130
COMMON /FFFFFF/ VARTR(105), ITRFM(105) CF1 0200
COMMON /GGGGGG/ BI(105), EQU(144) CF1 0210
COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE CF1 0220
COMMON /LLLLLL/ XEFMT, JOMIT(63), JIVOS(63), JIV(63), NOMIT, CF1 0250
MXVRBT = 105 CF1 0560
MNOMTC = 9 CF1 0744
MNIVOC = 9 CF1 0748
MAXLBS = 40 CF1 0766
DIMENSION AMAX(80), AMIN(80), AVATR(105), AVG(80), B(80), CF2 0110
1 DATA(106), FMT(144), IOMIT(105), ITLOC(105), CF2 0120
2 SIGMA(80), STDDEV(80), W1(80) CF2 0130
COMMON /FFFFFF/ VARTR(105), ITRFM(105) CF2 0180
COMMON /GGGGGG/ BI(105), EQU(144) CF2 0200
COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE CF2 0210
COMMON /LLLLLL/ XEFMT, JOMIT(63), JIVOS(63), JIV(63), NOMIT, CF2 0240
COMMON /TTTTTT/ NOPLOT(80) CF2 0331
DIMENSION AMAX(80), AMIN(80), AVG(80), B(80), D(80), CF3 0100
2 IDRS2(1000), IOMIT(105), JSORT(1000), RELINF(80), CF3 0120
3 RISQRD(80), SIGB(80), SIGMA(80), STDDEV(80), CF3 0130
4 TVALUE(80), VAR(80), W1(80), XXIN(1000), YRESID(80), CF3 0140
5 YYCC(1000), YYIN(1000) CF3 0141
COMMON /FFFFFF/ VARTR(105), ITRFM(105) CF3 0220
COMMON /GGGGGG/ BI(105), EQU(144) CF3 0240
COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE CF3 0250
COMMON /LLLLLL/ XEFMT, JOMIT(63), JIVOS(63), JIV(63), NOMIT, CF3 0290
DIMENSION AVATR(105), DATA(106), FMT(144), IOMIT(105), ITLOC(105) CF4 0240
COMMON /FFFFFF/ VARTR(105), ITRFM(105) CF4 0300
COMMON /GGGGGG/ BI(105), EQU(144) CF4 0310
COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE CF4 0320
DIMENSION AVATR(105), DATA(106), IOMIT(105), ITLOC(105) CF5 0060
COMMON /FFFFFF/ VARTR(105), ITRFM(105) CF5 0090
DIMENSION C(80), LP(80) CF6 0180
COMMON /HHHHHH/ BETA(81), A(80,80), Z(81,81), N, MXSIZE CF6 0200
COMMON /FFFFFF/ VARTR(105), ITRFM(105) CF8 0060
DIMENSION AMAX(80), AMIN(80), B(80), COMPR(1000), DELTA(1000), CF9 0090
COMMON /GGGGGG/ BI(105), EQU(144) CF9 0160
COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE CF9 0170
COMMON /TTTTTT/ NOPLOT(80) CF9 0241
DIMENSION AVAR(80), CP(1000), INOUT(80), IP(1000), IS(40), CF120810
1 IVAR(80), IVGT(80), IVLT(80), TVALUE(80) CF120820
COMMON /GGGGGG/ BI(105), EQU(144) CF120910
COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE CF120920
DIMENSION U(81) CF130110
COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE CF130120
COMMON /LLLLLL/ XEFMT, JOMIT(63), JIVOS(63), JIV(63), NOMIT, CF150090
DIMENSION AVATR(105), IOMIT(105), ITLOC(105) CF160070
DIMENSION ARRAY(21,6), DRRAY(4), ERRAY(105) CF160080
COMMON /FFFFFF/ VARTR(105), ITRFM(105) CF160100
COMMON /GGGGGG/ BI(105), EQU(144) CF160110
C --- ARRAY OF NUMBERS FROM 1 TO 105. CF160620
6 2H61,2H62,2H63,2H64,2H65,2H66,2H67,2H68,2H69,2H70, CF160700
7 2H71,2H72,2H73,2H74,2H75,2H76,2H77,2H78,2H79,2H80, CF160710
8 2H81,2H82,2H83,2H84,2H85,2H86,2H87,2H88,2H89,2H90, CF160720
9 2H91,2H92,2H93,2H94,2H95,2H96,2H97,2H98,2H99,3H100, CF160730
1 3H101,3H102,3H103,3H104,3H105/ CF160740
COMMON /GGGGGG/ BI(105), EQU(144) CF180210
DIMENSION ILI(41,41), MD(41,41), XC(41,41), XI(13202) CF190350
DIMENSION CO(80), ID(80), INT(80), CF190380
* IPI(80), IPN(80), NI(80), YI(80), YN(80) CF190390
DIMENSION AVG(80), B(80), SIGMA(80) CF190450
DIMENSION AVAR(80), IND(80), RR(81,81), XP(81,81) CF190462
DIMENSION IVGT(80), IVLT(40) CF190480
COMMON /GGGGGG/ BI(105), EQU(144) CF190550
COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE CF190560
EQUIVALENCE (COM3(161),AVAR(1)) CF190680
EQUIVALENCE (COM4( 1),CI(1)), (COM4( 61),CL(1)) CF190690
EQUIVALENCE (COM4(121),RM(1)), (COM4(181),CO(1)) CF190700
EQUIVALENCE (COM4(262),YI(1)), (COM4(343),YN(1)) CF190710
EQUIVALENCE (COM4(424),ILI(1)) CF190720
C --- EQUIVALANCE OF ILI GOOD IN SINGLE P TO ND=55, IN DP TO ND=78. CF190721
EQUIVALENCE (IDZB( 1), JP(1)), (IDZB( 1), ID(1)) CF190730
EQUIVALENCE (IDZB(101),INT(1)), (IDZB(201),IPI(1)) CF190740
EQUIVALENCE (IDZB(301),IPN(1)), (IDZB(401), NI(1)) CF190750
EQUIVALENCE (IDZB(501),IVLT(1)) CF190760
EQUIVALENCE (IDZB(601),IND(1)), (IDZB(701),IVGT(1)) CF190770
DATA KO/60/, MBST/40/, NF/80/ CF191230
DATA ND,NL/41,13202/ CF191260
C --- END OF REPLACEMENT CARDS TO CHANGE PROGRAM TO 105 MAX VARIABLES