Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0101/nonlin.m80
There are 2 other files named nonlin.m80 in the archive. Click here to see a list.
C ---                             1/79                                  01CT0030
C ***      PROGRAM CURRENTLY DIMENSIONED FOR  80 MAX VARIABLES, 80 MAX  01CT0050
C --- COEFFICIENTS, 170 OBSERVATIONS AND 2 DELETE OBSERVATIONS CARDS.   01CT0060
      COMMON /DATA01/ IDENT(170), Y(170), X(80,170), B(80), DIFZ(80),   01CT1800
     1   SIGNS(80), F(170), R(170), DELZ(170,80)                        01CT1810
      COMMON /DATA04/ EQU(216), BI(160), NPROB(5)                       01CT1860
      NVARX = 80                                                        01CT2090
      NCMAX = 80                                                        01CT2091
      NOBMAX = 170                                                      01CT2100
      DIMENSION E(80), P(80), PHI(80), Q(80), TB(80), A(80,80),         03GH0170
     1    D(80,80), U(80,80)                                            03GH0180
C ---   END OF 80 VARIABLE, 80 COEFICIENT, 170 OBS. REPLACEMENT CARDS***********