Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50402/nonlin.m80
There are 2 other files named nonlin.m80 in the archive. Click here to see a list.
C --- 1/80 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***********