igrnd Function

function igrnd(l, h)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: l
integer, intent(in) :: h

Return Value integer


Calls

proc~~igrnd~~CallsGraph proc~igrnd igrnd grnd grnd proc~igrnd->grnd

Source Code

integer function igrnd(l,h)
  integer,intent(in) :: l,h
  real(8)            :: u,r
  u=grnd()
  r=(h-l+1)*u+l
  igrnd=int(r)
  return
end function igrnd