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***********