Produce random numbers
Type | Intent | Optional | 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 of a function
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