test_FieldGetCptr Subroutine

public subroutine test_FieldGetCptr()

Arguments

None

Calls

proc~~test_fieldgetcptr~~CallsGraph proc~test_fieldgetcptr Test_FieldBLAS::test_FieldGetCptr interface~fieldgetcptr MAPL_FieldPointerUtilities::FieldGetCptr proc~test_fieldgetcptr->interface~fieldgetcptr proc~mapl_verify MAPL_ErrorHandlingMod::MAPL_Verify proc~test_fieldgetcptr->proc~mapl_verify proc~mapl_throw_exception MAPL_ThrowMod::MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine test_FieldGetCptr()
      type(ESMF_Field) :: x
      type(c_ptr) :: cptr
      integer :: status, rc

      x = XR4
      call FieldGetCptr(x, cptr, _RC)
      x = XR8
      call FieldGetCptr(x, cptr, _RC)

   end subroutine test_FieldGetCptr