        subroutine SlepcFinalize(ierr)
       integer ierr
       end subroutine
        subroutine SlepcInitialized(isInitialized ,ierr)
       PetscBool isInitialized ! PetscBool
       integer ierr
       end subroutine
        subroutine SlepcMatTile(a, aupper, b, bupper, c, cupper, d,     &
     &dupper, G ,ierr)
       PetscScalar a ! PetscScalar
       Mat aupper ! Mat
       PetscScalar b ! PetscScalar
       Mat bupper ! Mat
       PetscScalar c ! PetscScalar
       Mat cupper ! Mat
       PetscScalar d ! PetscScalar
       Mat dupper ! Mat
       Mat G ! Mat
       integer ierr
       end subroutine
        subroutine SlepcCheckOrthogonality(V, nv, W, nw, B, viewer, lev &
     &,ierr)
       Vec V ! Vec
       PetscInt nv ! PetscInt
       Vec W ! Vec
       PetscInt nw ! PetscInt
       Mat B ! Mat
       PetscViewer viewer ! PetscViewer
       PetscReal lev ! PetscReal
       integer ierr
       end subroutine
        subroutine SlepcVecSetTemplate(v ,ierr)
       Vec v ! Vec
       integer ierr
       end subroutine
        subroutine SlepcMatGetVecsTemplate(mat, right, left ,ierr)
       Mat mat ! Mat
       Vec right ! Vec
       Vec left ! Vec
       integer ierr
       end subroutine
        subroutine SlepcUpdateVectors(n, V, s, e, Q, ldq, qtrans ,ierr)
       PetscInt n ! PetscInt
       Vec V ! Vec
       PetscInt s ! PetscInt
       PetscInt e ! PetscInt
       PetscScalar Q ! PetscScalar
       PetscInt ldq ! PetscInt
       PetscBool qtrans ! PetscBool
       integer ierr
       end subroutine
        subroutine SlepcUpdateStrideVectors(n_, V, s, d, e, Q, ldq_,    &
     &qtrans ,ierr)
       PetscInt n_ ! PetscInt
       Vec V ! Vec
       PetscInt s ! PetscInt
       PetscInt d ! PetscInt
       PetscInt e ! PetscInt
       PetscScalar Q ! PetscScalar
       PetscInt ldq_ ! PetscInt
       PetscBool qtrans ! PetscBool
       integer ierr
       end subroutine
        subroutine SlepcVecMAXPBY(y, beta, alpha, nv, a, x ,ierr)
       Vec y ! Vec
       PetscScalar beta ! PetscScalar
       PetscScalar alpha ! PetscScalar
       PetscInt nv ! PetscInt
       PetscScalar a (*) ! PetscScalar
       Vec x (*) ! Vec
       integer ierr
       end subroutine
        subroutine SlepcVecSetRandom(x, rctx ,ierr)
       Vec x ! Vec
       PetscRandom rctx ! PetscRandom
       integer ierr
       end subroutine
