.enable global .enable substitution .; install.cmd 26-Oct-84 .; install a rms, remote rms .parse "," proj prog .parse proj "[" junk proj .seto prj .setn prj 'proj' .if prj < 10 .goto gotprv ; *** warning! you must be in a priveliged uic to do these things .ask ok continue anyway, knowing some things will fail .ift ok .goto gotprv .exit .gotprv: .goto aftsub .makmac: .; make a short macro program to use as a fortran callable RMS hook .; then compile the program .; in: .; arg1 = 3-letter abbreviation of RMS routine .; arg2 = $mumble name of rms macro to use .; rmslb = string name of rms library - don't forget the .olb .; wotlib = string purpose of library .parse comman " " prgabr rmsnam .sets prgnam "rms"+prgabr .sets prglng "sy:"++prgnam+".mac" ; creating 'prglng' .sets ident "/"+[1:2]+[4:6]+[9.:9.]+"/" .open #0 'prglng' .testfile 'prglng' .sets actual "''" .data #1 pip 'actual'/de/nm .enable data #0 .title 'prgnam' - fortran callable RMS v2.0 subroutine ; 'actual' created by '''p0' on '' '