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

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