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