2.9BSD - /usr/src/lib/libF77/short_.c

   1: /*
   2:  *	"@(#)short_.c	1.1"
   3:  */
   4: 
   5: /*
   6:  * convert long ints to short.
   7:  *
   8:  * used as follows:
   9:  *	integer*2 short
  10:  *	...
  11:  *	call mysub(short(ivar))
  12:  * where:
  13:  *	mysub expects to receive an integer*2 arg and ivar is integer*4
  14:  */
  15: 
  16: short short_(i)
  17: long *i;
  18: {   return((short)*i);  }

Defined functions