11698Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21698Smckusick 3*9136Smckusick static char sccsid[] = "@(#)RSNG4.c 1.4 11/12/82"; 41698Smckusick 5*9136Smckusick extern char ERANG[]; /* ERANG is defined in RANG4.c */ 61698Smckusick 73029Smckusic long 81698Smckusick RSNG4(value, upper) 9*9136Smckusick long value; 10*9136Smckusick unsigned long upper; 111698Smckusick { 12*9136Smckusick if (value > upper) { 13*9136Smckusick ERROR(ERANG, value); 141698Smckusick return; 151698Smckusick } 161698Smckusick return value; 171698Smckusick } 18