| 1 | subroutine KSPBCGSLSetXRes(ksp, delta ,ierr)
|
|---|
| 2 | KSP ksp ! KSP
|
|---|
| 3 | PetscReal delta ! PetscReal
|
|---|
| 4 | integer ierr
|
|---|
| 5 | end subroutine
|
|---|
| 6 | subroutine KSPBCGSLSetPol(ksp, uMROR ,ierr)
|
|---|
| 7 | KSP ksp ! KSP
|
|---|
| 8 | PetscBool uMROR ! PetscBool
|
|---|
| 9 | integer ierr
|
|---|
| 10 | end subroutine
|
|---|
| 11 | subroutine KSPBCGSLSetEll(ksp, ell ,ierr)
|
|---|
| 12 | KSP ksp ! KSP
|
|---|
| 13 | PetscInt ell ! PetscInt
|
|---|
| 14 | integer ierr
|
|---|
| 15 | end subroutine
|
|---|
| 16 | subroutine KSPCGSetType(ksp, type ,ierr)
|
|---|
| 17 | KSP ksp ! KSP
|
|---|
| 18 | KSPCGType type ! KSPCGType
|
|---|
| 19 | integer ierr
|
|---|
| 20 | end subroutine
|
|---|
| 21 | subroutine KSPCGUseSingleReduction(ksp, flg ,ierr)
|
|---|
| 22 | KSP ksp ! KSP
|
|---|
| 23 | PetscBool flg ! PetscBool
|
|---|
| 24 | integer ierr
|
|---|
| 25 | end subroutine
|
|---|
| 26 | subroutine KSPGLTRSetRadius(ksp, radius ,ierr)
|
|---|
| 27 | KSP ksp ! KSP
|
|---|
| 28 | PetscReal radius ! PetscReal
|
|---|
| 29 | integer ierr
|
|---|
| 30 | end subroutine
|
|---|
| 31 | subroutine KSPGLTRGetNormD(ksp, norm_d ,ierr)
|
|---|
| 32 | KSP ksp ! KSP
|
|---|
| 33 | PetscReal norm_d ! PetscReal
|
|---|
| 34 | integer ierr
|
|---|
| 35 | end subroutine
|
|---|
| 36 | subroutine KSPGLTRGetObjFcn(ksp, o_fcn ,ierr)
|
|---|
| 37 | KSP ksp ! KSP
|
|---|
| 38 | PetscReal o_fcn ! PetscReal
|
|---|
| 39 | integer ierr
|
|---|
| 40 | end subroutine
|
|---|
| 41 | subroutine KSPGLTRGetMinEig(ksp, e_min ,ierr)
|
|---|
| 42 | KSP ksp ! KSP
|
|---|
| 43 | PetscReal e_min ! PetscReal
|
|---|
| 44 | integer ierr
|
|---|
| 45 | end subroutine
|
|---|
| 46 | subroutine KSPGLTRGetLambda(ksp, lambda ,ierr)
|
|---|
| 47 | KSP ksp ! KSP
|
|---|
| 48 | PetscReal lambda ! PetscReal
|
|---|
| 49 | integer ierr
|
|---|
| 50 | end subroutine
|
|---|
| 51 | subroutine KSPNASHSetRadius(ksp, radius ,ierr)
|
|---|
| 52 | KSP ksp ! KSP
|
|---|
| 53 | PetscReal radius ! PetscReal
|
|---|
| 54 | integer ierr
|
|---|
| 55 | end subroutine
|
|---|
| 56 | subroutine KSPNASHGetNormD(ksp, norm_d ,ierr)
|
|---|
| 57 | KSP ksp ! KSP
|
|---|
| 58 | PetscReal norm_d ! PetscReal
|
|---|
| 59 | integer ierr
|
|---|
| 60 | end subroutine
|
|---|
| 61 | subroutine KSPNASHGetObjFcn(ksp, o_fcn ,ierr)
|
|---|
| 62 | KSP ksp ! KSP
|
|---|
| 63 | PetscReal o_fcn ! PetscReal
|
|---|
| 64 | integer ierr
|
|---|
| 65 | end subroutine
|
|---|
| 66 | subroutine KSPSTCGSetRadius(ksp, radius ,ierr)
|
|---|
| 67 | KSP ksp ! KSP
|
|---|
| 68 | PetscReal radius ! PetscReal
|
|---|
| 69 | integer ierr
|
|---|
| 70 | end subroutine
|
|---|
| 71 | subroutine KSPSTCGGetNormD(ksp, norm_d ,ierr)
|
|---|
| 72 | KSP ksp ! KSP
|
|---|
| 73 | PetscReal norm_d ! PetscReal
|
|---|
| 74 | integer ierr
|
|---|
| 75 | end subroutine
|
|---|
| 76 | subroutine KSPSTCGGetObjFcn(ksp, o_fcn ,ierr)
|
|---|
| 77 | KSP ksp ! KSP
|
|---|
| 78 | PetscReal o_fcn ! PetscReal
|
|---|
| 79 | integer ierr
|
|---|
| 80 | end subroutine
|
|---|
| 81 | subroutine KSPChebychevSetEigenvalues(ksp, emax, emin ,ierr)
|
|---|
| 82 | KSP ksp ! KSP
|
|---|
| 83 | PetscReal emax ! PetscReal
|
|---|
| 84 | PetscReal emin ! PetscReal
|
|---|
| 85 | integer ierr
|
|---|
| 86 | end subroutine
|
|---|
| 87 | subroutine KSPChebychevSetEstimateEigenvalues(ksp, a, b, c, d , &
|
|---|
| 88 | &ierr)
|
|---|
| 89 | KSP ksp ! KSP
|
|---|
| 90 | PetscReal a ! PetscReal
|
|---|
| 91 | PetscReal b ! PetscReal
|
|---|
| 92 | PetscReal c ! PetscReal
|
|---|
| 93 | PetscReal d ! PetscReal
|
|---|
| 94 | integer ierr
|
|---|
| 95 | end subroutine
|
|---|
| 96 | subroutine KSPGMRESSetPreAllocateVectors(ksp ,ierr)
|
|---|
| 97 | KSP ksp ! KSP
|
|---|
| 98 | integer ierr
|
|---|
| 99 | end subroutine
|
|---|
| 100 | subroutine KSPGMRESSetCGSRefinementType(ksp, type ,ierr)
|
|---|
| 101 | KSP ksp ! KSP
|
|---|
| 102 | KSPGMRESCGSRefinementType type ! KSPGMRESCGSRefinementType
|
|---|
| 103 | integer ierr
|
|---|
| 104 | end subroutine
|
|---|
| 105 | subroutine KSPGMRESGetCGSRefinementType(ksp, type ,ierr)
|
|---|
| 106 | KSP ksp ! KSP
|
|---|
| 107 | KSPGMRESCGSRefinementType type ! KSPGMRESCGSRefinementType
|
|---|
| 108 | integer ierr
|
|---|
| 109 | end subroutine
|
|---|
| 110 | subroutine KSPGMRESSetRestart(ksp, restart ,ierr)
|
|---|
| 111 | KSP ksp ! KSP
|
|---|
| 112 | PetscInt restart ! PetscInt
|
|---|
| 113 | integer ierr
|
|---|
| 114 | end subroutine
|
|---|
| 115 | subroutine KSPGMRESGetRestart(ksp, restart ,ierr)
|
|---|
| 116 | KSP ksp ! KSP
|
|---|
| 117 | PetscInt restart ! PetscInt
|
|---|
| 118 | integer ierr
|
|---|
| 119 | end subroutine
|
|---|
| 120 | subroutine KSPGMRESSetHapTol(ksp, tol ,ierr)
|
|---|
| 121 | KSP ksp ! KSP
|
|---|
| 122 | PetscReal tol ! PetscReal
|
|---|
| 123 | integer ierr
|
|---|
| 124 | end subroutine
|
|---|
| 125 | subroutine KSPFGMRESModifyPCNoChange(ksp, total_its, loc_its, &
|
|---|
| 126 | &res_norm, dummy ,ierr)
|
|---|
| 127 | KSP ksp ! KSP
|
|---|
| 128 | PetscInt total_its ! PetscInt
|
|---|
| 129 | PetscInt loc_its ! PetscInt
|
|---|
| 130 | PetscReal res_norm ! PetscReal
|
|---|
| 131 | PetscVoid dummy ! void
|
|---|
| 132 | integer ierr
|
|---|
| 133 | end subroutine
|
|---|
| 134 | subroutine KSPFGMRESModifyPCKSP(ksp, total_its, loc_its, &
|
|---|
| 135 | &res_norm, dummy ,ierr)
|
|---|
| 136 | KSP ksp ! KSP
|
|---|
| 137 | PetscInt total_its ! PetscInt
|
|---|
| 138 | PetscInt loc_its ! PetscInt
|
|---|
| 139 | PetscReal res_norm ! PetscReal
|
|---|
| 140 | PetscVoid dummy ! void
|
|---|
| 141 | integer ierr
|
|---|
| 142 | end subroutine
|
|---|
| 143 | subroutine KSPQCGSetTrustRegionRadius(ksp, delta ,ierr)
|
|---|
| 144 | KSP ksp ! KSP
|
|---|
| 145 | PetscReal delta ! PetscReal
|
|---|
| 146 | integer ierr
|
|---|
| 147 | end subroutine
|
|---|
| 148 | subroutine KSPQCGGetTrialStepNorm(ksp, tsnorm ,ierr)
|
|---|
| 149 | KSP ksp ! KSP
|
|---|
| 150 | PetscReal tsnorm ! PetscReal
|
|---|
| 151 | integer ierr
|
|---|
| 152 | end subroutine
|
|---|
| 153 | subroutine KSPQCGGetQuadratic(ksp, quadratic ,ierr)
|
|---|
| 154 | KSP ksp ! KSP
|
|---|
| 155 | PetscReal quadratic ! PetscReal
|
|---|
| 156 | integer ierr
|
|---|
| 157 | end subroutine
|
|---|
| 158 | subroutine KSPRichardsonSetScale(ksp, scale ,ierr)
|
|---|
| 159 | KSP ksp ! KSP
|
|---|
| 160 | PetscReal scale ! PetscReal
|
|---|
| 161 | integer ierr
|
|---|
| 162 | end subroutine
|
|---|
| 163 | subroutine KSPRichardsonSetSelfScale(ksp, scale ,ierr)
|
|---|
| 164 | KSP ksp ! KSP
|
|---|
| 165 | PetscBool scale ! PetscBool
|
|---|
| 166 | integer ierr
|
|---|
| 167 | end subroutine
|
|---|
| 168 | subroutine KSPComputeExplicitOperator(ksp, mat ,ierr)
|
|---|
| 169 | KSP ksp ! KSP
|
|---|
| 170 | Mat mat ! Mat
|
|---|
| 171 | integer ierr
|
|---|
| 172 | end subroutine
|
|---|
| 173 | subroutine KSPComputeEigenvaluesExplicitly(ksp, nmax, r, c ,ierr&
|
|---|
| 174 | &)
|
|---|
| 175 | KSP ksp ! KSP
|
|---|
| 176 | PetscInt nmax ! PetscInt
|
|---|
| 177 | PetscReal r ! PetscReal
|
|---|
| 178 | PetscReal c ! PetscReal
|
|---|
| 179 | integer ierr
|
|---|
| 180 | end subroutine
|
|---|
| 181 | subroutine KSPSetFromOptions(ksp ,ierr)
|
|---|
| 182 | KSP ksp ! KSP
|
|---|
| 183 | integer ierr
|
|---|
| 184 | end subroutine
|
|---|
| 185 | subroutine KSPSetNormType(ksp, normtype ,ierr)
|
|---|
| 186 | KSP ksp ! KSP
|
|---|
| 187 | KSPNormType normtype ! KSPNormType
|
|---|
| 188 | integer ierr
|
|---|
| 189 | end subroutine
|
|---|
| 190 | subroutine KSPSetCheckNormIteration(ksp, it ,ierr)
|
|---|
| 191 | KSP ksp ! KSP
|
|---|
| 192 | PetscInt it ! PetscInt
|
|---|
| 193 | integer ierr
|
|---|
| 194 | end subroutine
|
|---|
| 195 | subroutine KSPSetLagNorm(ksp, flg ,ierr)
|
|---|
| 196 | KSP ksp ! KSP
|
|---|
| 197 | PetscBool flg ! PetscBool
|
|---|
| 198 | integer ierr
|
|---|
| 199 | end subroutine
|
|---|
| 200 | subroutine KSPSetSupportedNorm(ksp, normtype, pcside, priority ,&
|
|---|
| 201 | &ierr)
|
|---|
| 202 | KSP ksp ! KSP
|
|---|
| 203 | KSPNormType normtype ! KSPNormType
|
|---|
| 204 | PCSide pcside ! PCSide
|
|---|
| 205 | PetscInt priority ! PetscInt
|
|---|
| 206 | integer ierr
|
|---|
| 207 | end subroutine
|
|---|
| 208 | subroutine KSPGetNormType(ksp, normtype ,ierr)
|
|---|
| 209 | KSP ksp ! KSP
|
|---|
| 210 | KSPNormType normtype ! KSPNormType
|
|---|
| 211 | integer ierr
|
|---|
| 212 | end subroutine
|
|---|
| 213 | subroutine KSPSetOperators(ksp, Amat, Pmat, flag ,ierr)
|
|---|
| 214 | KSP ksp ! KSP
|
|---|
| 215 | Mat Amat ! Mat
|
|---|
| 216 | Mat Pmat ! Mat
|
|---|
| 217 | MatStructure flag ! MatStructure
|
|---|
| 218 | integer ierr
|
|---|
| 219 | end subroutine
|
|---|
| 220 | subroutine KSPGetOperators(ksp, Amat, Pmat, flag ,ierr)
|
|---|
| 221 | KSP ksp ! KSP
|
|---|
| 222 | Mat Amat ! Mat
|
|---|
| 223 | Mat Pmat ! Mat
|
|---|
| 224 | MatStructure flag ! MatStructure
|
|---|
| 225 | integer ierr
|
|---|
| 226 | end subroutine
|
|---|
| 227 | subroutine KSPCreate(comm, inksp ,ierr)
|
|---|
| 228 | integer comm ! MPI_Comm
|
|---|
| 229 | KSP inksp ! KSP
|
|---|
| 230 | integer ierr
|
|---|
| 231 | end subroutine
|
|---|
| 232 | subroutine KSPRegisterDestroy(ierr)
|
|---|
| 233 | integer ierr
|
|---|
| 234 | end subroutine
|
|---|
| 235 | subroutine KSPSetNullSpace(ksp, nullsp ,ierr)
|
|---|
| 236 | KSP ksp ! KSP
|
|---|
| 237 | MatNullSpace nullsp ! MatNullSpace
|
|---|
| 238 | integer ierr
|
|---|
| 239 | end subroutine
|
|---|
| 240 | subroutine KSPGetNullSpace(ksp, nullsp ,ierr)
|
|---|
| 241 | KSP ksp ! KSP
|
|---|
| 242 | MatNullSpace nullsp ! MatNullSpace
|
|---|
| 243 | integer ierr
|
|---|
| 244 | end subroutine
|
|---|
| 245 | subroutine KSPGetResidualNorm(ksp, rnorm ,ierr)
|
|---|
| 246 | KSP ksp ! KSP
|
|---|
| 247 | PetscReal rnorm ! PetscReal
|
|---|
| 248 | integer ierr
|
|---|
| 249 | end subroutine
|
|---|
| 250 | subroutine KSPGetIterationNumber(ksp, its ,ierr)
|
|---|
| 251 | KSP ksp ! KSP
|
|---|
| 252 | PetscInt its ! PetscInt
|
|---|
| 253 | integer ierr
|
|---|
| 254 | end subroutine
|
|---|
| 255 | subroutine KSPDefaultConvergedSetUIRNorm(ksp ,ierr)
|
|---|
| 256 | KSP ksp ! KSP
|
|---|
| 257 | integer ierr
|
|---|
| 258 | end subroutine
|
|---|
| 259 | subroutine KSPDefaultConvergedSetUMIRNorm(ksp ,ierr)
|
|---|
| 260 | KSP ksp ! KSP
|
|---|
| 261 | integer ierr
|
|---|
| 262 | end subroutine
|
|---|
| 263 | subroutine KSPGetConvergedReason(ksp, reason ,ierr)
|
|---|
| 264 | KSP ksp ! KSP
|
|---|
| 265 | KSPConvergedReason reason ! KSPConvergedReason
|
|---|
| 266 | integer ierr
|
|---|
| 267 | end subroutine
|
|---|
| 268 | subroutine KSPSetDM(ksp, dm ,ierr)
|
|---|
| 269 | KSP ksp ! KSP
|
|---|
| 270 | DM dm ! DM
|
|---|
| 271 | integer ierr
|
|---|
| 272 | end subroutine
|
|---|
| 273 | subroutine KSPSetDMActive(ksp, flg ,ierr)
|
|---|
| 274 | KSP ksp ! KSP
|
|---|
| 275 | PetscBool flg ! PetscBool
|
|---|
| 276 | integer ierr
|
|---|
| 277 | end subroutine
|
|---|
| 278 | subroutine KSPGetDM(ksp, dm ,ierr)
|
|---|
| 279 | KSP ksp ! KSP
|
|---|
| 280 | DM dm ! DM
|
|---|
| 281 | integer ierr
|
|---|
| 282 | end subroutine
|
|---|
| 283 | subroutine KSPSetApplicationContext(ksp, usrP ,ierr)
|
|---|
| 284 | KSP ksp ! KSP
|
|---|
| 285 | PetscVoid usrP ! void
|
|---|
| 286 | integer ierr
|
|---|
| 287 | end subroutine
|
|---|
| 288 | subroutine KSPGetApplicationContext(ksp, usrP ,ierr)
|
|---|
| 289 | KSP ksp ! KSP
|
|---|
| 290 | PetscVoid usrP ! void
|
|---|
| 291 | integer ierr
|
|---|
| 292 | end subroutine
|
|---|
| 293 | subroutine KSPComputeExtremeSingularValues(ksp, emax, emin ,ierr&
|
|---|
| 294 | &)
|
|---|
| 295 | KSP ksp ! KSP
|
|---|
| 296 | PetscReal emax ! PetscReal
|
|---|
| 297 | PetscReal emin ! PetscReal
|
|---|
| 298 | integer ierr
|
|---|
| 299 | end subroutine
|
|---|
| 300 | subroutine KSPComputeEigenvalues(ksp, n, r, c, neig ,ierr)
|
|---|
| 301 | KSP ksp ! KSP
|
|---|
| 302 | PetscInt n ! PetscInt
|
|---|
| 303 | PetscReal r ! PetscReal
|
|---|
| 304 | PetscReal c ! PetscReal
|
|---|
| 305 | PetscInt neig ! PetscInt
|
|---|
| 306 | integer ierr
|
|---|
| 307 | end subroutine
|
|---|
| 308 | subroutine KSPSetUpOnBlocks(ksp ,ierr)
|
|---|
| 309 | KSP ksp ! KSP
|
|---|
| 310 | integer ierr
|
|---|
| 311 | end subroutine
|
|---|
| 312 | subroutine KSPSetUp(ksp ,ierr)
|
|---|
| 313 | KSP ksp ! KSP
|
|---|
| 314 | integer ierr
|
|---|
| 315 | end subroutine
|
|---|
| 316 | subroutine KSPSolve(ksp, b, x ,ierr)
|
|---|
| 317 | KSP ksp ! KSP
|
|---|
| 318 | Vec b ! Vec
|
|---|
| 319 | Vec x ! Vec
|
|---|
| 320 | integer ierr
|
|---|
| 321 | end subroutine
|
|---|
| 322 | subroutine KSPSolveTranspose(ksp, b, x ,ierr)
|
|---|
| 323 | KSP ksp ! KSP
|
|---|
| 324 | Vec b ! Vec
|
|---|
| 325 | Vec x ! Vec
|
|---|
| 326 | integer ierr
|
|---|
| 327 | end subroutine
|
|---|
| 328 | subroutine KSPReset(ksp ,ierr)
|
|---|
| 329 | KSP ksp ! KSP
|
|---|
| 330 | integer ierr
|
|---|
| 331 | end subroutine
|
|---|
| 332 | subroutine KSPDestroy(ksp ,ierr)
|
|---|
| 333 | KSP ksp ! KSP
|
|---|
| 334 | integer ierr
|
|---|
| 335 | end subroutine
|
|---|
| 336 | subroutine KSPSetPCSide(ksp, side ,ierr)
|
|---|
| 337 | KSP ksp ! KSP
|
|---|
| 338 | PCSide side ! PCSide
|
|---|
| 339 | integer ierr
|
|---|
| 340 | end subroutine
|
|---|
| 341 | subroutine KSPGetPCSide(ksp, side ,ierr)
|
|---|
| 342 | KSP ksp ! KSP
|
|---|
| 343 | PCSide side ! PCSide
|
|---|
| 344 | integer ierr
|
|---|
| 345 | end subroutine
|
|---|
| 346 | subroutine KSPGetTolerances(ksp, rtol, abstol, dtol, maxits , &
|
|---|
| 347 | &ierr)
|
|---|
| 348 | KSP ksp ! KSP
|
|---|
| 349 | PetscReal rtol ! PetscReal
|
|---|
| 350 | PetscReal abstol ! PetscReal
|
|---|
| 351 | PetscReal dtol ! PetscReal
|
|---|
| 352 | PetscInt maxits ! PetscInt
|
|---|
| 353 | integer ierr
|
|---|
| 354 | end subroutine
|
|---|
| 355 | subroutine KSPSetTolerances(ksp, rtol, abstol, dtol, maxits , &
|
|---|
| 356 | &ierr)
|
|---|
| 357 | KSP ksp ! KSP
|
|---|
| 358 | PetscReal rtol ! PetscReal
|
|---|
| 359 | PetscReal abstol ! PetscReal
|
|---|
| 360 | PetscReal dtol ! PetscReal
|
|---|
| 361 | PetscInt maxits ! PetscInt
|
|---|
| 362 | integer ierr
|
|---|
| 363 | end subroutine
|
|---|
| 364 | subroutine KSPSetInitialGuessNonzero(ksp, flg ,ierr)
|
|---|
| 365 | KSP ksp ! KSP
|
|---|
| 366 | PetscBool flg ! PetscBool
|
|---|
| 367 | integer ierr
|
|---|
| 368 | end subroutine
|
|---|
| 369 | subroutine KSPGetInitialGuessNonzero(ksp, flag ,ierr)
|
|---|
| 370 | KSP ksp ! KSP
|
|---|
| 371 | PetscBool flag ! PetscBool
|
|---|
| 372 | integer ierr
|
|---|
| 373 | end subroutine
|
|---|
| 374 | subroutine KSPSetErrorIfNotConverged(ksp, flg ,ierr)
|
|---|
| 375 | KSP ksp ! KSP
|
|---|
| 376 | PetscBool flg ! PetscBool
|
|---|
| 377 | integer ierr
|
|---|
| 378 | end subroutine
|
|---|
| 379 | subroutine KSPGetErrorIfNotConverged(ksp, flag ,ierr)
|
|---|
| 380 | KSP ksp ! KSP
|
|---|
| 381 | PetscBool flag ! PetscBool
|
|---|
| 382 | integer ierr
|
|---|
| 383 | end subroutine
|
|---|
| 384 | subroutine KSPSetInitialGuessKnoll(ksp, flg ,ierr)
|
|---|
| 385 | KSP ksp ! KSP
|
|---|
| 386 | PetscBool flg ! PetscBool
|
|---|
| 387 | integer ierr
|
|---|
| 388 | end subroutine
|
|---|
| 389 | subroutine KSPGetInitialGuessKnoll(ksp, flag ,ierr)
|
|---|
| 390 | KSP ksp ! KSP
|
|---|
| 391 | PetscBool flag ! PetscBool
|
|---|
| 392 | integer ierr
|
|---|
| 393 | end subroutine
|
|---|
| 394 | subroutine KSPGetComputeSingularValues(ksp, flg ,ierr)
|
|---|
| 395 | KSP ksp ! KSP
|
|---|
| 396 | PetscBool flg ! PetscBool
|
|---|
| 397 | integer ierr
|
|---|
| 398 | end subroutine
|
|---|
| 399 | subroutine KSPSetComputeSingularValues(ksp, flg ,ierr)
|
|---|
| 400 | KSP ksp ! KSP
|
|---|
| 401 | PetscBool flg ! PetscBool
|
|---|
| 402 | integer ierr
|
|---|
| 403 | end subroutine
|
|---|
| 404 | subroutine KSPGetComputeEigenvalues(ksp, flg ,ierr)
|
|---|
| 405 | KSP ksp ! KSP
|
|---|
| 406 | PetscBool flg ! PetscBool
|
|---|
| 407 | integer ierr
|
|---|
| 408 | end subroutine
|
|---|
| 409 | subroutine KSPSetComputeEigenvalues(ksp, flg ,ierr)
|
|---|
| 410 | KSP ksp ! KSP
|
|---|
| 411 | PetscBool flg ! PetscBool
|
|---|
| 412 | integer ierr
|
|---|
| 413 | end subroutine
|
|---|
| 414 | subroutine KSPGetRhs(ksp, r ,ierr)
|
|---|
| 415 | KSP ksp ! KSP
|
|---|
| 416 | Vec r ! Vec
|
|---|
| 417 | integer ierr
|
|---|
| 418 | end subroutine
|
|---|
| 419 | subroutine KSPGetSolution(ksp, v ,ierr)
|
|---|
| 420 | KSP ksp ! KSP
|
|---|
| 421 | Vec v ! Vec
|
|---|
| 422 | integer ierr
|
|---|
| 423 | end subroutine
|
|---|
| 424 | subroutine KSPSetPC(ksp, pc ,ierr)
|
|---|
| 425 | KSP ksp ! KSP
|
|---|
| 426 | PC pc ! PC
|
|---|
| 427 | integer ierr
|
|---|
| 428 | end subroutine
|
|---|
| 429 | subroutine KSPGetPC(ksp, pc ,ierr)
|
|---|
| 430 | KSP ksp ! KSP
|
|---|
| 431 | PC pc ! PC
|
|---|
| 432 | integer ierr
|
|---|
| 433 | end subroutine
|
|---|
| 434 | subroutine KSPMonitor(ksp, it, rnorm ,ierr)
|
|---|
| 435 | KSP ksp ! KSP
|
|---|
| 436 | PetscInt it ! PetscInt
|
|---|
| 437 | PetscReal rnorm ! PetscReal
|
|---|
| 438 | integer ierr
|
|---|
| 439 | end subroutine
|
|---|
| 440 | subroutine KSPMonitorCancel(ksp ,ierr)
|
|---|
| 441 | KSP ksp ! KSP
|
|---|
| 442 | integer ierr
|
|---|
| 443 | end subroutine
|
|---|
| 444 | subroutine KSPSetResidualHistory(ksp, a, na, reset ,ierr)
|
|---|
| 445 | KSP ksp ! KSP
|
|---|
| 446 | PetscReal a (*) ! PetscReal
|
|---|
| 447 | PetscInt na ! PetscInt
|
|---|
| 448 | PetscBool reset ! PetscBool
|
|---|
| 449 | integer ierr
|
|---|
| 450 | end subroutine
|
|---|
| 451 | subroutine KSPSetDiagonalScale(ksp, scale ,ierr)
|
|---|
| 452 | KSP ksp ! KSP
|
|---|
| 453 | PetscBool scale ! PetscBool
|
|---|
| 454 | integer ierr
|
|---|
| 455 | end subroutine
|
|---|
| 456 | subroutine KSPGetDiagonalScale(ksp, scale ,ierr)
|
|---|
| 457 | KSP ksp ! KSP
|
|---|
| 458 | PetscBool scale ! PetscBool
|
|---|
| 459 | integer ierr
|
|---|
| 460 | end subroutine
|
|---|
| 461 | subroutine KSPSetDiagonalScaleFix(ksp, fix ,ierr)
|
|---|
| 462 | KSP ksp ! KSP
|
|---|
| 463 | PetscBool fix ! PetscBool
|
|---|
| 464 | integer ierr
|
|---|
| 465 | end subroutine
|
|---|
| 466 | subroutine KSPGetDiagonalScaleFix(ksp, fix ,ierr)
|
|---|
| 467 | KSP ksp ! KSP
|
|---|
| 468 | PetscBool fix ! PetscBool
|
|---|
| 469 | integer ierr
|
|---|
| 470 | end subroutine
|
|---|
| 471 | subroutine KSPInitialResidual(ksp, vsoln, vt1, vt2, vres, vb , &
|
|---|
| 472 | &ierr)
|
|---|
| 473 | KSP ksp ! KSP
|
|---|
| 474 | Vec vsoln ! Vec
|
|---|
| 475 | Vec vt1 ! Vec
|
|---|
| 476 | Vec vt2 ! Vec
|
|---|
| 477 | Vec vres ! Vec
|
|---|
| 478 | Vec vb ! Vec
|
|---|
| 479 | integer ierr
|
|---|
| 480 | end subroutine
|
|---|
| 481 | subroutine KSPUnwindPreconditioner(ksp, vsoln, vt1 ,ierr)
|
|---|
| 482 | KSP ksp ! KSP
|
|---|
| 483 | Vec vsoln ! Vec
|
|---|
| 484 | Vec vt1 ! Vec
|
|---|
| 485 | integer ierr
|
|---|
| 486 | end subroutine
|
|---|
| 487 | subroutine KSPMonitorLGDestroy(drawlg ,ierr)
|
|---|
| 488 | PetscDrawLG drawlg ! PetscDrawLG
|
|---|
| 489 | integer ierr
|
|---|
| 490 | end subroutine
|
|---|
| 491 | subroutine KSPMonitorLGRangeDestroy(drawlg ,ierr)
|
|---|
| 492 | PetscDrawLG drawlg ! PetscDrawLG
|
|---|
| 493 | integer ierr
|
|---|
| 494 | end subroutine
|
|---|
| 495 | subroutine MatCreateSchurComplement(A00, Ap00, A01, A10, A11, N &
|
|---|
| 496 | &,ierr)
|
|---|
| 497 | Mat A00 ! Mat
|
|---|
| 498 | Mat Ap00 ! Mat
|
|---|
| 499 | Mat A01 ! Mat
|
|---|
| 500 | Mat A10 ! Mat
|
|---|
| 501 | Mat A11 ! Mat
|
|---|
| 502 | Mat N ! Mat
|
|---|
| 503 | integer ierr
|
|---|
| 504 | end subroutine
|
|---|
| 505 | subroutine MatSchurComplementGetKSP(A, ksp ,ierr)
|
|---|
| 506 | Mat A ! Mat
|
|---|
| 507 | KSP ksp ! KSP
|
|---|
| 508 | integer ierr
|
|---|
| 509 | end subroutine
|
|---|
| 510 | subroutine MatSchurComplementUpdate(N, A, Ap, B, C, D, str ,ierr&
|
|---|
| 511 | &)
|
|---|
| 512 | Mat N ! Mat
|
|---|
| 513 | Mat A ! Mat
|
|---|
| 514 | Mat Ap ! Mat
|
|---|
| 515 | Mat B ! Mat
|
|---|
| 516 | Mat C ! Mat
|
|---|
| 517 | Mat D ! Mat
|
|---|
| 518 | MatStructure str ! MatStructure
|
|---|
| 519 | integer ierr
|
|---|
| 520 | end subroutine
|
|---|
| 521 | subroutine MatGetSchurComplement(mat, isrow0, iscol0, isrow1, &
|
|---|
| 522 | &iscol1, mreuse, newmat, preuse, newpmat ,ierr)
|
|---|
| 523 | Mat mat ! Mat
|
|---|
| 524 | IS isrow0 ! IS
|
|---|
| 525 | IS iscol0 ! IS
|
|---|
| 526 | IS isrow1 ! IS
|
|---|
| 527 | IS iscol1 ! IS
|
|---|
| 528 | MatReuse mreuse ! MatReuse
|
|---|
| 529 | Mat newmat ! Mat
|
|---|
| 530 | MatReuse preuse ! MatReuse
|
|---|
| 531 | Mat newpmat ! Mat
|
|---|
| 532 | integer ierr
|
|---|
| 533 | end subroutine
|
|---|
![(please configure the [header_logo] section in trac.ini)](/trac/issm/chrome/common/trac_banner.png)
