C+
C NAME:
C	smei_skyd_fixvalue
C PURPOSE:
C	Make sure value is in range [val_lo, val_hi]
C CALLING SEQUENCE:
	subroutine smei_skyd_fixvalue(val,val_lo,val_hi)
C INPUTS:
C	val		real
C	val_lo		real
C	val_hi		real
C OUTPUTS:
C	val		real
C MODIFICATION HISTORY:
C	OCT-2006, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    real	val
	    real	val_lo
	    real	val_hi

	if (val .le. val_lo) then
	    val = val+(val_hi-val_lo)
	else if (val .gt. val_hi) then
	    val = val-(val_hi-val_lo)
	end if

	return
	end