1*1705Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*1705Smckusick 
3*1705Smckusick static char sccsid[] = "@(#)SUBSCZ.c 1.1 10/30/80";
4*1705Smckusick 
5*1705Smckusick #include	"h01errs.h"
6*1705Smckusick 
7*1705Smckusick SUBSCZ(i, upper)
8*1705Smckusick 
9*1705Smckusick 	long	i, upper;
10*1705Smckusick {
11*1705Smckusick 	if (i < 0 || i > upper) {
12*1705Smckusick 		ERROR(ESUBSC, i);
13*1705Smckusick 	}
14*1705Smckusick 	return i;
15*1705Smckusick }
16