Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;       FILE LINCUR.C24
;
;       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 F40 COMPILER WITHOUT OVERLAY.
;
;           FILE CG0 IS SETUP TO USE THE F10 COMPILER WITHOUT OVERLAY.
;           FILE CG1 IS SETUP TO USE THE F10 COMPILER WITH OVERLAY.
;
;       LIN10   ALLOWS  35 MAX VARIABLES BEFORE TRANSFORMATIONS,
;                       10 MAX VARIABLES  AFTER TRANSFORMATIONS, AND
;                      200 MAX OBSERVATIONS.
;
;       LIN40   ALLOWS  65 MAX VARIABLES BEFORE TRANSFORMATIONS,
;                       40 MAX VARIABLES  AFTER TRANSFORMATIONS, AND
;                     1000 MAX OBSERVATIONS.
;
;       LIN80   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.
;
;       LINCUR.MC1 AND LINCUR.MC4 ARE 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 LINCUR.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 LINCUR.MC4 LINF40.MAC
COMPILE LINF40.MAC/COMPILE/LIST
;       NOW COMPILE 40 VARIABLE PROGRAM
COPY LINCUR.F4 LIN40.F4
COMPILE LIN40.F4/COMPILE/LIST
LOAD LIN40,LINF40
;       IF A DIFFERENT NAME IS REQUIRED DO IT HERE
SAVE LIN40
;       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 LINCUR.UPD LINUPD.F4
COMPILE LINUPD.F4/COMPILE/LIST
COPY LINCUR.M10 FOR01.DAT
COPY LINCUR.F4 FOR20.DAT
EXEC LINUPD
;       FOR23 HAS THE RESULTS OF THE PROGRAM UPDATE
COPY FOR23.DAT LIN10.F4
;       THESE FILES ARE NO LONGER NEEDED
DELETE FOR23.DAT,FOR01.DAT
;       COMPILE 10 VARIABLE PROGRAM
COMPILE LIN10.F4/COMPILE/LIST
LOAD LIN10,LINF40
SAVE LIN10
DELETE LIN10.REL
;
;       NOW PERFORM PROGRAM MODIFICATIONS TO CREATE 80 VARIABLE
;       PROGRAM USING THE PROGRAM CHANGES IN LINCUR.M80
COPY LINCUR.M80 FOR01.DAT
COPY LINCUR.F4 FOR20.DAT
EXEC LINUPD
;       FOR23 HAS THE RESULTS OF THE PROGRAM UPDATE
COPY FOR23.DAT LIN80.F4
;       THESE FILES ARE NO LONGER NEEDED
DELETE FOR23.DAT,FOR01.DAT,FOR20.DAT
;       NOW COMPILE 80 VARIABLE PROGRAM
COMPILE LIN80.F4/COMPILE/LIST
LOAD LIN80,LINF40
SAVE LIN80
DELETE LIN40.REL,LIN80.REL
;
;       NOW TEST DATA
RUN LIN10
;INPUT THE NAME OF THE INPUT FILE
LINCUR.TST
;INPUT THE NAME OF THE OUTPUT FILE
LIN10.TRN
RUN LIN40
;INPUT THE NAME OF THE INPUT FILE
LINCUR.TST
;INPUT THE NAME OF THE OUTPUT FILE 
LIN40.TRN
RUN LIN80
;INPUT THE NAME OF THE INPUT FILE
LINCUR.TST
;INPUT THE NAME OF THE OUTPUT FILE
LIN80.TRN
;       THIS HAS CREATED THE F40 VERSIONS OF THE
;       LINWOOD LINEAR LEAST-SQUARES CURVE-FITTING PROGRAM