Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_Config), | intent(inout) | :: | config | |||
type(ESMF_Logical), | intent(out) | :: | tableEnd | |||
integer, | intent(out) | :: | rc |
subroutine f_esmf_confignextline(config, tableEnd, rc) use ESMF_UtilTypesMod ! ESMF base class use ESMF_BaseMod ! ESMF base class use ESMF_ConfigMod implicit none type(ESMF_Config), intent(inout) :: config type(ESMF_Logical), intent(out) :: tableEnd integer, intent(out) :: rc logical :: ltableEnd ! Initialize return code; assume routine not implemented rc = ESMF_RC_NOT_IMPL call ESMF_ConfigNextLine(config, tableEnd=ltableEnd, rc=rc) tableEnd = ltableEnd end subroutine f_esmf_confignextline