@ECHO OFF
REM SAMPLE MS-DOS BATCH FILE DEMONSTRATING HOW TO PREPARE A SINGLE
REM FORTRAN77 SOURCE CODE FILE 'MOD.FOR' CONTAINING THE MODEL ROUTINES
REM REQUIRED WHEN SOLVING FORWARD PROBLEMS, AND A SINGLE FORTRAN77
REM SOURCE CODE FILE 'MODVAR.FOR' CONTAINING THE MODEL ROUTINES REQUIRED
REM WHEN SOLVING INVERSE PROBLEMS.
REM
REM EXECUTABLE 'CLEAN.EXE' OF THE SOURCE 'CLEAN.FOR' IS ASSUMED TO HAVE
REM BEEN PREPARED BEFORE RUNNING THIS BATCH FILE.
REM
IF NOT EXIST CLEAN.EXE ECHO CLEAN.EXE HAS TO BE CREATED BEFORE.
IF NOT EXIST CLEAN.EXE GOTO :END
REM
REM --------------------------------------------------------------------
@ECHO ON
ECHO 'MODEL.FOR' 'MODEL.TMP' 'V' '*' / |CLEAN
ECHO 'PARM.FOR'  'PARM.TMP'  'V' '*' / |CLEAN
ECHO 'VAL.FOR'   'VAL.TMP'   'V' '*' / |CLEAN
ECHO 'FIT.FOR'   'FIT.TMP'   'V' '*' / |CLEAN
COPY MODEL.TMP+METRIC.FOR+SRFC.FOR+PARM.TMP+VAL.TMP+FIT.TMP MOD.FOR
DEL  *.TMP
ECHO 'MODEL.FOR' 'MODEL.TMP' 'V' ' ' / |CLEAN
ECHO 'PARM.FOR'  'PARM.TMP'  'V' ' ' / |CLEAN
ECHO 'VAL.FOR'   'VAL.TMP'   'V' ' ' / |CLEAN
ECHO 'FIT.FOR'   'FIT.TMP'   'V' ' ' / |CLEAN
COPY MODEL.TMP+METRIC.FOR+SRFC.FOR+PARM.TMP+VAL.TMP+FIT.TMP MODVAR.FOR
COPY MODVAR.FOR+VAR.FOR+SPSP.FOR                            MODVAR.FOR
DEL  *.TMP
@ECHO OFF
REM --------------------------------------------------------------------
ECHO LINKING TABLE:
ECHO     GRID+MOD+ARRAY
ECHO     SEC+MODSEC+MOD+MEANS+RKGS
ECHO     LINDXF
ECHO     LINACD
REM --------------------------------------------------------------------
GOTO :END
REM
REM THE RESULTING FILE 'MOD.FOR' MAY BE COMPILED AND LINKED, E.G.,
REM (A) WITH THE 'GRID.FOR' PROGRAM,
REM (B) WITH THE FILES 'MEANS.FOR', 'RKGS.FOR', 'MODSEC.FOR', AND
REM     'SEC.FOR' TO FORM THE 'SEC' EXECUTABLE PROGRAM,
REM (C) WITH 'MEANS.FOR', 'HPCG.FOR', AND THE COMPLETE RAY TRACING
REM     PROGRAM AND ROUTINES TO FORM THE COMPLETE RAY TRACING EXECUTABLE
REM     PROGRAM.
REM
REM THE RESULTING FILE 'MODVAR.FOR' MAY BE COMPILED AND LINKED, E.G.,
REM (I) WITH 'MEANS.FOR' AND 'AP.FOR' ROUTINES, AND 'INV1.FOR' PROGRAM
REM     TO FORM THE 'INV1' EXECUTABLE PROGRAM GENERATING THE LINEARIZED
REM     SYSTEM OF EQUATIONS FOR MODEL PARAMETERS.
REM
REM 'MODVAR.FOR' HAS ALL THE FUNCTIONALITY OF 'MOD.FOR' FOR THE PURPOSES
REM     OF FORWARD MODELLING, AND MANY INVERSE MODELLING FUNCTIONS ON
REM     THE TOP OF IT.  ON THE OTHER HAND, IS SLOWER.
REM FILE PREPARED LIKE 'MODVAR.FOR' BUT WITH 'VARNUL.FOR' INSTEAD OF
REM     'VAR.FOR' IS VERY CLOSE TO 'MOD.FOR' IN PERFORMANCE, SEE THE
REM     TABLE IN THE FILE 'VAR.FOR'.
REM
REM ....................................................................
REM
REM WITHIN THE FORTRAN77 SOURCE CODE SUBMITTED WITH THIS PACKAGE, ALL
REM PROGRAMS READ MAIN INPUT DATA FROM THE * INTERACTIVE UNIT.
REM
REM MS-DOS EXAMPLE:
REM HOW EXECUTABLE PROGRAM NAMED, E.G., PROG.EXE MAY BE RUN WITH THE
REM SINGLE-LINE MAIN INPUT DATA
REM             'DATA' 1 2 3 'END' /
REM IN AT LEAST THREE DIFFERENT WAYS:
REM (A) RUNNING THE PROGRAM BY ENTERING
REM             PROG
REM     FROM THE MS-DOS COMMAND LINE, THEN ENTERING DATA
REM             'DATA' 1 2 3 'END' /
REM (B) REDIRECTION: STORING
REM             'DATA' 1 2 3 'END' /
REM     INTO A FILE NAMED, E.G., PROG.CON (E.G., BY ENTERING
REM             ECHO 'DATA' 1 2 3 'END' / >PROG.CON
REM     ), THEN ENTERING
REM             PROG <PROG.CON
REM     FROM THE MS-DOS COMMAND LINE.
REM (C) PIPING: ENTERING
REM             ECHO 'DATA' 1 2 3 'END' / |PROG
REM     FROM THE MS-DOS COMMAND LINE.
REM
REM ....................................................................
REM
REM IF THE CORRESPONDING EXECUTABLES '*.EXE' HAVE BEEN PREPARED, THEY
REM MAY BE RUN WITH DEMO DATA, E.G., BY ENTERING:
REM   ECHO 'GRID.DAT' /          |GRID
REM   ECHO 'SEC.DAT' /           |SEC
REM   ECHO 'SEC.OUT' 'SEC.DXF' / |LINDXF
REM   ECHO 'SEC.OUT' 'SEC.ACD' / |LINACD
REM   ECHO 'SEC-PTS.DAT' /       |SEC
REM FROM THE MS-DOS COMMAND LINE.
REM
REM ====================================================================
REM
:END