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

28
mutrack/com/COMPILE.COM Normal file
View File

@ -0,0 +1,28 @@
$ set noverify
$!==============================================================================
$! Author: Anselm Hofer
$!
$! Commandoprozedur fuer das Compilieren einzelner MUTRACK oder ACCEL-Sourcecode
$! Dateien. Aufzurufen mittels '$ FORMU dateiName' bzw. '$ FORAC dateiName':
$!==============================================================================
$ progr = P1 ! = 'MUTRACK' oder 'ACCEL'
$ ext = P2 ! = '_MU' oder '_AC'
$ file = P3 ! = Name der .FOR-Datei (ohne Extension)
$!==============================================================================
$ file = file - ".FOR"
$ options = "/fast"
$!options = "/align=all"
$!==============================================================================
$ archi = F$GETSYI("ARCH_NAME") ! Host OS either "VAX" or "Alpha"
$ if archi .EQS. "VAX" then options = ""
$ if P4 .NES. "" then options = "''options' ''P4'"
$ ext = "''ext'_''archi'"
$
$ sourceFile = "''progr'$SOURCEdirectory:''file'"
$ objectFile = "''progr'$OBJdirectory:''file'''ext'"
$ listFile = "''progr'$OBJdirectory:''file'''ext'.lis"
$!==============================================================================
$ set verify
$ fortran/extend 'sourceFile' /object='objectFile' 'options'
$ set noverify
$! /list='listFile'