diff options
| author | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-03-04 21:21:30 -0500 |
|---|---|---|
| committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-03-04 21:21:30 -0500 |
| commit | d54fe7c1f704a63824c5bfa0ece65245572e9b27 (patch) | |
| tree | afc52015ffc2c74e0266653eecef1c8ef8ba5d91 /src/slalib/put.com | |
| download | calfuse-d54fe7c1f704a63824c5bfa0ece65245572e9b27.tar.gz | |
Initial commit
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 |