LOC - find the address of a Fortran object.

Usage:

iaddr = loc(obj)

Where:

obj: is a variable, array, function or subroutine whose address is wanted.
iaddr: is an integer with the address of "obj". The address is in the same format as stored by an LARn instruction.

Description:

LOC is used to obtain the address of something. The value returned is not really useful within Fortran, but may be needed for GMAP subroutines, or very special debugging.