2.9BSD - /usr/src/lib/libU77/loc_.c

   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: #include    "../libI77/fiodefs.h"
  13: 
  14: ftnint loc_(arg)
  15: ftnint *arg;
  16: {
  17:     return((ftnint)arg);
  18: }

Defined functions