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

   1: /*
   2:  * Copyright (c) 1980 Regents of the University of California.
   3:  * All rights reserved.  The Berkeley software License Agreement
   4:  * specifies the terms and conditions for redistribution.
   5:  *
   6:  *	@(#)short_.c	5.1	6/7/85
   7:  */
   8: 
   9: /*
  10:  * convert long ints to short.
  11:  *
  12:  * used as follows:
  13:  *	integer*2 short
  14:  *	...
  15:  *	call mysub(short(ivar))
  16:  * where:
  17:  *	mysub expects to receive an integer*2 arg and ivar is integer*4
  18:  */
  19: 
  20: short short_(i)
  21: long *i;
  22: {   return((short)*i);  }

Defined functions