3:       Interface
  4:       subroutine KSPSetType(a,b,z)
  5:       use petsckspdef
  6:        KSP a
  7:        character(*) b
  8:        PetscErrorCode z
  9:        end subroutine
 10:       end Interface

 12:       Interface
 13:       subroutine KSPView(a,b,z)
 14:       use petsckspdef
 15:        KSP a
 16:        PetscViewer b
 17:        PetscErrorCode z
 18:        end subroutine
 19:       end Interface

 21:       Interface PCBJacobiGetSubKSP
 22:       subroutine PCBJacobiGetSubKSP1(a,b,c,d,z)
 23:        use petsckspdef
 24:        PC a ! PC
 25:        PetscInt b ! PetscInt
 26:        PetscInt c ! PetscInt
 27:        KSP d ! KSP
 28:        PetscErrorCode z
 29:       end subroutine
 30:       subroutine PCBJacobiGetSubKSP2(a,b,c,d,z)
 31:        use petsckspdef
 32:        PC a ! PC
 33:        PetscInt b ! PetscInt
 34:        PetscInt c ! PetscInt
 35:        KSP d(*) ! KSP
 36:        PetscErrorCode z
 37:       end subroutine
 38:       end Interface