Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0100/lincur.c20
There are no other files named lincur.c20 in the archive.
00100 ; FILE LINCUR.C20
00200 ;
00300 ; THIS BATCH CONTROL FILE WILL CREATE THREE VERSIONS OF THE
00400 ; LINWOOD LINEAR LEAST-SQUARES CURVE-FITTING PROGRAM.
00500 ; THE BATCH CONTROL FILE IS TO BE USED WITH THE TOPS-20
00600 ; OPERATING SYSTEM.
00700 ; EITHER THE F40 OR THE F10 COMPILERS MAY BE USED.
00800 ;
00900 ; THIS FILE IS SET UP TO USE THE F10 COMPILER WITHOUT OVERLAY.
01000 ;
01100 ; FILE CG1 IS SETUP TO USE THE F10 COMPILER WITH OVERLAY.
01200 ; FILE CG4 IS SETUP TO USE THE F40 COMPILER WITHOUT OVERLAY.
01300 ;
01400 ; LIN10 ALLOWS 35 MAX VARIABLES BEFORE TRANSFORMATIONS,
01500 ; 10 MAX VARIABLES AFTER TRANSFORMATIONS, AND
01600 ; 200 MAX OBSERVATIONS.
01700 ;
01800 ; LIN40 ALLOWS 65 MAX VARIABLES BEFORE TRANSFORMATIONS,
01900 ; 40 MAX VARIABLES AFTER TRANSFORMATIONS, AND
02000 ; 1000 MAX OBSERVATIONS.
02100 ;
02200 ; LIN80 ALLOWS 105 MAX VARIABLES BEFORE TRANSFORMATIONS,
02300 ; 80 MAX VARIABLES AFTER TRANSFORMATIONS, AND
02400 ; 1000 MAX OBSERVATIONS.
02500 ;
02600 ; LOGICAL UNIT NUMBERS USED BY THE PROGRAM ARE DEFINED IN
02700 ; SUBROUTINE BASPGM AT LINES CF1 0820 THRU CF1 0940.
02800 ;
02900 ; LINCUR.MC1 AND LINCUR.MC4 ARE THE F10 AND F40 COMPILER VERSION
03000 ; OF DEPSIT FOR PACKING PLOT CHARACTERS.
03100 ; SHOULD SOME COMPILER OTHER THAN F10 OR F40 BE USED.
03200 ; THIS ROUTINE WILL HAVE TO BE CHANGED TO CONFORM TO
03300 ; THE REGISTER UTILIZATION EXPECTED BY THE COMPILER.
03400 ;
03500 ;
03600 ; THE FOLLOWING INSTRUCTIONS WILL CREATE THE PROGRAMS
03700 ; USING THE F10 COMPILER AND NOT OVERLAYING.
03800 ;
03900 ; RENAME THE MACRO ROUTINE FROM DECUS NAME
03910
03915 ;[HDT] KEEP FILES ON DISK FOR DECUS EVALUATION
03920 @DEF LPT: DSK:
03930
04000 COPY LINCUR.MC1 LINF10.MAC
04100 COMPILE LINF10.MAC /COMPILE/LIST
04200 ; NOW COMPILE 40 VARIABLE PROGRAM
04300 COPY LINCUR.F4 LIN40.F4
04400 COMPILE LIN40.F4/COMPILE/LIST
04500 LOAD LIN40,LINF10
04600 ; IF A DIFFERENT NAME IS REQUIRED DO IT HERE
04700 SAVE LIN40
04800 ; NOW PERFORM PROGRAM MODIFICATIONS TO CREATE 10 VARIABLE
04900 ; PROGRAM
05000 ;
05100 ; LINUPD IS A FORTRAN PROGRAM WHICH WILL MODIFY THE
05200 ; 40 VARIABLE PROGRAM TO CREATE THE 10 VARIABLE PROGRAM
05300 ; USING THE PROGRAM CHANGES IN LINCUR.M10
05400 COPY LINCUR.UPD LINUPD.F4
05500 COMPILE LINUPD.F4/COMPILE/LIST
05600 COPY LINCUR.M10 FOR01.DAT
05700 COPY LINCUR.F4 FOR20.DAT
05800 EXEC LINUPD
05900 ; FOR23 HAS THE RESULTS OF THE PROGRAM UPDATE
06000 COPY FOR23.DAT LIN10.F4
06100 ; THESE FILES ARE NO LONGER NEEDED
06200 DELETE FOR23.DAT,FOR01.DAT
06300 ; COMPILE 10 VARIABLE PROGRAM
06400 COMPILE LIN10.F4/COMPILE/LIST
06500 LOAD LIN10,LINF10
06600 SAVE LIN10
06700 DELETE LIN10.REL
06800 ;
06900 ; NOW PERFORM PROGRAM MODIFICATIONS TO CREATE 80 VARIABLE
07000 ; PROGRAM USING THE PROGRAM CHANGES IN LINCUR.M80
07100 COPY LINCUR.M80 FOR01.DAT
07200 COPY LINCUR.F4 FOR20.DAT
07300 EXEC LINUPD
07400 ; FOR23 HAS THE RESULTS OF THE PROGRAM UPDATE
07500 COPY FOR23.DAT LIN80.F4
07600 ; THESE FILES ARE NO LONGER NEEDED
07700 DELETE FOR23.DAT,FOR01.DAT,FOR20.DAT
07800 ; NOW COMPILE 80 VARIABLE PROGRAM
07900 COMPILE LIN80.F4/COMPILE/LIST
08000 LOAD LIN80,LINF10
08100 SAVE LIN80
08200 DELETE LIN40.REL,LIN80.REL
08300 ;
08400 ; NOW TEST DATA
08500
08600 RUN LIN10
08700 ;INPUT THE NAME OF THE INPUT FILE
08800 LINCUR.TST
08900 ;INPUT THE NAME OF THE OUTPUT FILE
09000 LIN10.TRN
09100 RUN LIN40
09200 ;INPUT THE NAME OF THE INPUT FILE
09300 LINCUR.TST
09400 ;INPUT THE NAME OF THE OUTPUT FILE
09500 LIN40.TRN
09600 RUN LIN80
09700 ;INPUT THE NAME OF THE INPUT FILE
09800 LINCUR.TST
09900 ;INPUT THE NAME OF THE OUTPUT FILE
10000 LIN80.TRN
10100 ; THIS HAS CREATED THE F10 VERSIONS OF THE
10200 ; LINWOOD LINEAR LEAST-SQUARES CURVE-FITTING PROGRAM