11704Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21704Smckusick 3*9136Smckusick static char sccsid[] = "@(#)SUBSC.c 1.4 11/12/82"; 41704Smckusick 5*9136Smckusick char ESUBSC[] = "Subscript value of %D is out of range\n"; 61704Smckusick 73032Smckusic long 81704Smckusick SUBSC(i, lower, upper) 91704Smckusick 101704Smckusick long i, lower, upper; 111704Smckusick { 121704Smckusick if (i < lower || i > upper) { 13*9136Smckusick ERROR(ESUBSC, i); 143869Smckusic return; 151704Smckusick } 161704Smckusick return i; 171704Smckusick } 18