date and time created 85/03/28 11:04:38 by ralph

[unix-history] / usr / src / usr.bin / f77 / libU77 / loc_.c

/*
char id_loc[] = "@(#)loc_.c     1.1";
*
* Return the address of the argument.
*
* calling sequence:
*      iloc = loc (arg)
* where:
*      iloc will receive the address of arg
*/

long loc_(arg)
long *arg;
{
       return((long)arg);
}