VMS Help FORTRAN, Built-in Functions, %LOC  *Conan The Librarian (sorry for the slow response - running on an old VAX)

  %LOC (arg)
  Returns the actual storage address of a data element.  The argument
  can be any data value.  The result is an INTEGER*4 data type.  In
  the case of global symbols, %LOC returns the value of the symbol
  rather than its address.

  The %LOC built-in function serves the same purpose as the LOC
  intrinsic.