fill_urand Interface

  1. math_prob.f90
  2. foreng_math_prob
  3. fill_urand

public interface fill_urand

Fill a rank 1, 2, or 3 array with a uniform random variable from min (inclusive) to max (inclusive for integer functions, exclusive for real)

Example usage:

integer, dimension(64) :: x_i32
real(real32), dimension(8, 8) :: x_r32
real(real64), dimension(4, 4, 4) :: x_64

call fill_urand(x_i32, 0, 10) ! Fill rank1, integer array
call fill_urand(x_r32, -1.0, 1.0) ! Fill rank2, real(real32) array
call fill_urand(x_r64, -10.d0, 10.d0) ! Fill rank3, real(real64) array

Contents

Module Procedures


Module Procedures

public subroutine fill_urand_rank1_r32(A, min, max)

Arguments

Type IntentOptional AttributesName
real(kind=real32), intent(inout), dimension(:):: A
real(kind=real32), intent(in) :: min
real(kind=real32), intent(in) :: max

public subroutine fill_urand_rank1_r64(A, min, max)

Arguments

Type IntentOptional AttributesName
real(kind=real64), intent(inout), dimension(:):: A
real(kind=real64), intent(in) :: min
real(kind=real64), intent(in) :: max

public subroutine fill_urand_rank1_i32(A, min, max)

Arguments

Type IntentOptional AttributesName
integer(kind=int32), intent(inout), dimension(:):: A
integer(kind=int32), intent(in) :: min
integer(kind=int32), intent(in) :: max

public subroutine fill_urand_rank1_i64(A, min, max)

Arguments

Type IntentOptional AttributesName
integer(kind=int64), intent(inout), dimension(:):: A
integer(kind=int64), intent(in) :: min
integer(kind=int64), intent(in) :: max

public subroutine fill_urand_rank2_r32(A, min, max)

Arguments

Type IntentOptional AttributesName
real(kind=real32), intent(inout), dimension(:,:):: A
real(kind=real32), intent(in) :: min
real(kind=real32), intent(in) :: max

public subroutine fill_urand_rank2_r64(A, min, max)

Arguments

Type IntentOptional AttributesName
real(kind=real64), intent(inout), dimension(:,:):: A
real(kind=real64), intent(in) :: min
real(kind=real64), intent(in) :: max

public subroutine fill_urand_rank2_i32(A, min, max)

Arguments

Type IntentOptional AttributesName
integer(kind=int32), intent(inout), dimension(:,:):: A
integer(kind=int32), intent(in) :: min
integer(kind=int32), intent(in) :: max

public subroutine fill_urand_rank2_i64(A, min, max)

Arguments

Type IntentOptional AttributesName
integer(kind=int64), intent(inout), dimension(:,:):: A
integer(kind=int64), intent(in) :: min
integer(kind=int64), intent(in) :: max

public subroutine fill_urand_rank3_r32(A, min, max)

Arguments

Type IntentOptional AttributesName
real(kind=real32), intent(inout), dimension(:,:,:):: A
real(kind=real32), intent(in) :: min
real(kind=real32), intent(in) :: max

public subroutine fill_urand_rank3_r64(A, min, max)

Arguments

Type IntentOptional AttributesName
real(kind=real64), intent(inout), dimension(:,:,:):: A
real(kind=real64), intent(in) :: min
real(kind=real64), intent(in) :: max

public subroutine fill_urand_rank3_i32(A, min, max)

Arguments

Type IntentOptional AttributesName
integer(kind=int32), intent(inout), dimension(:,:,:):: A
integer(kind=int32), intent(in) :: min
integer(kind=int32), intent(in) :: max

public subroutine fill_urand_rank3_i64(A, min, max)

Arguments

Type IntentOptional AttributesName
integer(kind=int64), intent(inout), dimension(:,:,:):: A
integer(kind=int64), intent(in) :: min
integer(kind=int64), intent(in) :: max