f_esmf_regridreleasefactors Subroutine

  subroutine f_esmf_regridreleasefactors(factorList, factorIndexList, numfac, rc)
    use ESMF_UtilTypesMod
    use iso_c_binding

    implicit none

    type(C_PTR), intent(out) :: factorList
    type(C_PTR), intent(out) :: factorIndexList
    integer(C_INT), intent(in)  :: numfac
    integer, intent(inout) :: rc

    real(ESMF_KIND_R8), dimension(:), pointer :: factorListFPtr
    integer(ESMF_KIND_I4), dimension(:,:), pointer :: factorIndexListFPtr

    rc = ESMF_RC_NOT_IMPL

    call C_F_POINTER(factorList, factorListFPtr, [numfac])
    deallocate(factorListFPtr)

    call C_F_POINTER(factorIndexList, factorIndexListFPtr, [2, numfac])
    deallocate(factorIndexListFPtr)

    rc = ESMF_SUCCESS

  end subroutine f_esmf_regridreleasefactors