initialize_array_R8 Subroutine

public subroutine initialize_array_R8(x, xmin, xrange)

Arguments

Type IntentOptional Attributes Name
real(kind=ESMF_KIND_R8), intent(inout) :: x(:,:)
real(kind=ESMF_KIND_R8), intent(in) :: xmin
real(kind=ESMF_KIND_R8), intent(in) :: xrange

Calls

proc~~initialize_array_r8~~CallsGraph proc~initialize_array_r8 initialize_array_R8 interface~mapl_assert MAPL_Assert proc~initialize_array_r8->interface~mapl_assert

Called by

proc~~initialize_array_r8~~CalledByGraph proc~initialize_array_r8 initialize_array_R8 interface~initialize_array initialize_array interface~initialize_array->proc~initialize_array_r8 proc~test_fieldconvertprec_r4r8 test_FieldConvertPrec_R4R8 proc~test_fieldconvertprec_r4r8->interface~initialize_array

Source Code

   subroutine initialize_array_R8(x, xmin, xrange)
      real(ESMF_KIND_R8), intent(inout) :: x(:,:)
      real(ESMF_KIND_R8), intent(in) :: xmin
      real(ESMF_KIND_R8), intent(in) :: xrange
      integer :: rc

      _ASSERT(xrange > 0, 'Range for random numbers must be positive.')
      call random_number(x)
      x = xrange * x + xmin

   end subroutine initialize_array_R8