$ ! DDMAKE.VAX warning: starting from ddroot ?????? Updt 27 Sep. 1999 $ ! ======== warning: not tested in 1999 .... !!!!!!!!!!!!!!!!!!!! $ ! ======== warning: distributed: *.F files == to be renamed *.FOR !!!! $ ! file DDMAKE.COM origin: DDMAKE.VAX $ ! Command procedure for implementing DIRDIF-96? Source: J.M.M. Smits $ ! for VAX / VMS ...... Alpha / VMS Update: GB Nov. 1996 $ ! -------------------------------------------------------------------- $ ! Authors, e-mail addresses, etcetera: see file DDEXEC.VAX $ ! -------------------------------------------------------------------- $ ! $ ! The DIRDIF program system is distributed such that all programs $ ! ( DDSTART CRYSDA MERBIN DDMAIN PATTY ORIENT TRACOR TRAVEC PHASEX $ ! FOUR and NUTS ) must be LINKed with the NIJX subroutines (supplied $ ! in the two files: NIJX1.VAX and NIJX2.F ). $ ! $ WRITE SYS$OUTPUT "DDMAKE: VMS procedure for implementing DIRDIF-96" $ DELESIL = "NOCONFIRM/NOLOG" $ FORTSIL = "NOLIST/NOWARN" $ LINKSIL = "NOMAP/NOSYMB" $ ! We are assumed to be in the DIRDIF root directory 'DDROOT' $ ! All necessary ftp files are in subdirectory 'DDFTP' $ WRITE SYS$OUTPUT "Store MONOS test data into directory [DDROOT/MONOS]" $ CREATE/DIR [.MONOS] $ COPY/'DELESIL' [.DDFTP]MONOS.CRYSIN [.MONOS]CRYSIN.DAT $ COPY/'DELESIL' [.DDFTP]MONOS.FREF [.MONOS]FREF.DAT $ WRITE SYS$OUTPUT "Store some system files into directory [DDROOT]" $ COPY/'DELESIL' [.DDFTP]DIRDIF.DDHELP DIRDIF.DDHELP $ COPY/'DELESIL' [.DDFTP]DIRDIF.ORBASE DIRDIF.ORBASE $ COPY/'DELESIL' [.DDFTP]DIRDIF.ORUSER DIRDIF.ORUSER $ COPY/'DELESIL' [.DDFTP]DIRDIF.DDCON DIRDIF.DDCON $ COPY/'DELESIL' [.DDFTP]DIRDIF.DDLIC DIRDIF.DDLIC $ SET FILE/PROTECTION=(S:RWED,O:RWED,G:RWE,W) DIRDIF.DDHELP $ SET FILE/PROTECTION=(S:RWED,O:RWED,G:RWE,W) DIRDIF.ORBASE $ SET FILE/PROTECTION=(S:RWED,O:RWED,G:RWE,W) DIRDIF.ORUSER $ SET FILE/PROTECTION=(S:RWED,O:RWED,G:RWE,W) DIRDIF.DDCON $ SET FILE/PROTECTION=(S:RWED,O:RWED,G:RWE,W) DIRDIF.DDLIC $ COPY/'DELESIL' [.DDFTP]*.F [] $ COPY/'DELESIL' [.DDFTP]NIJX1.VAX [] $ IF F$SEARCH("NIJX1.VAX").EQS."" THEN GOTO NONIJX1 $ IF F$SEARCH("NIJX2.F").EQS."" THEN GOTO NONIJX2 $ COPY/'DELESIL' NIJX1.VAX,NIJX2.F NIJX.FOR $ IF F$SEARCH("NIJX.FOR").EQS."" THEN GOTO NONIJX $ WRITE SYS$OUTPUT "Compile NIJX routines, create NIJX library" $ FORT/'FORTSIL' NIJX $ IF F$SEARCH("NIJX.OBJ").EQS."" THEN GOTO NONIJXOBJ $ IF F$SEARCH("NIJX.LIS").NES."" THEN DELE/'DELESIL' NIJX.LIS;* $ IF F$SEARCH("NIJX.OLB").NES."" THEN DELE/'DELESIL' NIJX.OLB;* $ LIBRARY/CREATE/NOLOG/LIST=NIJX.LIS NIJX NIJX $ DELE/'DELESIL' NIJX.OBJ;* $ IF F$SEARCH("NIJX.OLB").EQS."" THEN GOTO NOLIBRARY $ ! $ NERROR = 0 $ ! $ DDSTART: $ WRITE SYS$OUTPUT "Compile and LINK system component 03/11 DDSTART" $ IF F$SEARCH("DDSTART.FOR").NES."" THEN FORT/'FORTSIL' DDSTART $ IF F$SEARCH("DDSTART.EXE").NES."" THEN DELE/'DELESIL' DDSTART.EXE;* $ IF F$SEARCH("DDSTART.OBJ").NES."" THEN LINK/'LINKSIL' DDSTART,NIJX/LIB $ IF F$SEARCH("DDSTART.OBJ").NES."" THEN DELE/'DELESIL' DDSTART.OBJ;* $ IF F$SEARCH("DDSTART.EXE").NES."" THEN GOTO PATTY $ NERROR = 1 $ WRITE SYS$OUTPUT "Unable to create DDSTART.EXE continue..." $ ! $ PATTY: $ WRITE SYS$OUTPUT "Compile and LINK system component 04/11 PATTY" $ IF F$SEARCH("PATTY.FOR") .NES."" THEN FORT/'FORTSIL' PATTY $ IF F$SEARCH("PATTY.EXE") .NES."" THEN DELE/'DELESIL' PATTY.EXE;* $ IF F$SEARCH("PATTY.OBJ") .NES."" THEN LINK/'LINKSIL' PATTY,NIJX/LIB $ IF F$SEARCH("PATTY.OBJ") .NES."" THEN DELE/'DELESIL' PATTY.OBJ;* $ IF F$SEARCH("PATTY.EXE") .NES."" THEN GOTO ORIENT $ NERROR = 1 $ WRITE SYS$OUTPUT "Unable to create PATTY.EXE continue..." $ ! $ ORIENT: $ WRITE SYS$OUTPUT "Compile and LINK system component 05/11 ORIENT" $ IF F$SEARCH("ORIENT.FOR") .NES."" THEN FORT/'FORTSIL' ORIENT $ IF F$SEARCH("ORIENT.EXE") .NES."" THEN DELE/'DELESIL' ORIENT.EXE;* $ IF F$SEARCH("ORIENT.OBJ") .NES."" THEN LINK/'LINKSIL' ORIENT,NIJX/LIB $ IF F$SEARCH("ORIENT.OBJ") .NES."" THEN DELE/'DELESIL' ORIENT.OBJ;* $ IF F$SEARCH("ORIENT.EXE") .NES."" THEN GOTO TRACOR $ NERROR = 1 $ WRITE SYS$OUTPUT "Unable to create ORIENT.EXE continue..." $ ! $ TRACOR: $ WRITE SYS$OUTPUT "Compile and LINK system component 06/11 TRACOR" $ IF F$SEARCH("TRACOR.FOR") .NES."" THEN FORT/'FORTSIL' TRACOR $ IF F$SEARCH("TRACOR.EXE") .NES."" THEN DELE/'DELESIL' TRACOR.EXE;* $ IF F$SEARCH("TRACOR.OBJ") .NES."" THEN LINK/'LINKSIL' TRACOR,NIJX/LIB $ IF F$SEARCH("TRACOR.OBJ") .NES."" THEN DELE/'DELESIL' TRACOR.OBJ;* $ IF F$SEARCH("TRACOR.EXE") .NES."" THEN GOTO TRAVEC $ NERROR = 1 $ WRITE SYS$OUTPUT "Unable to create TRACOR.EXE continue..." $ ! $ TRAVEC: $ WRITE SYS$OUTPUT "Compile and LINK system component 11/11 TRAVEC" $ IF F$SEARCH("TRAVEC.FOR") .NES."" THEN FORT/'FORTSIL' TRAVEC $ IF F$SEARCH("TRAVEC.EXE") .NES."" THEN DELE/'DELESIL' TRAVEC.EXE;* $ IF F$SEARCH("TRAVEC.OBJ") .NES."" THEN LINK/'LINKSIL' TRAVEC,NIJX/LIB $ IF F$SEARCH("TRAVEC.OBJ") .NES."" THEN DELE/'DELESIL' TRAVEC.OBJ;* $ IF F$SEARCH("TRAVEC.EXE") .NES."" THEN GOTO DDMAIN $ NERROR = 1 $ WRITE SYS$OUTPUT "Unable to create TRAVEC.EXE continue..." $ ! $ DDMAIN: $ WRITE SYS$OUTPUT "Compile and LINK system component 07/11 DDMAIN" $ IF F$SEARCH("DDMAIN.FOR") .NES."" THEN FORT/'FORTSIL' DDMAIN $ IF F$SEARCH("DDMAIN.EXE") .NES."" THEN DELE/'DELESIL' DDMAIN.EXE;* $ IF F$SEARCH("DDMAIN.OBJ") .NES."" THEN LINK/'LINKSIL' DDMAIN,NIJX/LIB $ IF F$SEARCH("DDMAIN.OBJ") .NES."" THEN DELE/'DELESIL' DDMAIN.OBJ;* $ IF F$SEARCH("DDMAIN.EXE") .NES."" THEN GOTO PHASEX $ NERROR = 1 $ WRITE SYS$OUTPUT "Unable to create DDMAIN.EXE continue..." $ ! $ PHASEX: $ WRITE SYS$OUTPUT "Compile and LINK system component 08/11 PHASEX" $ IF F$SEARCH("PHASEX.FOR") .NES."" THEN FORT/'FORTSIL' PHASEX $ IF F$SEARCH("PHASEX.EXE") .NES."" THEN DELE/'DELESIL' PHASEX.EXE;* $ IF F$SEARCH("PHASEX.OBJ") .NES."" THEN LINK/'LINKSIL' PHASEX,NIJX/LIB $ IF F$SEARCH("PHASEX.OBJ") .NES."" THEN DELE/'DELESIL' PHASEX.OBJ;* $ IF F$SEARCH("PHASEX.EXE") .NES."" THEN GOTO FOUR $ NERROR = 1 $ WRITE SYS$OUTPUT "Unable to create PHASEX.EXE continue..." $ ! $ FOUR: $ WRITE SYS$OUTPUT "Compile and LINK system component 09/11 FOUR" $ IF F$SEARCH("FOUR.FOR") .NES."" THEN FORT/'FORTSIL' FOUR $ IF F$SEARCH("FOUR.EXE") .NES."" THEN DELE/'DELESIL' FOUR.EXE;* $ IF F$SEARCH("FOUR.OBJ") .NES."" THEN LINK/'LINKSIL' FOUR,NIJX/LIB $ IF F$SEARCH("FOUR.OBJ") .NES."" THEN DELE/'DELESIL' FOUR.OBJ;* $ IF F$SEARCH("FOUR.EXE") .NES."" THEN GOTO NUTS $ NERROR = 1 $ WRITE SYS$OUTPUT "Unable to create FOUR.EXE continue..." $ ! $ NUTS: $ WRITE SYS$OUTPUT "Compile and LINK system component 10/11 NUTS" $ IF F$SEARCH("NUTS.FOR") .NES."" THEN FORT/'FORTSIL' NUTS $ IF F$SEARCH("NUTS.EXE") .NES."" THEN DELE/'DELESIL' NUTS.EXE;* $ IF F$SEARCH("NUTS.OBJ") .NES."" THEN LINK/'LINKSIL' NUTS,NIJX/LIB $ IF F$SEARCH("NUTS.OBJ") .NES."" THEN DELE/'DELESIL' NUTS.OBJ;* $ IF F$SEARCH("NUTS.EXE") .NES."" THEN GOTO READY $ NERROR = 1 $ WRITE SYS$OUTPUT "Unable to create NUTS.EXE continue..." $ ! $ READY: $ IF NERROR .EQ. 1 THEN GOTO ERROR $ WRITE SYS$OUTPUT "Store the DIRDIF.COM file into directory [DDROOT]" $ COPY/'DELESIL' [.DDFTP]DDEXEC.VAX DIRDIF.COM $ WRITE SYS$OUTPUT "The DIRDIF program system created successfully" $ GOTO STOP $ ! $ ERROR: $ TYPE SYS$INPUT ***** WARNING ***** Not all system components could be created successfully ***** Check the presence of the required FORTRAN source files ***** Try again after remedial action $ GOTO STOP $ ! $ NONIJX1: $ WRITE SYS$OUTPUT "Fatal error, file NIJX1.VAX missing" $ GOTO STOP $ ! $ NONIJX2: $ WRITE SYS$OUTPUT "Fatal error, file NIJX2.FOR missing" $ GOTO STOP $ ! $ NONIJX: $ WRITE SYS$OUTPUT "Fatal error, file NIJX.FOR not created" $ GOTO STOP $ ! $ NONIJXOBJ: $ WRITE SYS$OUTPUT "Fatal compilation error, file NIJX.OBJ not created" $ GOTO STOP $ ! $ NOLIBRARY: $ WRITE SYS$OUTPUT "Fatal error, unable to create NIJX library" $ ! $ STOP: $ DELE/'DELESIL' *.FOR;* $ DELE/'DELESIL' NIJX1.VAX;* $ ! end of DDMAKE.COM