11678Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21678Smckusick 3*3018Smckusic static char sccsid[] = "@(#)RANG4.c 1.2 03/07/81"; 41678Smckusick 51678Smckusick #include "h01errs.h" 61678Smckusick 7*3018Smckusic long 81678Smckusick RANG4(value, lower, upper) 91678Smckusick 10*3018Smckusic long value; 11*3018Smckusic long lower; 12*3018Smckusic long upper; 131678Smckusick { 141678Smckusick if (value < lower || value > upper) { 151678Smckusick ERROR(ERANGE, value); 161678Smckusick return; 171678Smckusick } 181678Smckusick return value; 191678Smckusick } 20