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

 12:       Interface
 13:       subroutine KSPSetType(a,b,z)
 14:       use petsckspdef
 15:        KSP a
 16:        character(*) b
 17:        integer z
 18:        end subroutine
 19:       end Interface

 21:       Interface
 22:       subroutine KSPView(a,b,z)
 23:       use petsckspdef
 24:        KSP a
 25:        PetscViewer b
 26:        integer z
 27:        end subroutine
 28:       end Interface