11705Smckusick /* Copyright (c) 1979 Regents of the University of California */
21705Smckusick 
3*3032Smckusic static char sccsid[] = "@(#)SUBSCZ.c 1.2 03/07/81";
41705Smckusick 
51705Smckusick #include	"h01errs.h"
61705Smckusick 
7*3032Smckusic long
81705Smckusick SUBSCZ(i, upper)
91705Smckusick 
101705Smckusick 	long	i, upper;
111705Smckusick {
121705Smckusick 	if (i < 0 || i > upper) {
131705Smckusick 		ERROR(ESUBSC, i);
141705Smckusick 	}
151705Smckusick 	return i;
161705Smckusick }
17