Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50402/nlnf10.c18
There are 2 other files named nlnf10.c18 in the archive. Click here to see a list.
;       FILE NLNF10.C18
;
;       THIS BATCH CONTROL FILE WILL CREATE A 80 COEFFICIENT VERSION OF
;       NONLINWOOD: NONLINEAR LEAST-SQUARES CURVE-FITTING PROGRAM.
;       THE BATCH CONTROL FILE IS TO BE USED WITH THE TOPS-10
;       OPERATING SYSTEM.
;       EITHER THE F40 OR THE F10 COMPILERS MAY BE USED.
;       NOTE: BEFORE THIS FILE CAN BE RUN, RUN FILE NLNF10.C12.
;
;       THIS FILE IS SET UP TO USE THE F10 COMPILER WITHOUT OVERLAY.
;       FILES NLNF40.C12, C14 AND C18 USE THE F40 COMPILER.
;
;       NLIN80  ALLOWS  80 MAX COEFFICIENTS,
;                       80 MAX VARIABLES,
;                      170 MAX OBSERVATIONS.
;
;       PERFORM PROGRAM MODIFICATIONS TO CREATE 80 COEFFICIENT
;       PROGRAM
;
;       NLNUPD  IS A FORTRAN PROGRAM WHICH WILL MODIFY THE
;               20 COEFFICIENT TO CREATE THE 80 COEFFICIENT PROGRAM
;               USING THE PROGRAM CHANGES IN NONLIN.M80
;
COPY NLNUPD.F4=NONLIN.UPD
COMPILE NLNUPD.F4/F10/LIST/COMPILE
COPY FOR01.DAT=NONLIN.M80
COPY FOR20.DAT=NLN20C.PGM
EXEC NLNUPD.REL
;       FOR23 HAS THE RESULTS OF THE PROGRAM UPDATE
COPY NLN80C.F4=FOR23.DAT
;
;       THESE FILES ARE NO LONGER NEEDED
DELETE FOR23.DAT,FOR01.DAT,FOR20.DAT
;
;       COMPILE 80 COEFFICIENT PROGRAM
COMPILE NLN80C.F4/F10/LIST/COMPILE
;
;
;       NOW COMPILE TEST MODELS AND RUN TEST PROBLEMS
;
COPY MODEL1.F4=MODEL1.PGM
COPY MODEL2.F4=MODEL2.PGM
COPY MODEL5.F4=MODEL5.PGM
COMPILE MODEL1.F4/F10/LIST/COMPILE
COMPILE MODEL2.F4/F10/LIST/COMPILE
COMPILE MODEL5.F4/F10/LIST/COMPILE
;
;       COPY TEST DATA
COPY FOR05.DAT=NONLIN.TST
;
;     LOAD PROGRAM AND TEST MODELS
LOAD NLN80C.REL,MODEL1.REL,MODEL2.REL,MODEL5.REL,REMDER.REL,MACF10.REL
;
;       NOW RUN TEST DATA
EXEC NLIN80