2:       interface
  3:         subroutine KSPSolve(a,b,c,z)
  4:           use petsckspdef
  5:           KSP a ! KSP
  6:           Vec b ! Vec
  7:           Vec c ! Vec
  8:           integer z
  9:         end subroutine
 10:       end interface