Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=ESMF_KIND_I8), | intent(in) | :: | content | |||
type(ESMF_KeywordEnforcer), | optional | :: | keywordEnforcer | |||
integer, | intent(out), | optional | :: | rc |
function ESMF_HConfigCreateI8(content, keywordEnforcer, rc) type(ESMF_HConfig) :: ESMF_HConfigCreateI8 integer(ESMF_KIND_I8), intent(in) :: content type(ESMF_KeywordEnforcer), optional:: keywordEnforcer ! must use keywords below integer, intent(out), optional :: rc integer :: localrc ! local return code ! initialize return code; assume routine not implemented localrc = ESMF_RC_NOT_IMPL if (present(rc)) rc = ESMF_RC_NOT_IMPL ! invalidate return value ESMF_HConfigCreateI8%shallowMemory = 0 ! call into the C++ interface, which will sort out optional arguments call c_ESMC_HConfigCreateI8(ESMF_HConfigCreateI8, content, localrc) if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, & ESMF_CONTEXT, rcToReturn=rc)) return ! Set init code ESMF_INIT_SET_CREATED(ESMF_HConfigCreateI8) ! return successfully if (present(rc)) rc = ESMF_SUCCESS end function ESMF_HConfigCreateI8