Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0100/lincur.m80
There are no other files named lincur.m80 in the archive.
C 1/79 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
DIMENSION STDDEV(80) CF0 2330
COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE CF0 2360
SUBROUTINE BASPGM(N77,M10,ITON) CF1 0010
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
MXVRBT = 105 CF1 0560
SUBROUTINE STAT(ISIZE,IRTRN) CF2 0010
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
SUBROUTINE FIT(DE,MAXINF,NBSV,ISIZE,IRTRN) CF3 0010
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 SIGMA(80), STDDEV(80), TVALUE(80), VAR(80), W1(80), CF3 0130
4 XXIN(1000), YRESID(80), YYCC(1000), YYIN(1000) CF3 0140
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
SUBROUTINE REDATA CF4 0010
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
SUBROUTINE TRANSF CF5 0010
DIMENSION AVATR(105), DATA(106), IOMIT(105), ITLOC(105) CF5 0060
COMMON /FFFFFF/ VARTR(105), ITRFM(105) CF5 0090
SUBROUTINE INV CF6 0010
DIMENSION C(80), LP(80) CF6 0180
COMMON /HHHHHH/ BETA(81), A(80,80), Z(81,81), N, MXSIZE CF6 0200
SUBROUTINE YBACK (KQ, ZBAK) CF8 0010
COMMON /FFFFFF/ VARTR(105), ITRFM(105) CF8 0060
SUBROUTINE PITCHA(YCMAX,YCMIN,X,MAXINF,NBSV,ISIZE) CF9 0010
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
SUBROUTINE CPMAIN(ZMS) CF120010
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
SUBROUTINE SWEEP(JOY,SIGN,KSEQP1,NVLTP1) CF130010
DIMENSION U(81) CF130110
COMMON /HHHHHH/ BETA(81), C(80,80), Z(81,81), NNNN, MXSIZE CF130120
SUBROUTINE TRANPT CF160010
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
C --- END OF REPLACEMENT CARDS TO CHANGE PROGRAM TO 105 MAX VARIABLES