tem_spatial_random_for Function

private function tem_spatial_random_for(me, n) result(res)

Produce random numbers

Arguments

Type IntentOptional Attributes Name
type(spatial_random_type), intent(in) :: me

Interval definition to get the random values from.
integer, intent(in) :: n

number of return values

Return Value real(kind=rk), (n)

return value of a function


Source Code

  function tem_spatial_random_for( me, n ) result(res)
    ! -------------------------------------------------------------------- !
    !> Interval definition to get the random values from.
    type(spatial_random_type), intent(in) :: me
    !> number of return values
    integer, intent(in) :: n
    !> return value of a function
    real(kind=rk) :: res(n)
    ! -------------------------------------------------------------------- !

    call random_number(res)
    res = me%val_min + me%val_range*res

  end function tem_spatial_random_for