Actual source code: petscksp.h90

      3:       Interface
      4:       subroutine KSPSetType(a,b,z)
      5:       import tKSP
      6:        KSP a
      7:        character(*) b
      8:        PetscErrorCode z
      9:        end subroutine
     10:       end Interface

     12:       Interface
     13:       subroutine KSPView(a,b,z)
     14:       import tKSP,tPetscViewer
     15:        KSP a
     16:        PetscViewer b
     17:        PetscErrorCode z
     18:        end subroutine
     19:       end Interface

     21:       Interface PCBJacobiGetSubKSP
     22:       subroutine PCBJacobiGetSubKSP1(a,b,c,d,z)
     23:        import tKSP,tPC
     24:        PC a ! PC
     25:        PetscInt b ! PetscInt
     26:        PetscInt c ! PetscInt
     27:        KSP d ! KSP
     28:        PetscErrorCode z
     29:       end subroutine
     30:       subroutine PCBJacobiGetSubKSP2(a,b,c,d,z)
     31:        import tKSP,tPC
     32:        PC a ! PC
     33:        PetscInt b ! PetscInt
     34:        PetscInt c ! PetscInt
     35:        KSP d(*) ! KSP
     36:        PetscErrorCode z
     37:       end subroutine
     38:       end Interface

     40:       Interface PCASMGetSubKSP
     41:       subroutine PCASMGetSubKSP1(a,b,c,d,z)
     42:        import tKSP,tPC
     43:        PC a ! PC
     44:        PetscInt b ! PetscInt
     45:        PetscInt c ! PetscInt
     46:        KSP d ! KSP
     47:        PetscErrorCode z
     48:       end subroutine
     49:       subroutine PCASMGetSubKSP2(a,b,c,d,z)
     50:        import tKSP,tPC
     51:        PC a ! PC
     52:        PetscInt b ! PetscInt
     53:        PetscInt c ! PetscInt
     54:        KSP d(*) ! KSP
     55:        PetscErrorCode z
     56:       end subroutine
     57:       subroutine PCASMGetSubKSP3(a,b,c,d,z)
     58:        import tKSP,tPC
     59:        PC a ! PC
     60:        PetscInt b(*) ! PetscInt
     61:        PetscInt c ! PetscInt
     62:        KSP d ! KSP
     63:        PetscErrorCode z
     64:       end subroutine
     65:       subroutine PCASMGetSubKSP4(a,b,c,d,z)
     66:        import tKSP,tPC
     67:        PC a ! PC
     68:        PetscInt b(*) ! PetscInt
     69:        PetscInt c ! PetscInt
     70:        KSP d(*) ! KSP
     71:        PetscErrorCode z
     72:       end subroutine
     73:      subroutine PCASMGetSubKSP5(a,b,c,d,z)
     74:        import tKSP,tPC
     75:        PC a ! PC
     76:        PetscInt b ! PetscInt
     77:        PetscInt c(*) ! PetscInt
     78:        KSP d ! KSP
     79:        PetscErrorCode z
     80:       end subroutine
     81:       subroutine PCASMGetSubKSP6(a,b,c,d,z)
     82:        import tKSP,tPC
     83:        PC a ! PC
     84:        PetscInt b ! PetscInt
     85:        PetscInt c(*) ! PetscInt
     86:        KSP d(*) ! KSP
     87:        PetscErrorCode z
     88:       end subroutine
     89:       subroutine PCASMGetSubKSP7(a,b,c,d,z)
     90:        import tKSP,tPC
     91:        PC a ! PC
     92:        PetscInt b(*) ! PetscInt
     93:        PetscInt c(*) ! PetscInt
     94:        KSP d ! KSP
     95:        PetscErrorCode z
     96:       end subroutine
     97:       subroutine PCASMGetSubKSP8(a,b,c,d,z)
     98:        import tKSP,tPC
     99:        PC a ! PC
    100:        PetscInt b(*) ! PetscInt
    101:        PetscInt c(*) ! PetscInt
    102:        KSP d(*) ! KSP
    103:        PetscErrorCode z
    104:       end subroutine
    105:       end Interface

    107:       Interface PCGASMGetSubKSP
    108:       subroutine PCGASMGetSubKSP1(a,b,c,d,z)
    109:        import tKSP,tPC
    110:        PC a ! PC
    111:        PetscInt b ! PetscInt
    112:        PetscInt c ! PetscInt
    113:        KSP d ! KSP
    114:        PetscErrorCode z
    115:       end subroutine
    116:       subroutine PCGASMGetSubKSP2(a,b,c,d,z)
    117:        import tKSP,tPC
    118:        PC a ! PC
    119:        PetscInt b ! PetscInt
    120:        PetscInt c ! PetscInt
    121:        KSP d(*) ! KSP
    122:        PetscErrorCode z
    123:       end subroutine
    124:       subroutine PCGASMGetSubKSP3(a,b,c,d,z)
    125:        import tKSP,tPC
    126:        PC a ! PC
    127:        PetscInt b(*) ! PetscInt
    128:        PetscInt c ! PetscInt
    129:        KSP d ! KSP
    130:        PetscErrorCode z
    131:       end subroutine
    132:       subroutine PCGASMGetSubKSP4(a,b,c,d,z)
    133:        import tKSP,tPC
    134:        PC a ! PC
    135:        PetscInt b(*) ! PetscInt
    136:        PetscInt c ! PetscInt
    137:        KSP d(*) ! KSP
    138:        PetscErrorCode z
    139:       end subroutine
    140:      subroutine PCGASMGetSubKSP5(a,b,c,d,z)
    141:        import tKSP,tPC
    142:        PC a ! PC
    143:        PetscInt b ! PetscInt
    144:        PetscInt c(*) ! PetscInt
    145:        KSP d ! KSP
    146:        PetscErrorCode z
    147:       end subroutine
    148:       subroutine PCGASMGetSubKSP6(a,b,c,d,z)
    149:        import tKSP,tPC
    150:        PC a ! PC
    151:        PetscInt b ! PetscInt
    152:        PetscInt c(*) ! PetscInt
    153:        KSP d(*) ! KSP
    154:        PetscErrorCode z
    155:       end subroutine
    156:       subroutine PCGASMGetSubKSP7(a,b,c,d,z)
    157:        import tKSP,tPC
    158:        PC a ! PC
    159:        PetscInt b(*) ! PetscInt
    160:        PetscInt c(*) ! PetscInt
    161:        KSP d ! KSP
    162:        PetscErrorCode z
    163:       end subroutine
    164:       subroutine PCGASMGetSubKSP8(a,b,c,d,z)
    165:        import tKSP,tPC
    166:        PC a ! PC
    167:        PetscInt b(*) ! PetscInt
    168:        PetscInt c(*) ! PetscInt
    169:        KSP d(*) ! KSP
    170:        PetscErrorCode z
    171:       end subroutine
    172:       end Interface