.STANDARD;.FL CAPITALIZE;
.TITLE <DELETE- ^^DELETING A FILE FROM FORTRAN
.PAGE
.INDENT 50
<DELETE
.SKIP 1
.CENTER
<DELETE- ^^DELETING A FILE FROM FORTRAN
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: <DELETE\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^THIS ROUTINE WILL DELETE THE FILE ASSOCIATED WITH THE LOGICAL UNIT
NUMBER GIVEN THE ONE AND ONLY ARGUMENT.  <DELETE CAN BE USED A A FUNCTION
TO GET THE <FCS ERROR STATUS OF THE DELETE OPERATION.  ^IT IS 
QUITE USEFUL TO DELETE A SCRATCH FILE DURING RUN TIME.
(NOTE: THE FILE MUST BE OPEN, OR <FDBSET MUST BE USED TO FILL IN THE 
REQUIRED INFO. IN THE FDB).  ^INVALID <LUN WILL RESULT IN A <FORTRAN ERROR
TRAPPED BY THE <FORTRAN <RTS.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM <FORTRAN - ^^CALL DELETE(\\LUN)
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ LUN = LOGICAL UNIT NUMBER
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ ^^DELET$, $FCHNL, $OTSV
.SKIP 1
.INDENT -10
^^EXAMPLE:\\ 
.SKIP
.LEFT MARGIN 2
.NOFILL
PROGRAM TO EXCHANGE THREE INTEGER FIELDS.

^^	CALL ASSIGN (1,'DATA.DAT')
	CALL ASSIGN (2,'SCRATCH')
	DO 100 I=1,NLINES
	READ(1,END=99)IVAL1,IVAL2,IVAL3
100	WRITE(2)      IVAL3,IVAL1,IVAL2
	CALL DELETE (1) *\\*********  DELETE THE OLD FILE.^^
99	CALL RENAME (2,'DATA.DAT') !\\CREATE A NEW ONE.
^^	CALL EXIT
	END
.SKIP 1
.INDENT -10
^^FEATURES:\\ CALLABLE FROM <FORTRAN AS A FUNTION OR A SUBROUTINE.
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^^MIKE HIGGINS
.SKIP 1
.INDENT -10
^^WRITTEN:\\ SOME TIME A GO
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ <MACRO-11
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ <DELETE
.SKIP 1
.INDENT -10
^^LIBRARY:\\ <DP:[60,60]CETUS.OLB
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ UNKNOWN
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ NOT FORMALLY MAINTAINED.
.SKIP 1
.INDENT -10