1 /*
2 char id_loc[] = "@(#)loc_.c 1.1";
3 *
4 * Return the address of the argument.
5 *
6 * calling sequence:
7 * iloc = loc (arg)
8 * where:
9 * iloc will receive the address of arg
10 */
11
12 long loc_(arg)
13 long *arg;
14 {
15 return((long)arg);
16 }
17