Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0100/lin81.c20
There is 1 other file named lin81.c20 in the archive. Click here to see a list.
;       FILE LIN81.C20
;
;       THIS BATCH CONTROL FILE WILL CREATE THREE VERSIONS OF THE
;       LINWOOD LINEAR LEAST-SQUARES CURVE-FITTING PROGRAM.
;       THE BATCH CONTROL FILE IS TO BE USED WITH THE TOPS-20
;       OPERATING SYSTEM.
;       EITHER THE F40 OR THE F10 COMPILERS MAY BE USED.
;
;       THIS FILE IS SET UP TO USE THE F10 COMPILER WITHOUT OVERLAY.
;
;           FILE C21 IS SETUP TO USE THE F10 COMPILER WITH OVERLAY.
;           FILE C24 IS SETUP TO USE THE F40 COMPILER WITHOUT OVERLAY.
;
;       LIN811  ALLOWS  35 MAX VARIABLES BEFORE TRANSFORMATIONS,
;                       10 MAX VARIABLES  AFTER TRANSFORMATIONS, AND
;                      200 MAX OBSERVATIONS.
;
;       LIN814  ALLOWS  65 MAX VARIABLES BEFORE TRANSFORMATIONS,
;                       40 MAX VARIABLES  AFTER TRANSFORMATIONS, AND
;                     1000 MAX OBSERVATIONS.
;
;       LIN818  ALLOWS 105 MAX VARIABLES BEFORE TRANSFORMATIONS,
;                       80 MAX VARIABLES  AFTER TRANSFORMATIONS, AND
;                     1000 MAX OBSERVATIONS.
;
;       LOGICAL UNIT NUMBERS USED BY THE PROGRAM ARE DEFINED IN
;       SUBROUTINE BASPGM AT LINES CF1 0820 THRU CF1 0940.
;
;       LIN81.MAC IS THE F10 AND F40 COMPILER VERSION OF DEPSIT
;       FOR PACKING PLOT CHARACTERS.
;               SHOULD SOME COMPILER OTHER THAN F10 OR F40 BE USED.
;               THIS ROUTINE WILL HAVE TO BE CHANGED TO CONFORM TO
;               THE REGISTER UTILIZATION EXPECTED BY THE COMPILER.
;
;
;       THE FOLLOWING INSTRUCTIONS WILL CREATE THE PROGRAMS
;       USING THE F10 COMPILER AND NOT OVERLAYING.
;
;       RENAME THE MACRO ROUTINE FROM DECUS NAME
COPY LIN81.MAC LINDEP.MAC
COMPILE LINDEP.MAC /COMPILE/LIST
;       NOW COMPILE 40 VARIABLE PROGRAM
COMPILE LIN814.FOR/COMPILE/LIST
LOAD LIN814,LINDEP
;       IF A DIFFERENT NAME IS REQUIRED DO IT HERE
SAVE LIN814
;       NOW PERFORM PROGRAM MODIFICATIONS TO CREATE 10 VARIABLE
;       PROGRAM
;
;       LINUPD  IS A FORTRAN PROGRAM WHICH WILL MODIFY THE
;               40 VARIABLE PROGRAM TO CREATE THE 10 VARIABLE PROGRAM
;               USING THE PROGRAM CHANGES IN LINCUR.M10
COPY LIN81.UPD LINUPD.FOR
COMPILE LINUPD.FOR/COMPILE/LIST
COPY 1081.RPL FOR01.DAT
COPY LIN814.FOR FOR20.DAT
EXEC LINUPD    
;       FOR23 HAS THE RESULTS OF THE PROGRAM UPDATE
COPY FOR23.DAT LIN811.FOR
;       THESE FILES ARE NO LONGER NEEDED
DELETE FOR23.DAT,FOR01.DAT
;       COMPILE 10 VARIABLE PROGRAM
COMPILE LIN811.FOR/COMPILE/LIST    
LOAD LIN811,LINDEP
SAVE LIN811
DELETE LIN811.REL
;
;       NOW PERFORM PROGRAM MODIFICATIONS TO CREATE 80 VARIABLE
;       PROGRAM USING THE PROGRAM CHANGES IN LINCUR.M80
COPY 8081.RPL FOR01.DAT
COPY LIN814.FOR FOR20.DAT
EXEC LINUPD
;       FOR23 HAS THE RESULTS OF THE PROGRAM UPDATE
COPY FOR23.DAT LIN818.FOR
;       THESE FILES ARE NO LONGER NEEDED
DELETE FOR23.DAT,FOR01.DAT,FOR20.DAT
;       NOW COMPILE 80 VARIABLE PROGRAM
COMPILE LIN818.FOR/COMPILE/LIST    
LOAD LIN818,LINDEP
SAVE LIN818
DELETE LIN814.REL,LIN818.REL
;
;       NOW TEST DATA

RUN LIN811
;INPUT THE NAME OF THE INPUT FILE
LIN81.TST
;INPUT THE NAME OF THE OUTPUT FILE
LIN811.TRN
RUN LIN814
;INPUT THE NAME OF THE INPUT FILE
LIN81.TST
;INPUT THE NAME OF THE OUTPUT FILE
LIN814.TRN
RUN LIN818
;INPUT THE NAME OF THE INPUT FILE
LIN81.TST
;INPUT THE NAME OF THE OUTPUT FILE
LIN818.TRN
;       THIS HAS CREATED THE F10 VERSIONS OF THE
;       LINWOOD LINEAR LEAST-SQUARES CURVE-FITTING PROGRAM