Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0100/lincur.m10
There are no other files named lincur.m10 in the archive.
C 1/79 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
DIMENSION STDDEV(10) CF0 2330
COMMON /CCCCCC/ COM3( 36) CF0 2340
COMMON /FORFIT/ RMS, YCMAX, YCMIN, INTDUM, K411, NCP CF0 2350
COMMON /HHHHHH/ BETA(11), C(10,10), Z(11,11), NNNN, MXSIZE CF0 2360
EQUIVALENCE (COM3( 21),STDDEV(1)) CF0 2410
SUBROUTINE BASPGM(N77,M10,ITON) CF1 0010
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) 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
MAXSRH = 0 CF1 0754
J1 = 10 CF1 2720
C IF(IQ(21).GT.12) J1 = IQ(21) CF1 2730
SUBROUTINE STAT(ISIZE,IRTRN) CF2 0010
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 /FORFIT/ RMS, YCMAX, YCMIN, INTDUM, K411, NCP CF2 0190
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
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
SUBROUTINE FIT(DE,MAXINF,NBSV,ISIZE,IRTRN) CF3 0010
DOUBLE PRECISION IDZA( 200) CF3 0090
REAL*4 DE(NBSV,ISIZE), STDRES( 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 SIGMA(10), STDDEV(10), TVALUE(10), VAR(10), W1(10), CF3 0130
4 XXIN( 200), YRESID(10), YYCC( 200), YYIN( 200) CF3 0140
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 /FORFIT/ RMS, YCMAX, YCMIN, INTDUM, K411, NCP CF3 0230
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)) CF3 0381
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)), (COM1( 66),RELINF(1)) CF3 0420
EQUIVALENCE (COM2(1),YRESID(1)), (COM2(1),VAR(1)), CF3 0430
1 (COM2( 37),B(1)), (COM4( 601),STDRES(1)) CF3 0440
EQUIVALENCE (COM4( 601),JSORT(1)), (COM4( 201),XXIN(1)), CF3 0450
1 (COM4( 201),IDZA(1)), (COM4( 401),YYIN(1)), CF3 0460
2 (COM4( 201),DELYN(1)), (COM4( 401),DELSD(1)) CF3 0470
SUBROUTINE REDATA CF4 0010
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
SUBROUTINE TRANSF CF5 0010
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
SUBROUTINE INV CF6 0010
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
SUBROUTINE YBACK (KQ, ZBAK) CF8 0010
COMMON /FFFFFF/ VARTR( 35), ITRFM( 35) CF8 0060
SUBROUTINE PITCHA(YCMAX,YCMIN,X,MAXINF,NBSV,ISIZE) CF9 0010
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(10), EQU(144) CF9 0160
COMMON /HHHHHH/ BETA(11), C(10,10), Z(11,11), NNNN, MXSIZE CF9 0170
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
SUBROUTINE CPMAIN(ZMS) CF120010
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 /FORFIT/ RMS, YCMAX, YCMIN, INTDUM, K411, NCP CF120900
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) 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
EQUIVALENCE (COM4( 201),GRIDA(1)),(COM4( 890),GRIDB(1)) CF121050
1 JCP = 10 CF121220
LCP = 100 CF121230
MAXSRH = 10 CF121280
C IF(IQ(21).GT.12.AND.IQ(21).LT.19) MAXSRH = IQ(21) CF121290
SUBROUTINE SWEEP(JOY,SIGN,KSEQP1,NVLTP1) CF130010
DIMENSION U(11) CF130110
COMMON /HHHHHH/ BETA(11), C(10,10), Z(11,11), NNNN, MXSIXE CF130120
SUBROUTINE CCARD(MXFMTC, MXINFC, MNOMTC, MNIVOC, MAXSRH) CF150010
COMMON /LLLLLL/ XEFMT, JOMIT(14), JIVOS(14), JIV(14), NOMIT, CF150090
SUBROUTINE TRANPT CF160010
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
C --- END OF REPLACEMENT CARDS TO REDUCE PROGRAM TO 35 MAX VARIABLES.