Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_VM), | intent(inout) | :: | vm | |||
type(ESMF_Pointer), | intent(in) | :: | this | |||
integer, | intent(out), | optional | :: | rc |
recursive subroutine ESMF_VMSetThis(vm, this, rc) ! ! !ARGUMENTS: type(ESMF_VM), intent(inout) :: vm type(ESMF_Pointer), intent(in) :: this integer, intent(out), optional :: rc ! ! ! !DESCRIPTION: ! Set C++ pointer in VM. ! ! The arguments are: ! \begin{description} ! \item[vm] ! Specified {\tt ESMF\_VM} object. ! \item[this] ! C++ pointer. ! \item[{[rc]}] ! Return code; equals {\tt ESMF\_SUCCESS} if there are no errors. ! \end{description} ! !EOPI !------------------------------------------------------------------------------ ! initialize return code; assume routine not implemented if (present(rc)) rc = ESMF_RC_NOT_IMPL ! Copy C++ pointer vm%this = this ! return successfully if (present(rc)) rc = ESMF_SUCCESS end subroutine ESMF_VMSetThis