.STANDARD;.FL CAPITALIZE
.TITLE <GETVER - ^^GETTING THE VERSION NUMBER OF A FILE 
.PAGE
.INDENT 50
<GETVER
.SKIP 1
.CENTER
GETVER - ^^GETTING THE VERSION NUMBER OF A FILE 
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: GETVER\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^IN MOST CASES OF FILE NAME SPECIFICATION, VERSION NUMBERS OF FILES ARE 
RARELY SPECIFIED EXPLICITLY.  ^THE DEFAULT <FCS USES IS VERSION 0 IE. THE
MOST RECENT VERSION OF A FILE.
.PARAGRAPH
^ONE USEFUL APPLICATION OF <GETVER WAS FOR A COMPILE LINK AND GO ROUTINE
WHERE A SCRATCH FILE WAS KEPT FOR VARIOUS USER PROGRAM ATTRIBUTES.  ^ONE
OF THESE PARAMETERS WAS THE USER'S SOURCE FILE VERSION NUMBER.
  ^WHEN THE USER MADE MODIFICATIONS TO THE SOURCE
AND TYPED '<GO' A VERSION NUMBER CHECK WAS MAKE TO DETERMINE IF IT WAS NECESSARY
TO COMPILE AGAIN.  ^IF THE VERSION NUMBER DID NOT CHANGE THE SOURCE WAS
NOT RECOMPILED.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM <FORTRAN - ^^VERNO=GETVER(\\LUN)
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ LUN = LOGICAL UNIT NUMBER
.SKIP 1
.INDENT -10
^^ROUTINE USED:\\ ^THE <FORTRAN <RTS ROUTINES <$FCHNL
.SKIP 1
.INDENT -10
^^EXAMPLE:\\ 
.SKIP
.LEFT MARGIN 2
.NOFILL
C	CHECK HIS VERSION NUMBER TO SEE IF WE SHOULD
^C	RECOMPILE.
C
	^^READ(SCRLUN'VERPNT)OLDVER
	NEWVER=GETVER(SOURCE)
	IF(NEWVER .EQ. OLDVER) GO TO 890
C
C \\^THE OLD VERSION IS DIFFERENT SO COMPILE THE NEW VERSION
^C AND UPDATE THE PARAMETER FILE.
^^C
	WRITE(SCRLUN'VERPNT)NEWVER
	CALL COMPILE
	.
	.
	.
.PAGE
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^^JACK MARTINELLI
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^^SEPTEMBER 1977
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ <MACRO-11
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ <GETVER
.SKIP 1
.INDENT -10
^^LIBRARY:\\ <DP:[60,60]CETUS
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ ^STILL UNMODIFIED.
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ NOT FORMALLY MAINTAINED.
.SKIP 1
.INDENT -10