Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0100/lin81.c14
There is 1 other file named lin81.c14 in the archive. Click here to see a list.
; FILE LIN81.C14
;
; 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-10
; OPERATING SYSTEM.
; EITHER THE F40 OR THE F10 COMPILERS MAY BE USED.
;
; THIS FILE IS SET UP TO USE THE F40 COMPILER WITHOUT OVERLAY.
;
; FILE C10 IS SETUP TO USE THE F10 COMPILER WITHOUT OVERLAY.
; FILE C11 IS SETUP TO USE THE F10 COMPILER WITH 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.
;
;
; [[[[[[[ IMPORTANT ]]]]]]]]
; IF FILCOM IS USED TO COMPARE THE RESULTS OF THE TEST RUN
; GIVEN IN LIN81.TRN, F40 AND F10 MAY DIFFER SLIGHTLY IN
; THE CALCULATION OF A SWEEP VALUE. THIS IS PRINTED WITH
; ONLY ONE SIGNIFICANT DIGIT AND F40 AND F10 DIFFER SLIGHTLY
; IN THAT ONE GIVES 1,E-18 AND THE OTHER 2,E-18. THIS IS
; AN INSIGNIFICANT DIFFERENCE AN MAY BE ONLY A DIFFERENCE IN
; A FAR LESS SIGNIFCANT DECIMAL PLACE.
;
;
; THE FOLLOWING INSTRUCTIONS WILL CREATE THE PROGRAMS
; USING THE F40 COMPILER AND NOT OVERLAYING.
;
; RENAME THE MACRO ROUTINE FROM DECUS NAME
COPY LINDEP.MAC=LIN81.MAC
COMPILE LINDEP.MAC/COMPILE-LIST
; NOW COMPILE 40 VARIABLE PROGRAM
COPY LIN814.F4=LIN814.FOR
COMPILE LIN814.F4/F40/LIST/COMPILE
LOAD LIN814.REL,LINDEP.REL
; 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 LINUPD.F4=LIN81.UPD
COMPILE LINUPD.F4/F40/LIST/COMPILE
COPY FOR01.DAT=1081.RPL
COPY FOR20.DAT=LIN814.FOR
EXEC LINUPD.REL
; FOR23 HAS THE RESULTS OF THE PROGRAM UPDATE
COPY LIN811.F4=FOR23.DAT
; THESE FILES ARE NO LONGER NEEDED
DELETE FOR23.DAT,FOR01.DAT
; COMPILE 10 VARIABLE PROGRAM
COMPILE LIN811.F4/F40/LIST/COMPILE
LOAD LIN811,REL,LINDEP,REL
SAVE LIN811
DELETE LIN811.REL
;
; NOW PERFORM PROGRAM MODIFICATIONS TO CREATE 80 VARIABLE
; PROGRAM USING THE PROGRAM CHANGES IN LINCUR.M80
COPY FOR01.DAT=8081.RPL
COPY FOR20.DAT=LIN814.FOR
EXEC LINUPD.REL
; FOR23 HAS THE RESULTS OF THE PROGRAM UPDATE
COPY LIN818.F4=FOR23.DAT
; THESE FILES ARE NO LONGER NEEDED
DELETE FOR23.DAT,FOR01.DAT,FOR20.DAT
; NOW COMPILE 80 VARIABLE PROGRAM
COMPILE LIN818.F4/F40/LIST/COMPILE
LOAD LIN818,REL,LINDEP,REL
SAVE LIN818
DELETE LIN814.REL,LIN818.REL
;
; LIN81.TST HAS THE TEST DATA FOR THE PROGRAMS.
; LIN81.TRN HAS THE RESULTS OF THE TEST RUN FOR
; COMPARISON.
;
; RUN THE PROGRAMS
;
RUN LIN814
;INPUT THE NAME OF THE INPUT FILE
LIN81.TST
;INPUT THE NAME OF THE OUTPUT FILE
LIN814.TRN
RUN LIN811
;INPUT THE NAME OF THE INPUT FILE
LIN81.TST
;INPUT THE NAME OF THE OUTPUT FILE
LIN811.TRN
RUN LIN818
;INPUT THE NAME OF THE INPUT FILE
LIN81.TST
;INPUT THE NAME OF THE OUTPUT FILE
LIN818.TRN
; THAT HAS CREATED THE F40 VERSIONS OF THE
; LINWOOD LINEAR LEAST-SQUARES CURVE-FITTING PROGRAM