Actual source code: petscksp.h90

petsc-3.14.6 2021-03-30
Report Typos and Errors


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

 12:       Interface
 13:       subroutine KSPView(a,b,z)
 14:       use petsckspdef
 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:        use petsckspdef
 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:        use petsckspdef
 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:        use petsckspdef
 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:        use petsckspdef
 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:        use petsckspdef
 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:        use petsckspdef
 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:        use petsckspdef
 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:        use petsckspdef
 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:        use petsckspdef
 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:        use petsckspdef
 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:        use petsckspdef
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:        use petsckspdef
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:        use petsckspdef
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:        use petsckspdef
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:        use petsckspdef
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:        use petsckspdef
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:        use petsckspdef
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:        use petsckspdef
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