test_FieldGetCptr Subroutine

public subroutine test_FieldGetCptr(this)

Arguments

Type IntentOptional Attributes Name
class(MpiTestMethod), intent(inout) :: this

Calls

proc~~test_fieldgetcptr~~CallsGraph proc~test_fieldgetcptr test_FieldGetCptr interface~fieldgetcptr FieldGetCptr proc~test_fieldgetcptr->interface~fieldgetcptr proc~mapl_verify MAPL_Verify proc~test_fieldgetcptr->proc~mapl_verify proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine test_FieldGetCptr(this)
       class(MpiTestMethod), intent(inout) :: this
     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