ESMF_RouteHandleGetThis Subroutine

public subroutine ESMF_RouteHandleGetThis(rh, this, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_RouteHandle), intent(in) :: rh
type(ESMF_Pointer), intent(out) :: this
integer, intent(inout), optional :: rc

Called by

proc~~esmf_routehandlegetthis~~CalledByGraph proc~esmf_routehandlegetthis ESMF_RouteHandleGetThis proc~updatewithroutehandle ESMF_InfoDescribe%updateWithRouteHandle proc~updatewithroutehandle->proc~esmf_routehandlegetthis none~update ESMF_InfoDescribe%Update none~update->proc~updatewithroutehandle proc~esmf_attributecopyarraybundletoarraybundle ESMF_AttributeCopyArrayBundleToArrayBundle proc~esmf_attributecopyarraybundletoarraybundle->none~update proc~esmf_attributecopyarraytoarray ESMF_AttributeCopyArrayToArray proc~esmf_attributecopyarraytoarray->none~update proc~esmf_attributecopycplcomptocplcomp ESMF_AttributeCopyCplCompToCplComp proc~esmf_attributecopycplcomptocplcomp->none~update proc~esmf_attributecopydistgridtodistgrid ESMF_AttributeCopyDistGridToDistGrid proc~esmf_attributecopydistgridtodistgrid->none~update proc~esmf_attributecopyfieldbundletofieldbundle ESMF_AttributeCopyFieldBundleToFieldBundle proc~esmf_attributecopyfieldbundletofieldbundle->none~update proc~esmf_attributecopyfieldtofield ESMF_AttributeCopyFieldToField proc~esmf_attributecopyfieldtofield->none~update proc~esmf_attributecopygridcomptogridcomp ESMF_AttributeCopyGridCompToGridComp proc~esmf_attributecopygridcomptogridcomp->none~update proc~esmf_attributecopygridtogrid ESMF_AttributeCopyGridToGrid proc~esmf_attributecopygridtogrid->none~update proc~esmf_attributecopylocstreamtolocstream ESMF_AttributeCopyLocStreamToLocStream proc~esmf_attributecopylocstreamtolocstream->none~update proc~esmf_attributecopymeshtomesh ESMF_AttributeCopyMeshToMesh proc~esmf_attributecopymeshtomesh->none~update proc~esmf_attributecopyscicomptoscicomp ESMF_AttributeCopySciCompToSciComp proc~esmf_attributecopyscicomptoscicomp->none~update proc~esmf_attributecopystatetostate ESMF_AttributeCopyStateToState proc~esmf_attributecopystatetostate->none~update proc~esmf_infocacheupdatefields ESMF_InfoCache%ESMF_InfoCacheUpdateFields proc~esmf_infocacheupdatefields->none~update proc~esmf_infosynccplcomp ESMF_InfoSyncCplComp proc~esmf_infosynccplcomp->none~update proc~esmf_infosyncfield ESMF_InfoSyncField proc~esmf_infosyncfield->none~update proc~esmf_infosyncfieldbundle ESMF_InfoSyncFieldBundle proc~esmf_infosyncfieldbundle->none~update proc~esmf_infosyncgridcomp ESMF_InfoSyncGridComp proc~esmf_infosyncgridcomp->none~update proc~esmf_infosyncscicomp ESMF_InfoSyncSciComp proc~esmf_infosyncscicomp->none~update proc~esmf_infosyncstate ESMF_InfoSyncState proc~esmf_infosyncstate->none~update proc~fillmembersarraybundle ESMF_InfoDescribe%fillMembersArrayBundle proc~fillmembersarraybundle->none~update proc~fillmembersfield ESMF_InfoDescribe%fillMembersField proc~fillmembersfield->none~update proc~fillmembersfieldbundle ESMF_InfoDescribe%fillMembersFieldBundle proc~fillmembersfieldbundle->none~update proc~fillmembersstate ESMF_InfoDescribe%fillMembersState proc~fillmembersstate->none~update program~esmf_infocacheutest ESMF_InfoCacheUTest program~esmf_infocacheutest->none~update program~esmf_infodescribeutest ESMF_InfoDescribeUTest program~esmf_infodescribeutest->none~update program~esmf_infosyncutest ESMF_InfoSyncUTest program~esmf_infosyncutest->none~update

Source Code

subroutine ESMF_RouteHandleGetThis(rh, this, rc)
! ARGUMENTS:
  type(ESMF_RouteHandle), intent(in) :: rh
  type(ESMF_Pointer), intent(out) :: this
  integer, intent(inout), optional :: rc
!
! !DESCRIPTION:
!     Internal access routine for C++ pointer.
!
!     The arguments are:
!     \begin{description}
!     \item[rh]
!          Specified {\tt ESMF\_RouteHandle} object.
!     \item[this]
!          C++ pointer.
!     \item[{[rc]}]
!          Return code; equals {\tt ESMF\_SUCCESS} if there are no errors.
!     \end{description}
!
!EOPI
!------------------------------------------------------------------------------

  if (present(rc)) rc = ESMF_RC_NOT_IMPL
  this = rh%this
  if (present(rc)) rc = ESMF_SUCCESS
end subroutine ESMF_RouteHandleGetThis