Google
 

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