1: Interface 2: subroutine SNESSetType(a,b,z) 3: use petscsnesdef 4: SNES a 5: character(*) b 6: integer z 7: end subroutine 8: end Interface 10: Interface 11: subroutine SNESView(a,b,z) 12: use petscsnesdef 13: SNES a 14: PetscViewer b 15: integer z 16: end subroutine 17: end Interface