1 /* Copyright (c) 1979 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)SUBSC.c 1.3 06/10/81"; 4 5 6 long 7 SUBSC(i, lower, upper) 8 9 long i, lower, upper; 10 { 11 if (i < lower || i > upper) { 12 ERROR("Subscript value of %D is out of range\n", i); 13 return; 14 } 15 return i; 16 } 17