1:       Interface
  2:       subroutine PCSetType(a,b,z)
  3:       use petscpcdef
  4:        PC a
  5:        character(*) b
  6:        PetscErrorCode 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:        PetscErrorCode z
 16:        end subroutine
 17:       end Interface

 19:       Interface
 20:       subroutine PCFieldSplitSetIS(a,b,c,z)
 21:       use petscpcdef
 22:        PC a
 23:        character(*)  b
 24:        IS c
 25:        PetscErrorCode z
 26:        end subroutine
 27:       end Interface

 29:       Interface
 30:       subroutine PCFieldSplitGetIS(a,b,c,z)
 31:       use petscpcdef
 32:        PC a
 33:        character(*)  b
 34:        IS c
 35:        PetscErrorCode z
 36:        end subroutine
 37:       end Interface