.NONUMBER
.FLAGS CAPITALIZE;.STANDARD
.TITLE <RENAME- ^^CHANGING A FILE NAME FROM FORTRAN
.PAGE
.INDENT 49
<RENAME
.SKIP 1
.CENTER
<RENAME- ^^CHANGING A FILE NAME FROM FORTRAN
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: <RENAME\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ <RENAME IS A ROUTINE USED TO CHANGE A FILE NAME BY
ITS <LUN AND CLOSE IT.  ^THE NEW FILE NAME GIVEN IS SPECIFIED BY THE 
SECOND ARGUMENT - A BYTE ARRAY CONTAINING THE NEW FILE NAME.  ^THIS ARRAY MUST BE 
TERMINATED BY A NULL.  ^THE FILE THAT IS BEING RENAMED
MUST BE OPEN BEFORE A CALL TO <RENAME.  <RENAME CAN BE CALLED AS A SUBROUTINE OFR
USED AS A FUNCTION.  ^THE VALUE OF THE FUNCTION IS THE <FCS ERROR CODE.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM <FORTRAN - ^^CALL RENAME(LUN,NEWFIL)
.BREAK
\\OR ^^ FCS=RENAME(LUN,NEWFIL)
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ 
.SKIP ;.INDENT -9
^^LUN\\------^LOGICAL UNIT NUMBER
.SKIP ;.INDENT -9
^^NEWFIL\\---^THE NEW FILE NAME - A BYTE ARRAY TERMINATED BY A NULL.
.SKIP ;.INDENT -9
^^FCS\\-----^THE FCS ERROR CODE.
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ ^^$FCHNL, FCBDF$, FDOP$R, NMBLK$
.SKIP 1
.INDENT -10
^^EXAMPLE:\\ 
.SKIP
.LM 2
.NOFILL
.UC
C
C   PROGRAM TO EXCHANG THREE INTEGER FIELDS.
C
	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 CLOSE(1)
99	FCS=RENAME(2,'DATA.DAT') !CREATE NEW VERSION.
	CALL EXIT
	END
.FILL
.LC
.LM 10
.BREAK
.SKIP 1
.INDENT -10
^^AUTHOR:\\ <MIKE <HIGGINS
.SKIP 1
.INDENT -10
^^WRITTEN:\\ <JANUARY 1977
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ <MACRO-11
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ <RENAME
.SKIP 1
.INDENT -10
^^LIBRARY:\\ <DP:[60,60]CETUS
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ LONG AGO
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^MIKE ^HIGGINS OR ^LINDA ^MUNDY
.SKIP 1
.INDENT -10