140865Sbostic /*- 2*62096Sbostic * Copyright (c) 1979, 1993 3*62096Sbostic * The Regents of the University of California. All rights reserved. 440865Sbostic * 540865Sbostic * %sccs.include.redist.c% 640865Sbostic */ 71704Smckusick 840865Sbostic #ifndef lint 9*62096Sbostic static char sccsid[] = "@(#)SUBSC.c 8.1 (Berkeley) 06/06/93"; 1040865Sbostic #endif /* not lint */ 111704Smckusick 129136Smckusick char ESUBSC[] = "Subscript value of %D is out of range\n"; 131704Smckusick 143032Smckusic long SUBSC(i,lower,upper)151704SmckusickSUBSC(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