LMU/musrsim
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added to repository.

Browse Source
This commit is contained in:
prokscha
2005-03-22 10:33:08 +00:00
parent d1a54adc4a
commit bad53d7f6c
125 changed files with 42837 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
mutrack/com/LINKMUV.COM Normal file
View File

@@ -0,0 +1,82 @@
$ 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
$!==============================================================================