Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_Config) | :: | config | ||||
type(ESMF_Config) | :: | configin | ||||
character(len=*), | intent(in) | :: | olabel | |||
character(len=*), | intent(in) | :: | clabel | |||
integer, | intent(out) | :: | rc |
subroutine f_esmf_configcreatefromsection(config, configin, olabel, clabel, rc) use ESMF_UtilTypesMod ! ESMF base class use ESMF_BaseMod ! ESMF base class use ESMF_ConfigMod implicit none type(ESMF_Config) :: config type(ESMF_Config) :: configin character(len=*), intent(in) :: olabel character(len=*), intent(in) :: clabel integer, intent(out) :: rc ! Initialize return code; assume routine not implemented rc = ESMF_RC_NOT_IMPL config = ESMF_ConfigCreate(configin, olabel, clabel, rc=rc) end subroutine f_esmf_configcreatefromsection