rand_real Subroutine

  1. korc_rnd_numbers.f90
  2. korc_rnd_numbers
  3. rand_real

private subroutine rand_real(rrand)

Arguments

Type IntentOptional AttributesName
real(kind=rp), intent(out) :: rrand

Calls

proc~~rand_real~~CallsGraph proc~rand_real rand_real proc~rand_int64 rand_int64 proc~rand_real->proc~rand_int64

Called by

proc~~rand_real~~CalledByGraph proc~rand_real rand_real interface~u_random u_random interface~u_random->proc~rand_real

Contents

Source Code

rand_real

Source Code

subroutine rand_real(rrand)
	REAL(rp), INTENT(OUT)  :: rrand
	INTEGER(8)             :: irand64

 	call rand_int64(irand64)
    rrand = rcoeff*REAL(irand64,rp) + 0.5_rp
end subroutine rand_real