initialize_array_R4 Subroutine

public subroutine initialize_array_R4(x, xmin, xrange)

Arguments

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

Calls

proc~~initialize_array_r4~~CallsGraph proc~initialize_array_r4 initialize_array_R4 interface~mapl_assert MAPL_Assert proc~initialize_array_r4->interface~mapl_assert

Called by

proc~~initialize_array_r4~~CalledByGraph proc~initialize_array_r4 initialize_array_R4 interface~initialize_array initialize_array interface~initialize_array->proc~initialize_array_r4 proc~test_fieldconvertprec_r4r8 test_FieldConvertPrec_R4R8 proc~test_fieldconvertprec_r4r8->interface~initialize_array

Source Code

   subroutine initialize_array_R4(x, xmin, xrange)
      real(ESMF_KIND_R4), intent(inout) :: x(:,:)
      real(ESMF_KIND_R4), intent(in) :: xmin
      real(ESMF_KIND_R4), 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_R4