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