Actual source code: petscpc.h90

      1:       Interface
      2:       subroutine PCSetType(a,b,z)
      3:       import tPC
      4:        PC a
      5:        character(*) b
      6:        PetscErrorCode z
      7:        end subroutine
      8:       end Interface

     10:       Interface
     11:       subroutine PCView(a,b,z)
     12:       import tPC,tPetscViewer
     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:       import tPC,tIS
     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:       import tPC,tIS
     32:        PC a
     33:        character(*)  b
     34:        IS c
     35:        PetscErrorCode z
     36:        end subroutine
     37:       end Interface

     39:       Interface
     40:         subroutine PCDestroy(a,z)
     41:           import tPC
     42:           PC a
     43:           PetscErrorCode z
     44:         end subroutine
     45:       end Interface