11704Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21704Smckusick 3*3869Smckusic static char sccsid[] = "@(#)SUBSC.c 1.3 06/10/81"; 41704Smckusick 51704Smckusick 63032Smckusic long 71704Smckusick SUBSC(i, lower, upper) 81704Smckusick 91704Smckusick long i, lower, upper; 101704Smckusick { 111704Smckusick if (i < lower || i > upper) { 12*3869Smckusic ERROR("Subscript value of %D is out of range\n", i); 13*3869Smckusic return; 141704Smckusick } 151704Smckusick return i; 161704Smckusick } 17