1*40865Sbostic /*- 2*40865Sbostic * Copyright (c) 1979 The Regents of the University of California. 3*40865Sbostic * All rights reserved. 4*40865Sbostic * 5*40865Sbostic * %sccs.include.redist.c% 6*40865Sbostic */ 71704Smckusick 8*40865Sbostic #ifndef lint 9*40865Sbostic static char sccsid[] = "@(#)SUBSC.c 1.6 (Berkeley) 04/09/90"; 10*40865Sbostic #endif /* not lint */ 111704Smckusick 129136Smckusick char ESUBSC[] = "Subscript value of %D is out of range\n"; 131704Smckusick 143032Smckusic long 151704Smckusick SUBSC(i, lower, upper) 161704Smckusick 171704Smckusick long i, lower, upper; 181704Smckusick { 191704Smckusick if (i < lower || i > upper) { 209136Smckusick ERROR(ESUBSC, i); 211704Smckusick } 221704Smckusick return i; 231704Smckusick } 24