        subroutine QEPLinearSetCompanionForm(qep, cform ,ierr)
       QEP qep ! QEP
       PetscInt cform ! PetscInt
       integer ierr
       end subroutine
        subroutine QEPLinearGetCompanionForm(qep, cform ,ierr)
       QEP qep ! QEP
       PetscInt cform ! PetscInt
       integer ierr
       end subroutine
        subroutine QEPLinearSetExplicitMatrix(qep, explicitmatrix ,ierr)
       QEP qep ! QEP
       PetscBool explicitmatrix ! PetscBool
       integer ierr
       end subroutine
        subroutine QEPLinearGetExplicitMatrix(qep, explicitmatrix ,ierr)
       QEP qep ! QEP
       PetscBool explicitmatrix ! PetscBool
       integer ierr
       end subroutine
        subroutine QEPLinearSetEPS(qep, eps ,ierr)
       QEP qep ! QEP
       EPS eps ! EPS
       integer ierr
       end subroutine
        subroutine QEPLinearGetEPS(qep, eps ,ierr)
       QEP qep ! QEP
       EPS eps ! EPS
       integer ierr
       end subroutine
        subroutine QEPPrintSolution(qep, viewer ,ierr)
       QEP qep ! QEP
       PetscViewer viewer ! PetscViewer
       integer ierr
       end subroutine
        subroutine QEPReset(qep ,ierr)
       QEP qep ! QEP
       integer ierr
       end subroutine
        subroutine QEPSetIP(qep, ip ,ierr)
       QEP qep ! QEP
       IP ip ! IP
       integer ierr
       end subroutine
        subroutine QEPSetDS(qep, ds ,ierr)
       QEP qep ! QEP
       DS ds ! DS
       integer ierr
       end subroutine
        subroutine QEPSetST(qep, st ,ierr)
       QEP qep ! QEP
       ST st ! ST
       integer ierr
       end subroutine
        subroutine QEPSetTarget(qep, target ,ierr)
       QEP qep ! QEP
       PetscScalar target ! PetscScalar
       integer ierr
       end subroutine
        subroutine QEPGetTarget(qep, target ,ierr)
       QEP qep ! QEP
       PetscScalar target ! PetscScalar
       integer ierr
       end subroutine
        subroutine QEPSetWorkVecs(qep, nw ,ierr)
       QEP qep ! QEP
       PetscInt nw ! PetscInt
       integer ierr
       end subroutine
        subroutine QEPMonitorCancel(qep ,ierr)
       QEP qep ! QEP
       integer ierr
       end subroutine
        subroutine QEPSetFromOptions(qep ,ierr)
       QEP qep ! QEP
       integer ierr
       end subroutine
        subroutine QEPGetTolerances(qep, tol, maxits ,ierr)
       QEP qep ! QEP
       PetscReal tol ! PetscReal
       PetscInt maxits ! PetscInt
       integer ierr
       end subroutine
        subroutine QEPSetTolerances(qep, tol, maxits ,ierr)
       QEP qep ! QEP
       PetscReal tol ! PetscReal
       PetscInt maxits ! PetscInt
       integer ierr
       end subroutine
        subroutine QEPGetDimensions(qep, nev, ncv, mpd ,ierr)
       QEP qep ! QEP
       PetscInt nev ! PetscInt
       PetscInt ncv ! PetscInt
       PetscInt mpd ! PetscInt
       integer ierr
       end subroutine
        subroutine QEPSetDimensions(qep, nev, ncv, mpd ,ierr)
       QEP qep ! QEP
       PetscInt nev ! PetscInt
       PetscInt ncv ! PetscInt
       PetscInt mpd ! PetscInt
       integer ierr
       end subroutine
        subroutine QEPSetWhichEigenpairs(qep, which ,ierr)
       QEP qep ! QEP
       QEPWhich which ! QEPWhich
       integer ierr
       end subroutine
        subroutine QEPSetLeftVectorsWanted(qep, leftvecs ,ierr)
       QEP qep ! QEP
       PetscBool leftvecs ! PetscBool
       integer ierr
       end subroutine
        subroutine QEPGetScaleFactor(qep, alpha ,ierr)
       QEP qep ! QEP
       PetscReal alpha ! PetscReal
       integer ierr
       end subroutine
        subroutine QEPSetScaleFactor(qep, alpha ,ierr)
       QEP qep ! QEP
       PetscReal alpha ! PetscReal
       integer ierr
       end subroutine
        subroutine QEPSetProblemType(qep, type ,ierr)
       QEP qep ! QEP
       QEPProblemType type ! QEPProblemType
       integer ierr
       end subroutine
        subroutine QEPSetTrackAll(qep, trackall ,ierr)
       QEP qep ! QEP
       PetscBool trackall ! PetscBool
       integer ierr
       end subroutine
        subroutine QEPGetTrackAll(qep, trackall ,ierr)
       QEP qep ! QEP
       PetscBool trackall ! PetscBool
       integer ierr
       end subroutine
        subroutine QEPSetUp(qep ,ierr)
       QEP qep ! QEP
       integer ierr
       end subroutine
        subroutine QEPSetOperators(qep, M, C, K ,ierr)
       QEP qep ! QEP
       Mat M ! Mat
       Mat C ! Mat
       Mat K ! Mat
       integer ierr
       end subroutine
        subroutine QEPGetOperators(qep, M, C, K ,ierr)
       QEP qep ! QEP
       Mat M ! Mat
       Mat C ! Mat
       Mat K ! Mat
       integer ierr
       end subroutine
        subroutine QEPSetInitialSpace(qep, n, is ,ierr)
       QEP qep ! QEP
       PetscInt n ! PetscInt
       Vec is ! Vec
       integer ierr
       end subroutine
        subroutine QEPSetInitialSpaceLeft(qep, n, is ,ierr)
       QEP qep ! QEP
       PetscInt n ! PetscInt
       Vec is ! Vec
       integer ierr
       end subroutine
        subroutine QEPSolve(qep ,ierr)
       QEP qep ! QEP
       integer ierr
       end subroutine
        subroutine QEPGetIterationNumber(qep, its ,ierr)
       QEP qep ! QEP
       PetscInt its ! PetscInt
       integer ierr
       end subroutine
        subroutine QEPGetConverged(qep, nconv ,ierr)
       QEP qep ! QEP
       PetscInt nconv ! PetscInt
       integer ierr
       end subroutine
        subroutine QEPGetEigenpair(qep, i, eigr, eigi, Vr, Vi ,ierr)
       QEP qep ! QEP
       PetscInt i ! PetscInt
       PetscScalar eigr ! PetscScalar
       PetscScalar eigi ! PetscScalar
       Vec Vr ! Vec
       Vec Vi ! Vec
       integer ierr
       end subroutine
        subroutine QEPGetErrorEstimate(qep, i, errest ,ierr)
       QEP qep ! QEP
       PetscInt i ! PetscInt
       PetscReal errest ! PetscReal
       integer ierr
       end subroutine
        subroutine QEPComputeResidualNorm(qep, i, norm ,ierr)
       QEP qep ! QEP
       PetscInt i ! PetscInt
       PetscReal norm ! PetscReal
       integer ierr
       end subroutine
        subroutine QEPComputeRelativeError(qep, i, error ,ierr)
       QEP qep ! QEP
       PetscInt i ! PetscInt
       PetscReal error ! PetscReal
       integer ierr
       end subroutine
        subroutine QEPSortEigenvalues(qep, n, eigr, eigi, perm ,ierr)
       QEP qep ! QEP
       PetscInt n ! PetscInt
       PetscScalar eigr ! PetscScalar
       PetscScalar eigi ! PetscScalar
       PetscInt perm ! PetscInt
       integer ierr
       end subroutine
        subroutine QEPCompareEigenvalues(qep, ar, ai, br, bi, result ,  &
     &ierr)
       QEP qep ! QEP
       PetscScalar ar ! PetscScalar
       PetscScalar ai ! PetscScalar
       PetscScalar br ! PetscScalar
       PetscScalar bi ! PetscScalar
       PetscInt result ! PetscInt
       integer ierr
       end subroutine
        subroutine QEPGetOperationCounters(qep, matvecs, dots, lits ,   &
     &ierr)
       QEP qep ! QEP
       PetscInt matvecs ! PetscInt
       PetscInt dots ! PetscInt
       PetscInt lits ! PetscInt
       integer ierr
       end subroutine
