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