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