diff options
Diffstat (limited to 'src/slalib/put.com')
| -rwxr-xr-x | src/slalib/put.com | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/src/slalib/put.com b/src/slalib/put.com new file mode 100755 index 0000000..fc42fe8 --- /dev/null +++ b/src/slalib/put.com @@ -0,0 +1,38 @@ +$! +$! - - - - +$! P U T +$! - - - - +$! +$! Update one SLALIB routine from Fortran source +$! +$! DCL command is @PUT file +$! +$! The default directory must be the one containing the +$! Fortran source, with the libraries in [.RELEASE]. +$! +$! P T Wallace Starlink 22 January 1993 +$! +$! Save supplied file name and strip recognized extensions +$ FILE=''P1'' +$ P1=P1-".FOR"-".VAX" +$! +$! No action required for TEST program + IF P1.EQS."TEST" THEN $ GOTO DONE +$! +$! If platform-specific module, make .FOR file ... +$ IF F$SEARCH("''P1'.VAX").NES."" THEN $ COPY 'P1'.VAX *.FOR +$! +$! Update the source library +$ LIBR/REPL/TEXT [.RELEASE]SLALIB.TLB 'P1'.FOR +$! +$! Compile, update object library, delete object +$ FORTRAN/NOLIST 'P1'.FOR +$ LIBR/REPL [.RELEASE]SLALIB.OLB 'P1'.OBJ +$ DELETE 'P1'.OBJ;* +$! +$! If module just updated was platform-specific, delete the .FOR version +$ IF F$SEARCH("''P1'.VAX",1).NES."" THEN $ DELETE 'P1'.FOR;* +$! +$! Finished +$DONE: +$ EXIT |