1 subroutine PCBJacobiSetTotalBlocks(a,b,c,z) 2 use petsckspdef 3 PC a ! PC 4 PetscInt b ! PetscInt 5 PetscInt c (*) ! PetscInt 6 PetscErrorCode z 7 end subroutine PCBJacobiSetTotalBlocks 8 subroutine PCBJacobiSetLocalBlocks(a,b,c,z) 9 use petsckspdef 10 PC a ! PC 11 PetscInt b ! PetscInt 12 PetscInt c (*) ! PetscInt 13 PetscErrorCode z 14 end subroutine PCBJacobiSetLocalBlocks 15 subroutine PCHPDDMHasNeumannMat(a,b,z) 16 use petsckspdef 17 PC a ! PC 18 PetscBool b ! PetscBool 19 PetscErrorCode z 20 end subroutine PCHPDDMHasNeumannMat 21 subroutine PCHPDDMSetRHSMat(a,b,z) 22 use petsckspdef 23 PC a ! PC 24 Mat b ! Mat 25 PetscErrorCode z 26 end subroutine PCHPDDMSetRHSMat 27 subroutine PCHPDDMSetCoarseCorrectionType(a,b,z) 28 use petsckspdef 29 PC a ! PC 30 PCHPDDMCoarseCorrectionType b ! PCHPDDMCoarseCorrectionType 31 PetscErrorCode z 32 end subroutine PCHPDDMSetCoarseCorrectionType 33 subroutine PCHPDDMGetCoarseCorrectionType(a,b,z) 34 use petsckspdef 35 PC a ! PC 36 PCHPDDMCoarseCorrectionType b ! PCHPDDMCoarseCorrectionType 37 PetscErrorCode z 38 end subroutine PCHPDDMGetCoarseCorrectionType 39 subroutine PCSetFromOptions(a,z) 40 use petsckspdef 41 PC a ! PC 42 PetscErrorCode z 43 end subroutine PCSetFromOptions 44 subroutine PCSetDM(a,b,z) 45 use petsckspdef 46 PC a ! PC 47 DM b ! DM 48 PetscErrorCode z 49 end subroutine PCSetDM 50 subroutine PCGetDM(a,b,z) 51 use petsckspdef 52 PC a ! PC 53 DM b ! DM 54 PetscErrorCode z 55 end subroutine PCGetDM 56 subroutine PCReset(a,z) 57 use petsckspdef 58 PC a ! PC 59 PetscErrorCode z 60 end subroutine PCReset 61 subroutine PCDestroy(a,z) 62 use petsckspdef 63 PC a ! PC 64 PetscErrorCode z 65 end subroutine PCDestroy 66 subroutine PCSetDiagonalScale(a,b,z) 67 use petsckspdef 68 PC a ! PC 69 Vec b ! Vec 70 PetscErrorCode z 71 end subroutine PCSetDiagonalScale 72 subroutine PCDiagonalScaleLeft(a,b,c,z) 73 use petsckspdef 74 PC a ! PC 75 Vec b ! Vec 76 Vec c ! Vec 77 PetscErrorCode z 78 end subroutine PCDiagonalScaleLeft 79 subroutine PCDiagonalScaleRight(a,b,c,z) 80 use petsckspdef 81 PC a ! PC 82 Vec b ! Vec 83 Vec c ! Vec 84 PetscErrorCode z 85 end subroutine PCDiagonalScaleRight 86 subroutine PCSetUseAmat(a,b,z) 87 use petsckspdef 88 PC a ! PC 89 PetscBool b ! PetscBool 90 PetscErrorCode z 91 end subroutine PCSetUseAmat 92 subroutine PCSetErrorIfFailure(a,b,z) 93 use petsckspdef 94 PC a ! PC 95 PetscBool b ! PetscBool 96 PetscErrorCode z 97 end subroutine PCSetErrorIfFailure 98 subroutine PCGetUseAmat(a,b,z) 99 use petsckspdef 100 PC a ! PC 101 PetscBool b ! PetscBool 102 PetscErrorCode z 103 end subroutine PCGetUseAmat 104 subroutine PCCreate(a,b,z) 105 use petsckspdef 106 MPI_Comm a ! MPI_Comm 107 PC b ! PC 108 PetscErrorCode z 109 end subroutine PCCreate 110 subroutine PCApply(a,b,c,z) 111 use petsckspdef 112 PC a ! PC 113 Vec b ! Vec 114 Vec c ! Vec 115 PetscErrorCode z 116 end subroutine PCApply 117 subroutine PCMatApply(a,b,c,z) 118 use petsckspdef 119 PC a ! PC 120 Mat b ! Mat 121 Mat c ! Mat 122 PetscErrorCode z 123 end subroutine PCMatApply 124 subroutine PCApplySymmetricLeft(a,b,c,z) 125 use petsckspdef 126 PC a ! PC 127 Vec b ! Vec 128 Vec c ! Vec 129 PetscErrorCode z 130 end subroutine PCApplySymmetricLeft 131 subroutine PCApplySymmetricRight(a,b,c,z) 132 use petsckspdef 133 PC a ! PC 134 Vec b ! Vec 135 Vec c ! Vec 136 PetscErrorCode z 137 end subroutine PCApplySymmetricRight 138 subroutine PCApplyTranspose(a,b,c,z) 139 use petsckspdef 140 PC a ! PC 141 Vec b ! Vec 142 Vec c ! Vec 143 PetscErrorCode z 144 end subroutine PCApplyTranspose 145 subroutine PCApplyTransposeExists(a,b,z) 146 use petsckspdef 147 PC a ! PC 148 PetscBool b ! PetscBool 149 PetscErrorCode z 150 end subroutine PCApplyTransposeExists 151 subroutine PCApplyBAorAB(a,b,c,d,e,z) 152 use petsckspdef 153 PC a ! PC 154 PCSide b ! PCSide 155 Vec c ! Vec 156 Vec d ! Vec 157 Vec e ! Vec 158 PetscErrorCode z 159 end subroutine PCApplyBAorAB 160 subroutine PCApplyBAorABTranspose(a,b,c,d,e,z) 161 use petsckspdef 162 PC a ! PC 163 PCSide b ! PCSide 164 Vec c ! Vec 165 Vec d ! Vec 166 Vec e ! Vec 167 PetscErrorCode z 168 end subroutine PCApplyBAorABTranspose 169 subroutine PCApplyRichardsonExists(a,b,z) 170 use petsckspdef 171 PC a ! PC 172 PetscBool b ! PetscBool 173 PetscErrorCode z 174 end subroutine PCApplyRichardsonExists 175 subroutine PCApplyRichardson(a,b,c,d,e,f,g,h,i,j,k,z) 176 use petsckspdef 177 PC a ! PC 178 Vec b ! Vec 179 Vec c ! Vec 180 Vec d ! Vec 181 PetscReal e ! PetscReal 182 PetscReal f ! PetscReal 183 PetscReal g ! PetscReal 184 PetscInt h ! PetscInt 185 PetscBool i ! PetscBool 186 PetscInt j ! PetscInt 187 PCRichardsonConvergedReason k ! PCRichardsonConvergedReason 188 PetscErrorCode z 189 end subroutine PCApplyRichardson 190 subroutine PCSetFailedReason(a,b,z) 191 use petsckspdef 192 PC a ! PC 193 PCFailedReason b ! PCFailedReason 194 PetscErrorCode z 195 end subroutine PCSetFailedReason 196 subroutine PCGetFailedReason(a,b,z) 197 use petsckspdef 198 PC a ! PC 199 PCFailedReason b ! PCFailedReason 200 PetscErrorCode z 201 end subroutine PCGetFailedReason 202 subroutine PCGetFailedReasonRank(a,b,z) 203 use petsckspdef 204 PC a ! PC 205 PCFailedReason b ! PCFailedReason 206 PetscErrorCode z 207 end subroutine PCGetFailedReasonRank 208 subroutine PCSetUp(a,z) 209 use petsckspdef 210 PC a ! PC 211 PetscErrorCode z 212 end subroutine PCSetUp 213 subroutine PCSetUpOnBlocks(a,z) 214 use petsckspdef 215 PC a ! PC 216 PetscErrorCode z 217 end subroutine PCSetUpOnBlocks 218 subroutine PCSetOperators(a,b,c,z) 219 use petsckspdef 220 PC a ! PC 221 Mat b ! Mat 222 Mat c ! Mat 223 PetscErrorCode z 224 end subroutine PCSetOperators 225 subroutine PCSetReusePreconditioner(a,b,z) 226 use petsckspdef 227 PC a ! PC 228 PetscBool b ! PetscBool 229 PetscErrorCode z 230 end subroutine PCSetReusePreconditioner 231 subroutine PCGetReusePreconditioner(a,b,z) 232 use petsckspdef 233 PC a ! PC 234 PetscBool b ! PetscBool 235 PetscErrorCode z 236 end subroutine PCGetReusePreconditioner 237 subroutine PCGetOperators(a,b,c,z) 238 use petsckspdef 239 PC a ! PC 240 Mat b ! Mat 241 Mat c ! Mat 242 PetscErrorCode z 243 end subroutine PCGetOperators 244 subroutine PCFactorGetMatrix(a,b,z) 245 use petsckspdef 246 PC a ! PC 247 Mat b ! Mat 248 PetscErrorCode z 249 end subroutine PCFactorGetMatrix 250 subroutine PCPreSolve(a,b,z) 251 use petsckspdef 252 PC a ! PC 253 KSP b ! KSP 254 PetscErrorCode z 255 end subroutine PCPreSolve 256 subroutine PCPostSolve(a,b,z) 257 use petsckspdef 258 PC a ! PC 259 KSP b ! KSP 260 PetscErrorCode z 261 end subroutine PCPostSolve 262 subroutine PCComputeOperator(a,b,c,z) 263 use petsckspdef 264 PC a ! PC 265 MatType b ! MatType 266 Mat c ! Mat 267 PetscErrorCode z 268 end subroutine PCComputeOperator 269 subroutine PCSetCoordinates(a,b,c,d,z) 270 use petsckspdef 271 PC a ! PC 272 PetscInt b ! PetscInt 273 PetscInt c ! PetscInt 274 PetscReal d (*) ! PetscReal 275 PetscErrorCode z 276 end subroutine PCSetCoordinates 277 subroutine PCGetInterpolations(a,b,c,z) 278 use petsckspdef 279 PC a ! PC 280 PetscInt b ! PetscInt 281 Mat c (*) ! Mat 282 PetscErrorCode z 283 end subroutine PCGetInterpolations 284 subroutine PCGetCoarseOperators(a,b,c,z) 285 use petsckspdef 286 PC a ! PC 287 PetscInt b ! PetscInt 288 Mat c (*) ! Mat 289 PetscErrorCode z 290 end subroutine PCGetCoarseOperators 291 subroutine PCASMSetOverlap(a,b,z) 292 use petsckspdef 293 PC a ! PC 294 PetscInt b ! PetscInt 295 PetscErrorCode z 296 end subroutine PCASMSetOverlap 297 subroutine PCASMSetType(a,b,z) 298 use petsckspdef 299 PC a ! PC 300 PCASMType b ! PCASMType 301 PetscErrorCode z 302 end subroutine PCASMSetType 303 subroutine PCASMGetType(a,b,z) 304 use petsckspdef 305 PC a ! PC 306 PCASMType b ! PCASMType 307 PetscErrorCode z 308 end subroutine PCASMGetType 309 subroutine PCASMSetLocalType(a,b,z) 310 use petsckspdef 311 PC a ! PC 312 PCCompositeType b ! PCCompositeType 313 PetscErrorCode z 314 end subroutine PCASMSetLocalType 315 subroutine PCASMGetLocalType(a,b,z) 316 use petsckspdef 317 PC a ! PC 318 PCCompositeType b ! PCCompositeType 319 PetscErrorCode z 320 end subroutine PCASMGetLocalType 321 subroutine PCASMSetSortIndices(a,b,z) 322 use petsckspdef 323 PC a ! PC 324 PetscBool b ! PetscBool 325 PetscErrorCode z 326 end subroutine PCASMSetSortIndices 327 subroutine PCASMCreateSubdomains2D(a,b,c,d,e,f,g,h,i,z) 328 use petsckspdef 329 PetscInt a ! PetscInt 330 PetscInt b ! PetscInt 331 PetscInt c ! PetscInt 332 PetscInt d ! PetscInt 333 PetscInt e ! PetscInt 334 PetscInt f ! PetscInt 335 PetscInt g ! PetscInt 336 IS h ! IS 337 IS i ! IS 338 PetscErrorCode z 339 end subroutine PCASMCreateSubdomains2D 340 subroutine PCASMSetDMSubdomains(a,b,z) 341 use petsckspdef 342 PC a ! PC 343 PetscBool b ! PetscBool 344 PetscErrorCode z 345 end subroutine PCASMSetDMSubdomains 346 subroutine PCASMGetDMSubdomains(a,b,z) 347 use petsckspdef 348 PC a ! PC 349 PetscBool b ! PetscBool 350 PetscErrorCode z 351 end subroutine PCASMGetDMSubdomains 352 subroutine PCASMGetSubMatType(a,b,z) 353 use petsckspdef 354 PC a ! PC 355 MatType b ! MatType 356 PetscErrorCode z 357 end subroutine PCASMGetSubMatType 358 subroutine PCASMSetSubMatType(a,b,z) 359 use petsckspdef 360 PC a ! PC 361 MatType b ! MatType 362 PetscErrorCode z 363 end subroutine PCASMSetSubMatType 364 subroutine PCMGGetCoarseSolve(a,b,z) 365 use petsckspdef 366 PC a ! PC 367 KSP b ! KSP 368 PetscErrorCode z 369 end subroutine PCMGGetCoarseSolve 370 subroutine PCMGSetInterpolation(a,b,c,z) 371 use petsckspdef 372 PC a ! PC 373 PetscInt b ! PetscInt 374 Mat c ! Mat 375 PetscErrorCode z 376 end subroutine PCMGSetInterpolation 377 subroutine PCMGSetOperators(a,b,c,d,z) 378 use petsckspdef 379 PC a ! PC 380 PetscInt b ! PetscInt 381 Mat c ! Mat 382 Mat d ! Mat 383 PetscErrorCode z 384 end subroutine PCMGSetOperators 385 subroutine PCMGGetInterpolation(a,b,c,z) 386 use petsckspdef 387 PC a ! PC 388 PetscInt b ! PetscInt 389 Mat c ! Mat 390 PetscErrorCode z 391 end subroutine PCMGGetInterpolation 392 subroutine PCMGSetRestriction(a,b,c,z) 393 use petsckspdef 394 PC a ! PC 395 PetscInt b ! PetscInt 396 Mat c ! Mat 397 PetscErrorCode z 398 end subroutine PCMGSetRestriction 399 subroutine PCMGGetRestriction(a,b,c,z) 400 use petsckspdef 401 PC a ! PC 402 PetscInt b ! PetscInt 403 Mat c ! Mat 404 PetscErrorCode z 405 end subroutine PCMGGetRestriction 406 subroutine PCMGSetRScale(a,b,c,z) 407 use petsckspdef 408 PC a ! PC 409 PetscInt b ! PetscInt 410 Vec c ! Vec 411 PetscErrorCode z 412 end subroutine PCMGSetRScale 413 subroutine PCMGGetRScale(a,b,c,z) 414 use petsckspdef 415 PC a ! PC 416 PetscInt b ! PetscInt 417 Vec c ! Vec 418 PetscErrorCode z 419 end subroutine PCMGGetRScale 420 subroutine PCMGSetInjection(a,b,c,z) 421 use petsckspdef 422 PC a ! PC 423 PetscInt b ! PetscInt 424 Mat c ! Mat 425 PetscErrorCode z 426 end subroutine PCMGSetInjection 427 subroutine PCMGGetInjection(a,b,c,z) 428 use petsckspdef 429 PC a ! PC 430 PetscInt b ! PetscInt 431 Mat c ! Mat 432 PetscErrorCode z 433 end subroutine PCMGGetInjection 434 subroutine PCMGGetSmoother(a,b,c,z) 435 use petsckspdef 436 PC a ! PC 437 PetscInt b ! PetscInt 438 KSP c ! KSP 439 PetscErrorCode z 440 end subroutine PCMGGetSmoother 441 subroutine PCMGGetSmootherUp(a,b,c,z) 442 use petsckspdef 443 PC a ! PC 444 PetscInt b ! PetscInt 445 KSP c ! KSP 446 PetscErrorCode z 447 end subroutine PCMGGetSmootherUp 448 subroutine PCMGGetSmootherDown(a,b,c,z) 449 use petsckspdef 450 PC a ! PC 451 PetscInt b ! PetscInt 452 KSP c ! KSP 453 PetscErrorCode z 454 end subroutine PCMGGetSmootherDown 455 subroutine PCMGSetCycleTypeOnLevel(a,b,c,z) 456 use petsckspdef 457 PC a ! PC 458 PetscInt b ! PetscInt 459 PCMGCycleType c ! PCMGCycleType 460 PetscErrorCode z 461 end subroutine PCMGSetCycleTypeOnLevel 462 subroutine PCMGSetRhs(a,b,c,z) 463 use petsckspdef 464 PC a ! PC 465 PetscInt b ! PetscInt 466 Vec c ! Vec 467 PetscErrorCode z 468 end subroutine PCMGSetRhs 469 subroutine PCMGSetX(a,b,c,z) 470 use petsckspdef 471 PC a ! PC 472 PetscInt b ! PetscInt 473 Vec c ! Vec 474 PetscErrorCode z 475 end subroutine PCMGSetX 476 subroutine PCMGSetR(a,b,c,z) 477 use petsckspdef 478 PC a ! PC 479 PetscInt b ! PetscInt 480 Vec c ! Vec 481 PetscErrorCode z 482 end subroutine PCMGSetR 483 subroutine PCMGGetLevels(a,b,z) 484 use petsckspdef 485 PC a ! PC 486 PetscInt b ! PetscInt 487 PetscErrorCode z 488 end subroutine PCMGGetLevels 489 subroutine PCMGSetType(a,b,z) 490 use petsckspdef 491 PC a ! PC 492 PCMGType b ! PCMGType 493 PetscErrorCode z 494 end subroutine PCMGSetType 495 subroutine PCMGGetType(a,b,z) 496 use petsckspdef 497 PC a ! PC 498 PCMGType b ! PCMGType 499 PetscErrorCode z 500 end subroutine PCMGGetType 501 subroutine PCMGSetCycleType(a,b,z) 502 use petsckspdef 503 PC a ! PC 504 PCMGCycleType b ! PCMGCycleType 505 PetscErrorCode z 506 end subroutine PCMGSetCycleType 507 subroutine PCMGMultiplicativeSetCycles(a,b,z) 508 use petsckspdef 509 PC a ! PC 510 PetscInt b ! PetscInt 511 PetscErrorCode z 512 end subroutine PCMGMultiplicativeSetCycles 513 subroutine PCMGSetGalerkin(a,b,z) 514 use petsckspdef 515 PC a ! PC 516 PCMGGalerkinType b ! PCMGGalerkinType 517 PetscErrorCode z 518 end subroutine PCMGSetGalerkin 519 subroutine PCMGGetGalerkin(a,b,z) 520 use petsckspdef 521 PC a ! PC 522 PCMGGalerkinType b ! PCMGGalerkinType 523 PetscErrorCode z 524 end subroutine PCMGGetGalerkin 525 subroutine PCMGSetAdaptInterpolation(a,b,z) 526 use petsckspdef 527 PC a ! PC 528 PetscBool b ! PetscBool 529 PetscErrorCode z 530 end subroutine PCMGSetAdaptInterpolation 531 subroutine PCMGGetAdaptInterpolation(a,b,z) 532 use petsckspdef 533 PC a ! PC 534 PetscBool b ! PetscBool 535 PetscErrorCode z 536 end subroutine PCMGGetAdaptInterpolation 537 subroutine PCMGSetNumberSmooth(a,b,z) 538 use petsckspdef 539 PC a ! PC 540 PetscInt b ! PetscInt 541 PetscErrorCode z 542 end subroutine PCMGSetNumberSmooth 543 subroutine PCMGSetDistinctSmoothUp(a,z) 544 use petsckspdef 545 PC a ! PC 546 PetscErrorCode z 547 end subroutine PCMGSetDistinctSmoothUp 548 subroutine PCDeflationSetInitOnly(a,b,z) 549 use petsckspdef 550 PC a ! PC 551 PetscBool b ! PetscBool 552 PetscErrorCode z 553 end subroutine PCDeflationSetInitOnly 554 subroutine PCDeflationSetLevels(a,b,z) 555 use petsckspdef 556 PC a ! PC 557 PetscInt b ! PetscInt 558 PetscErrorCode z 559 end subroutine PCDeflationSetLevels 560 subroutine PCDeflationSetReductionFactor(a,b,z) 561 use petsckspdef 562 PC a ! PC 563 PetscInt b ! PetscInt 564 PetscErrorCode z 565 end subroutine PCDeflationSetReductionFactor 566 subroutine PCDeflationSetCorrectionFactor(a,b,z) 567 use petsckspdef 568 PC a ! PC 569 PetscScalar b ! PetscScalar 570 PetscErrorCode z 571 end subroutine PCDeflationSetCorrectionFactor 572 subroutine PCDeflationSetSpaceToCompute(a,b,c,z) 573 use petsckspdef 574 PC a ! PC 575 PCDeflationSpaceType b ! PCDeflationSpaceType 576 PetscInt c ! PetscInt 577 PetscErrorCode z 578 end subroutine PCDeflationSetSpaceToCompute 579 subroutine PCDeflationSetSpace(a,b,c,z) 580 use petsckspdef 581 PC a ! PC 582 Mat b ! Mat 583 PetscBool c ! PetscBool 584 PetscErrorCode z 585 end subroutine PCDeflationSetSpace 586 subroutine PCDeflationSetProjectionNullSpaceMat(a,b,z) 587 use petsckspdef 588 PC a ! PC 589 Mat b ! Mat 590 PetscErrorCode z 591 end subroutine PCDeflationSetProjectionNullSpaceMat 592 subroutine PCDeflationSetCoarseMat(a,b,z) 593 use petsckspdef 594 PC a ! PC 595 Mat b ! Mat 596 PetscErrorCode z 597 end subroutine PCDeflationSetCoarseMat 598 subroutine PCDeflationGetCoarseKSP(a,b,z) 599 use petsckspdef 600 PC a ! PC 601 KSP b ! KSP 602 PetscErrorCode z 603 end subroutine PCDeflationGetCoarseKSP 604 subroutine PCDeflationGetPC(a,b,z) 605 use petsckspdef 606 PC a ! PC 607 PC b ! PC 608 PetscErrorCode z 609 end subroutine PCDeflationGetPC 610 subroutine PCKSPSetKSP(a,b,z) 611 use petsckspdef 612 PC a ! PC 613 KSP b ! KSP 614 PetscErrorCode z 615 end subroutine PCKSPSetKSP 616 subroutine PCKSPGetKSP(a,b,z) 617 use petsckspdef 618 PC a ! PC 619 KSP b ! KSP 620 PetscErrorCode z 621 end subroutine PCKSPGetKSP 622 subroutine PCSPAISetEpsilon(a,b,z) 623 use petsckspdef 624 PC a ! PC 625 double precision b ! double 626 PetscErrorCode z 627 end subroutine PCSPAISetEpsilon 628 subroutine PCSPAISetNBSteps(a,b,z) 629 use petsckspdef 630 PC a ! PC 631 integer b ! int 632 PetscErrorCode z 633 end subroutine PCSPAISetNBSteps 634 subroutine PCSPAISetMax(a,b,z) 635 use petsckspdef 636 PC a ! PC 637 integer b ! int 638 PetscErrorCode z 639 end subroutine PCSPAISetMax 640 subroutine PCSPAISetMaxNew(a,b,z) 641 use petsckspdef 642 PC a ! PC 643 integer b ! int 644 PetscErrorCode z 645 end subroutine PCSPAISetMaxNew 646 subroutine PCSPAISetBlockSize(a,b,z) 647 use petsckspdef 648 PC a ! PC 649 integer b ! int 650 PetscErrorCode z 651 end subroutine PCSPAISetBlockSize 652 subroutine PCSPAISetCacheSize(a,b,z) 653 use petsckspdef 654 PC a ! PC 655 integer b ! int 656 PetscErrorCode z 657 end subroutine PCSPAISetCacheSize 658 subroutine PCSPAISetVerbose(a,b,z) 659 use petsckspdef 660 PC a ! PC 661 integer b ! int 662 PetscErrorCode z 663 end subroutine PCSPAISetVerbose 664 subroutine PCSPAISetSp(a,b,z) 665 use petsckspdef 666 PC a ! PC 667 integer b ! int 668 PetscErrorCode z 669 end subroutine PCSPAISetSp 670 subroutine PCHYPRESetDiscreteGradient(a,b,z) 671 use petsckspdef 672 PC a ! PC 673 Mat b ! Mat 674 PetscErrorCode z 675 end subroutine PCHYPRESetDiscreteGradient 676 subroutine PCHYPRESetDiscreteCurl(a,b,z) 677 use petsckspdef 678 PC a ! PC 679 Mat b ! Mat 680 PetscErrorCode z 681 end subroutine PCHYPRESetDiscreteCurl 682 subroutine PCHYPRESetInterpolations(a,b,c,d,e,f,z) 683 use petsckspdef 684 PC a ! PC 685 PetscInt b ! PetscInt 686 Mat c ! Mat 687 Mat d (*) ! Mat 688 Mat e ! Mat 689 Mat f (*) ! Mat 690 PetscErrorCode z 691 end subroutine PCHYPRESetInterpolations 692 subroutine PCHYPRESetAlphaPoissonMatrix(a,b,z) 693 use petsckspdef 694 PC a ! PC 695 Mat b ! Mat 696 PetscErrorCode z 697 end subroutine PCHYPRESetAlphaPoissonMatrix 698 subroutine PCHYPRESetBetaPoissonMatrix(a,b,z) 699 use petsckspdef 700 PC a ! PC 701 Mat b ! Mat 702 PetscErrorCode z 703 end subroutine PCHYPRESetBetaPoissonMatrix 704 subroutine PCHYPRESetEdgeConstantVectors(a,b,c,d,z) 705 use petsckspdef 706 PC a ! PC 707 Vec b ! Vec 708 Vec c ! Vec 709 Vec d ! Vec 710 PetscErrorCode z 711 end subroutine PCHYPRESetEdgeConstantVectors 712 subroutine PCISSetUseStiffnessScaling(a,b,z) 713 use petsckspdef 714 PC a ! PC 715 PetscBool b ! PetscBool 716 PetscErrorCode z 717 end subroutine PCISSetUseStiffnessScaling 718 subroutine PCISSetSubdomainDiagonalScaling(a,b,z) 719 use petsckspdef 720 PC a ! PC 721 Vec b ! Vec 722 PetscErrorCode z 723 end subroutine PCISSetSubdomainDiagonalScaling 724 subroutine PCISSetSubdomainScalingFactor(a,b,z) 725 use petsckspdef 726 PC a ! PC 727 PetscScalar b ! PetscScalar 728 PetscErrorCode z 729 end subroutine PCISSetSubdomainScalingFactor 730 subroutine PCGASMSetTotalSubdomains(a,b,z) 731 use petsckspdef 732 PC a ! PC 733 PetscInt b ! PetscInt 734 PetscErrorCode z 735 end subroutine PCGASMSetTotalSubdomains 736 subroutine PCGASMSetOverlap(a,b,z) 737 use petsckspdef 738 PC a ! PC 739 PetscInt b ! PetscInt 740 PetscErrorCode z 741 end subroutine PCGASMSetOverlap 742 subroutine PCGASMSetType(a,b,z) 743 use petsckspdef 744 PC a ! PC 745 PCGASMType b ! PCGASMType 746 PetscErrorCode z 747 end subroutine PCGASMSetType 748 subroutine PCGASMSetSortIndices(a,b,z) 749 use petsckspdef 750 PC a ! PC 751 PetscBool b ! PetscBool 752 PetscErrorCode z 753 end subroutine PCGASMSetSortIndices 754 subroutine PCGASMCreateSubdomains2D(a,b,c,d,e,f,g,h,i,j,z) 755 use petsckspdef 756 PC a ! PC 757 PetscInt b ! PetscInt 758 PetscInt c ! PetscInt 759 PetscInt d ! PetscInt 760 PetscInt e ! PetscInt 761 PetscInt f ! PetscInt 762 PetscInt g ! PetscInt 763 PetscInt h ! PetscInt 764 IS i ! IS 765 IS j ! IS 766 PetscErrorCode z 767 end subroutine PCGASMCreateSubdomains2D 768 subroutine PCGASMSetUseDMSubdomains(a,b,z) 769 use petsckspdef 770 PC a ! PC 771 PetscBool b ! PetscBool 772 PetscErrorCode z 773 end subroutine PCGASMSetUseDMSubdomains 774 subroutine PCGASMGetUseDMSubdomains(a,b,z) 775 use petsckspdef 776 PC a ! PC 777 PetscBool b ! PetscBool 778 PetscErrorCode z 779 end subroutine PCGASMGetUseDMSubdomains 780 subroutine PCTelescopeGetKSP(a,b,z) 781 use petsckspdef 782 PC a ! PC 783 KSP b ! KSP 784 PetscErrorCode z 785 end subroutine PCTelescopeGetKSP 786 subroutine PCTelescopeGetReductionFactor(a,b,z) 787 use petsckspdef 788 PC a ! PC 789 PetscInt b ! PetscInt 790 PetscErrorCode z 791 end subroutine PCTelescopeGetReductionFactor 792 subroutine PCTelescopeSetReductionFactor(a,b,z) 793 use petsckspdef 794 PC a ! PC 795 PetscInt b ! PetscInt 796 PetscErrorCode z 797 end subroutine PCTelescopeSetReductionFactor 798 subroutine PCTelescopeGetIgnoreDM(a,b,z) 799 use petsckspdef 800 PC a ! PC 801 PetscBool b ! PetscBool 802 PetscErrorCode z 803 end subroutine PCTelescopeGetIgnoreDM 804 subroutine PCTelescopeSetIgnoreDM(a,b,z) 805 use petsckspdef 806 PC a ! PC 807 PetscBool b ! PetscBool 808 PetscErrorCode z 809 end subroutine PCTelescopeSetIgnoreDM 810 subroutine PCTelescopeGetUseCoarseDM(a,b,z) 811 use petsckspdef 812 PC a ! PC 813 PetscBool b ! PetscBool 814 PetscErrorCode z 815 end subroutine PCTelescopeGetUseCoarseDM 816 subroutine PCTelescopeSetUseCoarseDM(a,b,z) 817 use petsckspdef 818 PC a ! PC 819 PetscBool b ! PetscBool 820 PetscErrorCode z 821 end subroutine PCTelescopeSetUseCoarseDM 822 subroutine PCTelescopeGetIgnoreKSPComputeOperators(a,b,z) 823 use petsckspdef 824 PC a ! PC 825 PetscBool b ! PetscBool 826 PetscErrorCode z 827 end subroutine PCTelescopeGetIgnoreKSPComputeOperators 828 subroutine PCTelescopeSetIgnoreKSPComputeOperators(a,b,z) 829 use petsckspdef 830 PC a ! PC 831 PetscBool b ! PetscBool 832 PetscErrorCode z 833 end subroutine PCTelescopeSetIgnoreKSPComputeOperators 834 subroutine PCTelescopeGetDM(a,b,z) 835 use petsckspdef 836 PC a ! PC 837 DM b ! DM 838 PetscErrorCode z 839 end subroutine PCTelescopeGetDM 840 subroutine PCTelescopeSetSubcommType(a,b,z) 841 use petsckspdef 842 PC a ! PC 843 PetscSubcommType b ! PetscSubcommType 844 PetscErrorCode z 845 end subroutine PCTelescopeSetSubcommType 846 subroutine PCTelescopeGetSubcommType(a,b,z) 847 use petsckspdef 848 PC a ! PC 849 PetscSubcommType b ! PetscSubcommType 850 PetscErrorCode z 851 end subroutine PCTelescopeGetSubcommType 852 subroutine PCGalerkinSetRestriction(a,b,z) 853 use petsckspdef 854 PC a ! PC 855 Mat b ! Mat 856 PetscErrorCode z 857 end subroutine PCGalerkinSetRestriction 858 subroutine PCGalerkinSetInterpolation(a,b,z) 859 use petsckspdef 860 PC a ! PC 861 Mat b ! Mat 862 PetscErrorCode z 863 end subroutine PCGalerkinSetInterpolation 864 subroutine PCGalerkinGetKSP(a,b,z) 865 use petsckspdef 866 PC a ! PC 867 KSP b ! KSP 868 PetscErrorCode z 869 end subroutine PCGalerkinGetKSP 870 subroutine PCRedundantSetNumber(a,b,z) 871 use petsckspdef 872 PC a ! PC 873 PetscInt b ! PetscInt 874 PetscErrorCode z 875 end subroutine PCRedundantSetNumber 876 subroutine PCRedundantSetScatter(a,b,c,z) 877 use petsckspdef 878 PC a ! PC 879 VecScatter b ! VecScatter 880 VecScatter c ! VecScatter 881 PetscErrorCode z 882 end subroutine PCRedundantSetScatter 883 subroutine PCRedundantGetKSP(a,b,z) 884 use petsckspdef 885 PC a ! PC 886 KSP b ! KSP 887 PetscErrorCode z 888 end subroutine PCRedundantGetKSP 889 subroutine PCRedundantGetOperators(a,b,c,z) 890 use petsckspdef 891 PC a ! PC 892 Mat b ! Mat 893 Mat c ! Mat 894 PetscErrorCode z 895 end subroutine PCRedundantGetOperators 896 subroutine PCBDDCSetDiscreteGradient(a,b,c,d,e,f,z) 897 use petsckspdef 898 PC a ! PC 899 Mat b ! Mat 900 PetscInt c ! PetscInt 901 PetscInt d ! PetscInt 902 PetscBool e ! PetscBool 903 PetscBool f ! PetscBool 904 PetscErrorCode z 905 end subroutine PCBDDCSetDiscreteGradient 906 subroutine PCBDDCSetDivergenceMat(a,b,c,d,z) 907 use petsckspdef 908 PC a ! PC 909 Mat b ! Mat 910 PetscBool c ! PetscBool 911 IS d ! IS 912 PetscErrorCode z 913 end subroutine PCBDDCSetDivergenceMat 914 subroutine PCBDDCSetChangeOfBasisMat(a,b,c,z) 915 use petsckspdef 916 PC a ! PC 917 Mat b ! Mat 918 PetscBool c ! PetscBool 919 PetscErrorCode z 920 end subroutine PCBDDCSetChangeOfBasisMat 921 subroutine PCBDDCSetPrimalVerticesIS(a,b,z) 922 use petsckspdef 923 PC a ! PC 924 IS b ! IS 925 PetscErrorCode z 926 end subroutine PCBDDCSetPrimalVerticesIS 927 subroutine PCBDDCGetPrimalVerticesIS(a,b,z) 928 use petsckspdef 929 PC a ! PC 930 IS b ! IS 931 PetscErrorCode z 932 end subroutine PCBDDCGetPrimalVerticesIS 933 subroutine PCBDDCSetPrimalVerticesLocalIS(a,b,z) 934 use petsckspdef 935 PC a ! PC 936 IS b ! IS 937 PetscErrorCode z 938 end subroutine PCBDDCSetPrimalVerticesLocalIS 939 subroutine PCBDDCGetPrimalVerticesLocalIS(a,b,z) 940 use petsckspdef 941 PC a ! PC 942 IS b ! IS 943 PetscErrorCode z 944 end subroutine PCBDDCGetPrimalVerticesLocalIS 945 subroutine PCBDDCSetCoarseningRatio(a,b,z) 946 use petsckspdef 947 PC a ! PC 948 PetscInt b ! PetscInt 949 PetscErrorCode z 950 end subroutine PCBDDCSetCoarseningRatio 951 subroutine PCBDDCSetLevels(a,b,z) 952 use petsckspdef 953 PC a ! PC 954 PetscInt b ! PetscInt 955 PetscErrorCode z 956 end subroutine PCBDDCSetLevels 957 subroutine PCBDDCSetDirichletBoundaries(a,b,z) 958 use petsckspdef 959 PC a ! PC 960 IS b ! IS 961 PetscErrorCode z 962 end subroutine PCBDDCSetDirichletBoundaries 963 subroutine PCBDDCSetDirichletBoundariesLocal(a,b,z) 964 use petsckspdef 965 PC a ! PC 966 IS b ! IS 967 PetscErrorCode z 968 end subroutine PCBDDCSetDirichletBoundariesLocal 969 subroutine PCBDDCSetNeumannBoundaries(a,b,z) 970 use petsckspdef 971 PC a ! PC 972 IS b ! IS 973 PetscErrorCode z 974 end subroutine PCBDDCSetNeumannBoundaries 975 subroutine PCBDDCSetNeumannBoundariesLocal(a,b,z) 976 use petsckspdef 977 PC a ! PC 978 IS b ! IS 979 PetscErrorCode z 980 end subroutine PCBDDCSetNeumannBoundariesLocal 981 subroutine PCBDDCGetDirichletBoundaries(a,b,z) 982 use petsckspdef 983 PC a ! PC 984 IS b ! IS 985 PetscErrorCode z 986 end subroutine PCBDDCGetDirichletBoundaries 987 subroutine PCBDDCGetDirichletBoundariesLocal(a,b,z) 988 use petsckspdef 989 PC a ! PC 990 IS b ! IS 991 PetscErrorCode z 992 end subroutine PCBDDCGetDirichletBoundariesLocal 993 subroutine PCBDDCGetNeumannBoundaries(a,b,z) 994 use petsckspdef 995 PC a ! PC 996 IS b ! IS 997 PetscErrorCode z 998 end subroutine PCBDDCGetNeumannBoundaries 999 subroutine PCBDDCGetNeumannBoundariesLocal(a,b,z) 1000 use petsckspdef 1001 PC a ! PC 1002 IS b ! IS 1003 PetscErrorCode z 1004 end subroutine PCBDDCGetNeumannBoundariesLocal 1005 subroutine PCBDDCSetLocalAdjacencyGraph(a,b,c,d,e,z) 1006 use petsckspdef 1007 PC a ! PC 1008 PetscInt b ! PetscInt 1009 PetscInt c (*) ! PetscInt 1010 PetscInt d (*) ! PetscInt 1011 PetscCopyMode e ! PetscCopyMode 1012 PetscErrorCode z 1013 end subroutine PCBDDCSetLocalAdjacencyGraph 1014 subroutine PCBDDCSetDofsSplittingLocal(a,b,c,z) 1015 use petsckspdef 1016 PC a ! PC 1017 PetscInt b ! PetscInt 1018 IS c (*) ! IS 1019 PetscErrorCode z 1020 end subroutine PCBDDCSetDofsSplittingLocal 1021 subroutine PCBDDCSetDofsSplitting(a,b,c,z) 1022 use petsckspdef 1023 PC a ! PC 1024 PetscInt b ! PetscInt 1025 IS c (*) ! IS 1026 PetscErrorCode z 1027 end subroutine PCBDDCSetDofsSplitting 1028 subroutine PCBDDCMatFETIDPGetRHS(a,b,c,z) 1029 use petsckspdef 1030 Mat a ! Mat 1031 Vec b ! Vec 1032 Vec c ! Vec 1033 PetscErrorCode z 1034 end subroutine PCBDDCMatFETIDPGetRHS 1035 subroutine PCBDDCMatFETIDPGetSolution(a,b,c,z) 1036 use petsckspdef 1037 Mat a ! Mat 1038 Vec b ! Vec 1039 Vec c ! Vec 1040 PetscErrorCode z 1041 end subroutine PCBDDCMatFETIDPGetSolution 1042 subroutine PCPARMSSetGlobal(a,b,z) 1043 use petsckspdef 1044 PC a ! PC 1045 PCPARMSGlobalType b ! PCPARMSGlobalType 1046 PetscErrorCode z 1047 end subroutine PCPARMSSetGlobal 1048 subroutine PCPARMSSetLocal(a,b,z) 1049 use petsckspdef 1050 PC a ! PC 1051 PCPARMSLocalType b ! PCPARMSLocalType 1052 PetscErrorCode z 1053 end subroutine PCPARMSSetLocal 1054 subroutine PCPARMSSetSolveTolerances(a,b,c,z) 1055 use petsckspdef 1056 PC a ! PC 1057 PetscReal b ! PetscReal 1058 PetscInt c ! PetscInt 1059 PetscErrorCode z 1060 end subroutine PCPARMSSetSolveTolerances 1061 subroutine PCPARMSSetSolveRestart(a,b,z) 1062 use petsckspdef 1063 PC a ! PC 1064 PetscInt b ! PetscInt 1065 PetscErrorCode z 1066 end subroutine PCPARMSSetSolveRestart 1067 subroutine PCPARMSSetNonsymPerm(a,b,z) 1068 use petsckspdef 1069 PC a ! PC 1070 PetscBool b ! PetscBool 1071 PetscErrorCode z 1072 end subroutine PCPARMSSetNonsymPerm 1073 subroutine PCPARMSSetFill(a,b,c,d,z) 1074 use petsckspdef 1075 PC a ! PC 1076 PetscInt b ! PetscInt 1077 PetscInt c ! PetscInt 1078 PetscInt d ! PetscInt 1079 PetscErrorCode z 1080 end subroutine PCPARMSSetFill 1081 subroutine PCSORGetSymmetric(a,b,z) 1082 use petsckspdef 1083 PC a ! PC 1084 MatSORType b ! MatSORType 1085 PetscErrorCode z 1086 end subroutine PCSORGetSymmetric 1087 subroutine PCSORGetOmega(a,b,z) 1088 use petsckspdef 1089 PC a ! PC 1090 PetscReal b ! PetscReal 1091 PetscErrorCode z 1092 end subroutine PCSORGetOmega 1093 subroutine PCSORGetIterations(a,b,c,z) 1094 use petsckspdef 1095 PC a ! PC 1096 PetscInt b ! PetscInt 1097 PetscInt c ! PetscInt 1098 PetscErrorCode z 1099 end subroutine PCSORGetIterations 1100 subroutine PCSORSetSymmetric(a,b,z) 1101 use petsckspdef 1102 PC a ! PC 1103 MatSORType b ! MatSORType 1104 PetscErrorCode z 1105 end subroutine PCSORSetSymmetric 1106 subroutine PCSORSetOmega(a,b,z) 1107 use petsckspdef 1108 PC a ! PC 1109 PetscReal b ! PetscReal 1110 PetscErrorCode z 1111 end subroutine PCSORSetOmega 1112 subroutine PCSORSetIterations(a,b,c,z) 1113 use petsckspdef 1114 PC a ! PC 1115 PetscInt b ! PetscInt 1116 PetscInt c ! PetscInt 1117 PetscErrorCode z 1118 end subroutine PCSORSetIterations 1119 subroutine PCLMVMSetMatLMVM(a,b,z) 1120 use petsckspdef 1121 PC a ! PC 1122 Mat b ! Mat 1123 PetscErrorCode z 1124 end subroutine PCLMVMSetMatLMVM 1125 subroutine PCLMVMGetMatLMVM(a,b,z) 1126 use petsckspdef 1127 PC a ! PC 1128 Mat b ! Mat 1129 PetscErrorCode z 1130 end subroutine PCLMVMGetMatLMVM 1131 subroutine PCLMVMSetIS(a,b,z) 1132 use petsckspdef 1133 PC a ! PC 1134 IS b ! IS 1135 PetscErrorCode z 1136 end subroutine PCLMVMSetIS 1137 subroutine PCLMVMClearIS(a,z) 1138 use petsckspdef 1139 PC a ! PC 1140 PetscErrorCode z 1141 end subroutine PCLMVMClearIS 1142 subroutine PCEisenstatSetOmega(a,b,z) 1143 use petsckspdef 1144 PC a ! PC 1145 PetscReal b ! PetscReal 1146 PetscErrorCode z 1147 end subroutine PCEisenstatSetOmega 1148 subroutine PCEisenstatSetNoDiagonalScaling(a,b,z) 1149 use petsckspdef 1150 PC a ! PC 1151 PetscBool b ! PetscBool 1152 PetscErrorCode z 1153 end subroutine PCEisenstatSetNoDiagonalScaling 1154 subroutine PCEisenstatGetOmega(a,b,z) 1155 use petsckspdef 1156 PC a ! PC 1157 PetscReal b ! PetscReal 1158 PetscErrorCode z 1159 end subroutine PCEisenstatGetOmega 1160 subroutine PCEisenstatGetNoDiagonalScaling(a,b,z) 1161 use petsckspdef 1162 PC a ! PC 1163 PetscBool b ! PetscBool 1164 PetscErrorCode z 1165 end subroutine PCEisenstatGetNoDiagonalScaling 1166 subroutine PCGAMGSetProcEqLim(a,b,z) 1167 use petsckspdef 1168 PC a ! PC 1169 PetscInt b ! PetscInt 1170 PetscErrorCode z 1171 end subroutine PCGAMGSetProcEqLim 1172 subroutine PCGAMGSetCoarseEqLim(a,b,z) 1173 use petsckspdef 1174 PC a ! PC 1175 PetscInt b ! PetscInt 1176 PetscErrorCode z 1177 end subroutine PCGAMGSetCoarseEqLim 1178 subroutine PCGAMGSetRepartition(a,b,z) 1179 use petsckspdef 1180 PC a ! PC 1181 PetscBool b ! PetscBool 1182 PetscErrorCode z 1183 end subroutine PCGAMGSetRepartition 1184 subroutine PCGAMGSetEstEigKSPMaxIt(a,b,z) 1185 use petsckspdef 1186 PC a ! PC 1187 PetscInt b ! PetscInt 1188 PetscErrorCode z 1189 end subroutine PCGAMGSetEstEigKSPMaxIt 1190 subroutine PCGAMGSetUseSAEstEig(a,b,z) 1191 use petsckspdef 1192 PC a ! PC 1193 PetscBool b ! PetscBool 1194 PetscErrorCode z 1195 end subroutine PCGAMGSetUseSAEstEig 1196 subroutine PCGAMGSetEigenvalues(a,b,c,z) 1197 use petsckspdef 1198 PC a ! PC 1199 PetscReal b ! PetscReal 1200 PetscReal c ! PetscReal 1201 PetscErrorCode z 1202 end subroutine PCGAMGSetEigenvalues 1203 subroutine PCGAMGSetReuseInterpolation(a,b,z) 1204 use petsckspdef 1205 PC a ! PC 1206 PetscBool b ! PetscBool 1207 PetscErrorCode z 1208 end subroutine PCGAMGSetReuseInterpolation 1209 subroutine PCGAMGASMSetUseAggs(a,b,z) 1210 use petsckspdef 1211 PC a ! PC 1212 PetscBool b ! PetscBool 1213 PetscErrorCode z 1214 end subroutine PCGAMGASMSetUseAggs 1215 subroutine PCGAMGSetUseParallelCoarseGridSolve(a,b,z) 1216 use petsckspdef 1217 PC a ! PC 1218 PetscBool b ! PetscBool 1219 PetscErrorCode z 1220 end subroutine PCGAMGSetUseParallelCoarseGridSolve 1221 subroutine PCGAMGSetCpuPinCoarseGrids(a,b,z) 1222 use petsckspdef 1223 PC a ! PC 1224 PetscBool b ! PetscBool 1225 PetscErrorCode z 1226 end subroutine PCGAMGSetCpuPinCoarseGrids 1227 subroutine PCGAMGSetCoarseGridLayoutType(a,b,z) 1228 use petsckspdef 1229 PC a ! PC 1230 PCGAMGLayoutType b ! PCGAMGLayoutType 1231 PetscErrorCode z 1232 end subroutine PCGAMGSetCoarseGridLayoutType 1233 subroutine PCGAMGSetNlevels(a,b,z) 1234 use petsckspdef 1235 PC a ! PC 1236 PetscInt b ! PetscInt 1237 PetscErrorCode z 1238 end subroutine PCGAMGSetNlevels 1239 subroutine PCGAMGSetThreshold(a,b,c,z) 1240 use petsckspdef 1241 PC a ! PC 1242 PetscReal b (*) ! PetscReal 1243 PetscInt c ! PetscInt 1244 PetscErrorCode z 1245 end subroutine PCGAMGSetThreshold 1246 subroutine PCGAMGSetThresholdScale(a,b,z) 1247 use petsckspdef 1248 PC a ! PC 1249 PetscReal b ! PetscReal 1250 PetscErrorCode z 1251 end subroutine PCGAMGSetThresholdScale 1252 subroutine PCGAMGSetNSmooths(a,b,z) 1253 use petsckspdef 1254 PC a ! PC 1255 PetscInt b ! PetscInt 1256 PetscErrorCode z 1257 end subroutine PCGAMGSetNSmooths 1258 subroutine PCGAMGSetSymGraph(a,b,z) 1259 use petsckspdef 1260 PC a ! PC 1261 PetscBool b ! PetscBool 1262 PetscErrorCode z 1263 end subroutine PCGAMGSetSymGraph 1264 subroutine PCGAMGSetSquareGraph(a,b,z) 1265 use petsckspdef 1266 PC a ! PC 1267 PetscInt b ! PetscInt 1268 PetscErrorCode z 1269 end subroutine PCGAMGSetSquareGraph 1270 subroutine PCExoticSetType(a,b,z) 1271 use petsckspdef 1272 PC a ! PC 1273 PCExoticType b ! PCExoticType 1274 PetscErrorCode z 1275 end subroutine PCExoticSetType 1276 subroutine PCFactorSetReuseOrdering(a,b,z) 1277 use petsckspdef 1278 PC a ! PC 1279 PetscBool b ! PetscBool 1280 PetscErrorCode z 1281 end subroutine PCFactorSetReuseOrdering 1282 subroutine PCHMGSetReuseInterpolation(a,b,z) 1283 use petsckspdef 1284 PC a ! PC 1285 PetscBool b ! PetscBool 1286 PetscErrorCode z 1287 end subroutine PCHMGSetReuseInterpolation 1288 subroutine PCHMGSetUseSubspaceCoarsening(a,b,z) 1289 use petsckspdef 1290 PC a ! PC 1291 PetscBool b ! PetscBool 1292 PetscErrorCode z 1293 end subroutine PCHMGSetUseSubspaceCoarsening 1294 subroutine PCHMGSetCoarseningComponent(a,b,z) 1295 use petsckspdef 1296 PC a ! PC 1297 PetscInt b ! PetscInt 1298 PetscErrorCode z 1299 end subroutine PCHMGSetCoarseningComponent 1300 subroutine PCHMGUseMatMAIJ(a,b,z) 1301 use petsckspdef 1302 PC a ! PC 1303 PetscBool b ! PetscBool 1304 PetscErrorCode z 1305 end subroutine PCHMGUseMatMAIJ 1306 subroutine PCRedistributeGetKSP(a,b,z) 1307 use petsckspdef 1308 PC a ! PC 1309 KSP b ! KSP 1310 PetscErrorCode z 1311 end subroutine PCRedistributeGetKSP 1312 subroutine PCJacobiSetUseAbs(a,b,z) 1313 use petsckspdef 1314 PC a ! PC 1315 PetscBool b ! PetscBool 1316 PetscErrorCode z 1317 end subroutine PCJacobiSetUseAbs 1318 subroutine PCJacobiGetUseAbs(a,b,z) 1319 use petsckspdef 1320 PC a ! PC 1321 PetscBool b ! PetscBool 1322 PetscErrorCode z 1323 end subroutine PCJacobiGetUseAbs 1324 subroutine PCJacobiSetType(a,b,z) 1325 use petsckspdef 1326 PC a ! PC 1327 PCJacobiType b ! PCJacobiType 1328 PetscErrorCode z 1329 end subroutine PCJacobiSetType 1330 subroutine PCJacobiGetType(a,b,z) 1331 use petsckspdef 1332 PC a ! PC 1333 PCJacobiType b ! PCJacobiType 1334 PetscErrorCode z 1335 end subroutine PCJacobiGetType 1336 subroutine PCFactorSetUpMatSolverType(a,z) 1337 use petsckspdef 1338 PC a ! PC 1339 PetscErrorCode z 1340 end subroutine PCFactorSetUpMatSolverType 1341 subroutine PCFactorSetZeroPivot(a,b,z) 1342 use petsckspdef 1343 PC a ! PC 1344 PetscReal b ! PetscReal 1345 PetscErrorCode z 1346 end subroutine PCFactorSetZeroPivot 1347 subroutine PCFactorSetShiftType(a,b,z) 1348 use petsckspdef 1349 PC a ! PC 1350 MatFactorShiftType b ! MatFactorShiftType 1351 PetscErrorCode z 1352 end subroutine PCFactorSetShiftType 1353 subroutine PCFactorSetShiftAmount(a,b,z) 1354 use petsckspdef 1355 PC a ! PC 1356 PetscReal b ! PetscReal 1357 PetscErrorCode z 1358 end subroutine PCFactorSetShiftAmount 1359 subroutine PCFactorSetDropTolerance(a,b,c,d,z) 1360 use petsckspdef 1361 PC a ! PC 1362 PetscReal b ! PetscReal 1363 PetscReal c ! PetscReal 1364 PetscInt d ! PetscInt 1365 PetscErrorCode z 1366 end subroutine PCFactorSetDropTolerance 1367 subroutine PCFactorGetZeroPivot(a,b,z) 1368 use petsckspdef 1369 PC a ! PC 1370 PetscReal b ! PetscReal 1371 PetscErrorCode z 1372 end subroutine PCFactorGetZeroPivot 1373 subroutine PCFactorGetShiftAmount(a,b,z) 1374 use petsckspdef 1375 PC a ! PC 1376 PetscReal b ! PetscReal 1377 PetscErrorCode z 1378 end subroutine PCFactorGetShiftAmount 1379 subroutine PCFactorGetShiftType(a,b,z) 1380 use petsckspdef 1381 PC a ! PC 1382 MatFactorShiftType b ! MatFactorShiftType 1383 PetscErrorCode z 1384 end subroutine PCFactorGetShiftType 1385 subroutine PCFactorGetLevels(a,b,z) 1386 use petsckspdef 1387 PC a ! PC 1388 PetscInt b ! PetscInt 1389 PetscErrorCode z 1390 end subroutine PCFactorGetLevels 1391 subroutine PCFactorSetLevels(a,b,z) 1392 use petsckspdef 1393 PC a ! PC 1394 PetscInt b ! PetscInt 1395 PetscErrorCode z 1396 end subroutine PCFactorSetLevels 1397 subroutine PCFactorSetAllowDiagonalFill(a,b,z) 1398 use petsckspdef 1399 PC a ! PC 1400 PetscBool b ! PetscBool 1401 PetscErrorCode z 1402 end subroutine PCFactorSetAllowDiagonalFill 1403 subroutine PCFactorGetAllowDiagonalFill(a,b,z) 1404 use petsckspdef 1405 PC a ! PC 1406 PetscBool b ! PetscBool 1407 PetscErrorCode z 1408 end subroutine PCFactorGetAllowDiagonalFill 1409 subroutine PCFactorReorderForNonzeroDiagonal(a,b,z) 1410 use petsckspdef 1411 PC a ! PC 1412 PetscReal b ! PetscReal 1413 PetscErrorCode z 1414 end subroutine PCFactorReorderForNonzeroDiagonal 1415 subroutine PCFactorSetFill(a,b,z) 1416 use petsckspdef 1417 PC a ! PC 1418 PetscReal b ! PetscReal 1419 PetscErrorCode z 1420 end subroutine PCFactorSetFill 1421 subroutine PCFactorSetUseInPlace(a,b,z) 1422 use petsckspdef 1423 PC a ! PC 1424 PetscBool b ! PetscBool 1425 PetscErrorCode z 1426 end subroutine PCFactorSetUseInPlace 1427 subroutine PCFactorGetUseInPlace(a,b,z) 1428 use petsckspdef 1429 PC a ! PC 1430 PetscBool b ! PetscBool 1431 PetscErrorCode z 1432 end subroutine PCFactorGetUseInPlace 1433 subroutine PCFactorSetColumnPivot(a,b,z) 1434 use petsckspdef 1435 PC a ! PC 1436 PetscReal b ! PetscReal 1437 PetscErrorCode z 1438 end subroutine PCFactorSetColumnPivot 1439 subroutine PCFactorSetPivotInBlocks(a,b,z) 1440 use petsckspdef 1441 PC a ! PC 1442 PetscBool b ! PetscBool 1443 PetscErrorCode z 1444 end subroutine PCFactorSetPivotInBlocks 1445 subroutine PCFactorSetReuseFill(a,b,z) 1446 use petsckspdef 1447 PC a ! PC 1448 PetscBool b ! PetscBool 1449 PetscErrorCode z 1450 end subroutine PCFactorSetReuseFill 1451 subroutine PCFieldSplitSetDiagUseAmat(a,b,z) 1452 use petsckspdef 1453 PC a ! PC 1454 PetscBool b ! PetscBool 1455 PetscErrorCode z 1456 end subroutine PCFieldSplitSetDiagUseAmat 1457 subroutine PCFieldSplitGetDiagUseAmat(a,b,z) 1458 use petsckspdef 1459 PC a ! PC 1460 PetscBool b ! PetscBool 1461 PetscErrorCode z 1462 end subroutine PCFieldSplitGetDiagUseAmat 1463 subroutine PCFieldSplitSetOffDiagUseAmat(a,b,z) 1464 use petsckspdef 1465 PC a ! PC 1466 PetscBool b ! PetscBool 1467 PetscErrorCode z 1468 end subroutine PCFieldSplitSetOffDiagUseAmat 1469 subroutine PCFieldSplitGetOffDiagUseAmat(a,b,z) 1470 use petsckspdef 1471 PC a ! PC 1472 PetscBool b ! PetscBool 1473 PetscErrorCode z 1474 end subroutine PCFieldSplitGetOffDiagUseAmat 1475 subroutine PCFieldSplitSetBlockSize(a,b,z) 1476 use petsckspdef 1477 PC a ! PC 1478 PetscInt b ! PetscInt 1479 PetscErrorCode z 1480 end subroutine PCFieldSplitSetBlockSize 1481 subroutine PCFieldSplitSetSchurPre(a,b,c,z) 1482 use petsckspdef 1483 PC a ! PC 1484 PCFieldSplitSchurPreType b ! PCFieldSplitSchurPreType 1485 Mat c ! Mat 1486 PetscErrorCode z 1487 end subroutine PCFieldSplitSetSchurPre 1488 subroutine PCFieldSplitGetSchurPre(a,b,c,z) 1489 use petsckspdef 1490 PC a ! PC 1491 PCFieldSplitSchurPreType b ! PCFieldSplitSchurPreType 1492 Mat c ! Mat 1493 PetscErrorCode z 1494 end subroutine PCFieldSplitGetSchurPre 1495 subroutine PCFieldSplitSchurGetS(a,b,z) 1496 use petsckspdef 1497 PC a ! PC 1498 Mat b ! Mat 1499 PetscErrorCode z 1500 end subroutine PCFieldSplitSchurGetS 1501 subroutine PCFieldSplitSchurRestoreS(a,b,z) 1502 use petsckspdef 1503 PC a ! PC 1504 Mat b ! Mat 1505 PetscErrorCode z 1506 end subroutine PCFieldSplitSchurRestoreS 1507 subroutine PCFieldSplitSetSchurFactType(a,b,z) 1508 use petsckspdef 1509 PC a ! PC 1510 PCFieldSplitSchurFactType b ! PCFieldSplitSchurFactType 1511 PetscErrorCode z 1512 end subroutine PCFieldSplitSetSchurFactType 1513 subroutine PCFieldSplitSetSchurScale(a,b,z) 1514 use petsckspdef 1515 PC a ! PC 1516 PetscScalar b ! PetscScalar 1517 PetscErrorCode z 1518 end subroutine PCFieldSplitSetSchurScale 1519 subroutine PCFieldSplitSetGKBTol(a,b,z) 1520 use petsckspdef 1521 PC a ! PC 1522 PetscReal b ! PetscReal 1523 PetscErrorCode z 1524 end subroutine PCFieldSplitSetGKBTol 1525 subroutine PCFieldSplitSetGKBMaxit(a,b,z) 1526 use petsckspdef 1527 PC a ! PC 1528 PetscInt b ! PetscInt 1529 PetscErrorCode z 1530 end subroutine PCFieldSplitSetGKBMaxit 1531 subroutine PCFieldSplitSetGKBDelay(a,b,z) 1532 use petsckspdef 1533 PC a ! PC 1534 PetscInt b ! PetscInt 1535 PetscErrorCode z 1536 end subroutine PCFieldSplitSetGKBDelay 1537 subroutine PCFieldSplitSetGKBNu(a,b,z) 1538 use petsckspdef 1539 PC a ! PC 1540 PetscReal b ! PetscReal 1541 PetscErrorCode z 1542 end subroutine PCFieldSplitSetGKBNu 1543 subroutine PCFieldSplitSetType(a,b,z) 1544 use petsckspdef 1545 PC a ! PC 1546 PCCompositeType b ! PCCompositeType 1547 PetscErrorCode z 1548 end subroutine PCFieldSplitSetType 1549 subroutine PCFieldSplitGetType(a,b,z) 1550 use petsckspdef 1551 PC a ! PC 1552 PCCompositeType b ! PCCompositeType 1553 PetscErrorCode z 1554 end subroutine PCFieldSplitGetType 1555 subroutine PCFieldSplitSetDMSplits(a,b,z) 1556 use petsckspdef 1557 PC a ! PC 1558 PetscBool b ! PetscBool 1559 PetscErrorCode z 1560 end subroutine PCFieldSplitSetDMSplits 1561 subroutine PCFieldSplitGetDMSplits(a,b,z) 1562 use petsckspdef 1563 PC a ! PC 1564 PetscBool b ! PetscBool 1565 PetscErrorCode z 1566 end subroutine PCFieldSplitGetDMSplits 1567 subroutine PCFieldSplitGetDetectSaddlePoint(a,b,z) 1568 use petsckspdef 1569 PC a ! PC 1570 PetscBool b ! PetscBool 1571 PetscErrorCode z 1572 end subroutine PCFieldSplitGetDetectSaddlePoint 1573 subroutine PCFieldSplitSetDetectSaddlePoint(a,b,z) 1574 use petsckspdef 1575 PC a ! PC 1576 PetscBool b ! PetscBool 1577 PetscErrorCode z 1578 end subroutine PCFieldSplitSetDetectSaddlePoint 1579 subroutine PCCompositeSetType(a,b,z) 1580 use petsckspdef 1581 PC a ! PC 1582 PCCompositeType b ! PCCompositeType 1583 PetscErrorCode z 1584 end subroutine PCCompositeSetType 1585 subroutine PCCompositeGetType(a,b,z) 1586 use petsckspdef 1587 PC a ! PC 1588 PCCompositeType b ! PCCompositeType 1589 PetscErrorCode z 1590 end subroutine PCCompositeGetType 1591 subroutine PCCompositeSpecialSetAlpha(a,b,z) 1592 use petsckspdef 1593 PC a ! PC 1594 PetscScalar b ! PetscScalar 1595 PetscErrorCode z 1596 end subroutine PCCompositeSpecialSetAlpha 1597 subroutine PCCompositeGetNumberPC(a,b,z) 1598 use petsckspdef 1599 PC a ! PC 1600 PetscInt b ! PetscInt 1601 PetscErrorCode z 1602 end subroutine PCCompositeGetNumberPC 1603 subroutine PCCompositeGetPC(a,b,c,z) 1604 use petsckspdef 1605 PC a ! PC 1606 PetscInt b ! PetscInt 1607 PC c ! PC 1608 PetscErrorCode z 1609 end subroutine PCCompositeGetPC 1610