Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0100/lincur.ctl
There are no other files named lincur.ctl in the archive.
00100 ; FILE LINCUR.CTL
00200 ; COPIED AND MODIFIED FROM THE FILE LINCUR.C20, ORIGINALLY
00300 ; SUBMITTED TO DECUS. MODIFICATIONS WERE MADE TO
00400 ; 1) GENERATE OUTPUT TO DSK: RATHER THAN LPT:
00500 ; FOR TESTING PURPOSES
00600 ; 2) USE THE FUNCTIONS DARCOS AND DARSIN FROM THE
00700 ; FILE 'DAFUNS.FOR'. THESE FUNCTIONS WERE PART OF
00800 ; THE PACKAGE ORIGINALLY SUBMITTED TO DECUS AND WERE
00900 ; OMITTED IN THE REVISED VERSION. I COPIED THEM FROM
01000 ; THE FILES OF THE ORIGINAL VERSION AND MODIFIED THE
01100 ; LOAD COMMANDS BELOW TO INCLUDE THE FUNCTIONS.
01200 ; SINCE THESE ARE SINGLE-PRECISION APPROXIMATIONS
01300 ; TO DOUBLE-PRECISION FUNCTIONS, THE FILE SHOULD BE
01400 ; REMOVED FROM THE LOAD COMMANDS WHEN DEC SUPPLIES
01500 ; THE FUNCTIONS IN THE NEW FORLIB.
01600 ;
01700 ; H. D. TODD, WESLEYAN UNIVERSITY, OCT 80.
01800 ;
01900 ;
02000 ; THIS BATCH CONTROL FILE WILL CREATE THREE VERSIONS OF THE
02100 ; LINWOOD LINEAR LEAST-SQUARES CURVE-FITTING PROGRAM.
02200 ; THE BATCH CONTROL FILE IS TO BE USED WITH THE TOPS-20
02300 ; OPERATING SYSTEM.
02400 ; EITHER THE F40 OR THE F10 COMPILERS MAY BE USED.
02500 ;
02600 ; THIS FILE IS SET UP TO USE THE F10 COMPILER WITHOUT OVERLAY.
02700 ;
02800 ; FILE CG1 IS SETUP TO USE THE F10 COMPILER WITH OVERLAY.
02900 ; FILE CG4 IS SETUP TO USE THE F40 COMPILER WITHOUT OVERLAY.
03000 ;
03100 ; LIN10 ALLOWS 35 MAX VARIABLES BEFORE TRANSFORMATIONS,
03200 ; 10 MAX VARIABLES AFTER TRANSFORMATIONS, AND
03300 ; 200 MAX OBSERVATIONS.
03400 ;
03500 ; LIN40 ALLOWS 65 MAX VARIABLES BEFORE TRANSFORMATIONS,
03600 ; 40 MAX VARIABLES AFTER TRANSFORMATIONS, AND
03700 ; 1000 MAX OBSERVATIONS.
03800 ;
03900 ; LIN80 ALLOWS 105 MAX VARIABLES BEFORE TRANSFORMATIONS,
04000 ; 80 MAX VARIABLES AFTER TRANSFORMATIONS, AND
04100 ; 1000 MAX OBSERVATIONS.
04200 ;
04300 ; LOGICAL UNIT NUMBERS USED BY THE PROGRAM ARE DEFINED IN
04400 ; SUBROUTINE BASPGM AT LINES CF1 0820 THRU CF1 0940.
04500 ;
04600 ; LINCUR.MC1 AND LINCUR.MC4 ARE THE F10 AND F40 COMPILER VERSION
04700 ; OF DEPSIT FOR PACKING PLOT CHARACTERS.
04800 ; SHOULD SOME COMPILER OTHER THAN F10 OR F40 BE USED.
04900 ; THIS ROUTINE WILL HAVE TO BE CHANGED TO CONFORM TO
05000 ; THE REGISTER UTILIZATION EXPECTED BY THE COMPILER.
05100 ;
05200 ;
05300 ; THE FOLLOWING INSTRUCTIONS WILL CREATE THE PROGRAMS
05400 ; USING THE F10 COMPILER AND NOT OVERLAYING.
05500 ;
05600 ; RENAME THE MACRO ROUTINE FROM DECUS NAME
05700
05800 ;[HDT] KEEP FILES ON DISK FOR DECUS EVALUATION
05900 @DEF LPT: DSK:
06000 @DEF PTR: DSK:
06100 @DEF 6: DSK:
06200
06300 COPY LINCUR.MC1 LINF10.MAC
06400 COMPILE LINF10.MAC /COMPILE/LIST
06500 ; NOW COMPILE 40 VARIABLE PROGRAM
06600 COPY LINCUR.FOR LIN40.FOR
06700 COMPILE LIN40.FOR/COMPILE/LIST
06800 ;[HDT] GET DARSIN, DARCOS
06900 LOAD LIN40,LINF10,DAFUNS
07000 ; IF A DIFFERENT NAME IS REQUIRED DO IT HERE
07100 SAVE LIN40
07200 ; NOW PERFORM PROGRAM MODIFICATIONS TO CREATE 10 VARIABLE
07300 ; PROGRAM
07400 ;
07500 ; LINUPD IS A FORTRAN PROGRAM WHICH WILL MODIFY THE
07600 ; 40 VARIABLE PROGRAM TO CREATE THE 10 VARIABLE PROGRAM
07700 ; USING THE PROGRAM CHANGES IN LINCUR.M10
07800 COPY LINCUR.UPD LINUPD.FOR
07900 COMPILE LINUPD.FOR/COMPILE/LIST
08000 COPY LINCUR.M10 FOR01.DAT
08100 COPY LINCUR.FOR FOR20.DAT
08200 EXEC LINUPD
08300 ; FOR23 HAS THE RESULTS OF THE PROGRAM UPDATE
08400 COPY FOR23.DAT LIN10.FOR
08500 ; THESE FILES ARE NO LONGER NEEDED
08600 DELETE FOR23.DAT,FOR01.DAT
08700 ; COMPILE 10 VARIABLE PROGRAM
08800 COMPILE LIN10.FOR/COMPILE/LIST
08900 ;[HDT] GET DARSIN, DARCOS
09000 LOAD LIN10,LINF10,DAFUNS
09100 SAVE LIN10
09200 DELETE LIN10.REL
09300 ;
09400 ; NOW PERFORM PROGRAM MODIFICATIONS TO CREATE 80 VARIABLE
09500 ; PROGRAM USING THE PROGRAM CHANGES IN LINCUR.M80
09600 COPY LINCUR.M80 FOR01.DAT
09700 COPY LINCUR.FOR FOR20.DAT
09800 EXEC LINUPD
09900 ; FOR23 HAS THE RESULTS OF THE PROGRAM UPDATE
10000 COPY FOR23.DAT LIN80.FOR
10100 ; THESE FILES ARE NO LONGER NEEDED
10200 DELETE FOR23.DAT,FOR01.DAT,FOR20.DAT
10300 ; NOW COMPILE 80 VARIABLE PROGRAM
10400 COMPILE LIN80.FOR/COMPILE/LIST
10500 ;[HDT] GET DARSIN, DARCOS
10600 LOAD LIN80,LINF10,DAFUNS
10700 SAVE LIN80
10800 DELETE LIN40.REL,LIN80.REL
10900 ;
11000 ; NOW TEST DATA
11100
11200 RUN LIN10
11300 ;INPUT THE NAME OF THE INPUT FILE
11400 LINCUR.TST
11500 ;INPUT THE NAME OF THE OUTPUT FILE
11600 LIN10.TRN
11700 RUN LIN40
11800 ;INPUT THE NAME OF THE INPUT FILE
11900 LINCUR.TST
12000 ;INPUT THE NAME OF THE OUTPUT FILE
12100 LIN40.TRN
12200 RUN LIN80
12300 ;INPUT THE NAME OF THE INPUT FILE
12400 LINCUR.TST
12500 ;INPUT THE NAME OF THE OUTPUT FILE
12600 LIN80.TRN
12700 ; THIS HAS CREATED THE F10 VERSIONS OF THE
12800 ; LINWOOD LINEAR LEAST-SQUARES CURVE-FITTING PROGRAM