1: /* Copyright (c) 1979 Regents of the University of California */ 2: 3: static char sccsid[] = "@(#)SUBSCZ.c 1.4 11/12/82"; 4: 5: extern char ESUBSC[]; /* ESUBSC is defined in SUBSCZ.c */ 6: 7: long 8: SUBSCZ(value, upper) 9: long value; 10: unsigned long upper; 11: { 12: if (value > upper) { 13: ERROR(ESUBSC, value); 14: return; 15: } 16: return value; 17: }