rand_real_array Subroutine

  1. korc_rnd_numbers.f90
  2. korc_rnd_numbers
  3. rand_real_array

public subroutine rand_real_array(rrand)

Arguments

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

Calls

proc~~rand_real_array~~CallsGraph proc~rand_real_array rand_real_array proc~rand_int64 rand_int64 proc~rand_real_array->proc~rand_int64

Called by

proc~~rand_real_array~~CalledByGraph proc~rand_real_array rand_real_array interface~u_random u_random interface~u_random->proc~rand_real_array

Contents

Source Code

rand_real_array

Source Code

subroutine rand_real_array(rrand)
	REAL(rp), DIMENSION(:), INTENT(INOUT)  :: rrand
	INTEGER(8)                             :: irand64
    INTEGER                                :: ii ! Iterator

    do ii=1_idef,SIZE(rrand)
        	call rand_int64(irand64)
        rrand(ii) = rcoeff*REAL(irand64,rp) + 0.5_rp
    end do
end subroutine rand_real_array