.TITLE	LOCF - LOCATION FUNCTION
	.IDENT	/03MAY7/	;16:05:00  LV
;	.ENTRY	LOCF - LOCATION (OF ARGUMENT) FUNCTION
;+
; L O C F
;
; PURPOSE:	LOCF WILL RETURN AS ITS VALUE THE ADDRESS
;		OF ITS ARGUMENT
;
; INTERFACE:	CALLING SEQUENCE:  (FORTRAN-CALLABLE FUNCTION)
;			LOC=LOCF(VARNAM)
;
;		INPUT:	VARNAM = NAME OF VARIABLE WHOSE ADDRESS
;				IS DESIRED
;
;		OUTPUT:	LOC(INTEGER) = ADDRESS OF VARNAM
;
; LANGUAGE:	MACRO-11
;-
; REVISIONS:
;    APR-75	RK	WRITTEN
; 03-MAY-77	LV	UPDATED TO CONFORM TO STANDARDS
;
;
;	MACROS
	.MCALL	RETURN
;
;     PROGRAM FLOW--
;
LOCF::	MOV	2(R5),R0	;RETURN ADDRESS OF ARGUMENT
	RETURN			;THAT'S ALL!
	.END