f_esmf_compgetftable Subroutine

recursive subroutine f_esmf_compgetftable(comp, ftable, rc)
  use ESMF_UtilTypesMod      ! ESMF utility types
  use ESMF_BaseMod           ! ESMF base class
  use ESMF_CompMod
  use ESMF_InitMacrosMod
  
  implicit none

  type(ESMF_CWrap)      :: comp
  type(ESMF_Pointer)    :: ftable
  integer               :: rc
  
  ! Initialize return code; assume routine not implemented
  rc = ESMF_RC_NOT_IMPL

  ftable = comp%compp%ftable
  
  ! return successfully
  rc = ESMF_SUCCESS

end subroutine f_esmf_compgetftable