1: Interface 2: subroutine PCSetType(a,b,z) 3: use petscpcdef 4: PC a 5: character(*) b 6: integer z 7: end subroutine 8: end Interface 10: Interface 11: subroutine PCView(a,b,z) 12: use petscpcdef 13: PC a 14: PetscViewer b 15: integer z 16: end subroutine 17: end Interface