Google
 

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