83 lines
2.6 KiB
Plaintext
83 lines
2.6 KiB
Plaintext
$ set noverify
|
|
$!==============================================================================
|
|
$! Author: Anselm Hofer
|
|
$!
|
|
$! Commandoprozedur fuer das Compilieren und Linken des kompletten MUTRACK-
|
|
$! Quelltextes. Aufzurufen mittels '$ LINKMUV'. ('V' steht fuer 'Vollstaendig').
|
|
$!==============================================================================
|
|
$ set noon
|
|
$!==============================================================================
|
|
$ prog= "mutrack"
|
|
$ ext = "_MU"
|
|
$!==============================================================================
|
|
$ sourceDir = "''prog'$SOURCEdirectory"
|
|
$ objectDir = "''prog'$OBJdirectory"
|
|
$ executeDir = "''prog'$EXEdirectory"
|
|
$!==============================================================================
|
|
$ options = "/fast /nolist"
|
|
$! options = "/fast /nolist /warn=nogeneral"
|
|
$!==============================================================================
|
|
$ archi = F$GETSYI("ARCH_NAME") ! Host OS either "VAX" or "Alpha"
|
|
$ ext = "''ext'_''archi'"
|
|
$ if archi .EQS. "VAX" then options = ""
|
|
$ if P1 .NES. "" then options = "''options' ''P1'"
|
|
$
|
|
$ file = "MUTRACK"
|
|
$ CALL compile
|
|
$ file = "SUB_ARTLIST
|
|
$ CALL compile
|
|
$ file = "SUB_INTEGR_L1
|
|
$ CALL compile
|
|
$ file = "SUB_INTEGR_SP
|
|
$ CALL compile
|
|
$ file = "SUB_INTEGR_L2andFo
|
|
$ CALL compile
|
|
$ file = "SUB_INTEGR_FO
|
|
$ CALL compile
|
|
$ file = "SUB_INTEGR_L3
|
|
$ CALL compile
|
|
$ file = "SUB_INTEGR_M2
|
|
$ CALL compile
|
|
$ file = "SUB_INPUT
|
|
$ CALL compile
|
|
$ file = "SUB_PICTURE
|
|
$ CALL compile
|
|
$ file = "SUB_OUTPUT
|
|
$ CALL compile
|
|
$ file = "SUB_TRIGGER
|
|
$ CALL compile
|
|
$ file = "SUB_ELOSS"
|
|
$ CALL compile
|
|
$!==============================================================================
|
|
$ set verify
|
|
$ purge 'objectDir':*.OBJ
|
|
$ link -
|
|
'objectDir':MUTRACK'ext', -
|
|
'objectDir':SUB_ARTLIST'ext', -
|
|
'objectDir':SUB_INTEGR_L1'ext', -
|
|
'objectDir':SUB_INTEGR_SP'ext', -
|
|
'objectDir':SUB_INTEGR_L2andFo'ext', -
|
|
'objectDir':SUB_INTEGR_FO'ext', -
|
|
'objectDir':SUB_INTEGR_L3'ext', -
|
|
'objectDir':SUB_INTEGR_M2'ext', -
|
|
'objectDir':SUB_INPUT'ext', -
|
|
'objectDir':SUB_PICTURE'ext', -
|
|
'objectDir':SUB_OUTPUT'ext',-
|
|
'objectDir':SUB_TRIGGER'ext', -
|
|
'objectDir':SUB_ELOSS'ext', -
|
|
'cernlibs' /exe='executeDir':MUTRACK_'archi'
|
|
$ purge 'executeDir':*.EXE
|
|
$ set on
|
|
$ set noverify
|
|
$ EXIT
|
|
$
|
|
$!==============================================================================
|
|
$
|
|
$ COMPILE: SUBROUTINE
|
|
$ comp = "fortran ''sourceDir':''file' ''options' /object=''objectDir':''file'''ext'"
|
|
$ write sys$output "=============================================================================="
|
|
$ write sys$output "''COMP'"
|
|
$ comp
|
|
$ ENDSUBROUTINE
|
|
$!==============================================================================
|