Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ESMF_InfoCache), | intent(inout) | :: | self | |||
integer, | intent(out) | :: | rc |
subroutine ESMF_InfoCacheDestroy(self, rc) class(ESMF_InfoCache), intent(inout) :: self integer, intent(out) :: rc rc = c_infocache_destroy(self%ptr) if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, ESMF_CONTEXT, rcToReturn=rc)) return self%ptr = C_NULL_PTR end subroutine ESMF_InfoCacheDestroy