11704Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21704Smckusick 3*3032Smckusic static char sccsid[] = "@(#)SUBSC.c 1.2 03/07/81"; 41704Smckusick 51704Smckusick #include "h01errs.h" 61704Smckusick 7*3032Smckusic long 81704Smckusick SUBSC(i, lower, upper) 91704Smckusick 101704Smckusick long i, lower, upper; 111704Smckusick { 121704Smckusick if (i < lower || i > upper) { 131704Smckusick ERROR(ESUBSC, i); 141704Smckusick } 151704Smckusick return i; 161704Smckusick } 17