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); } 19