11705Smckusick /* Copyright (c) 1979 Regents of the University of California */
21705Smckusick 
3*3869Smckusic static char sccsid[] = "@(#)SUBSCZ.c 1.3 06/10/81";
41705Smckusick 
51705Smckusick 
63032Smckusic long
71705Smckusick SUBSCZ(i, upper)
81705Smckusick 
91705Smckusick 	long	i, upper;
101705Smckusick {
111705Smckusick 	if (i < 0 || i > upper) {
12*3869Smckusic 		ERROR("Subscript value of %D is out of range\n", i);
13*3869Smckusic 		return;
141705Smckusick 	}
151705Smckusick 	return i;
161705Smckusick }
17