1 subroutine SNESLineSearchMonitorCancel(a,z) 2 use petscsnesdef 3 SNESLineSearch a ! SNESLineSearch 4 PetscErrorCode z 5 end subroutine SNESLineSearchMonitorCancel 6 subroutine SNESLineSearchMonitor(a,z) 7 use petscsnesdef 8 SNESLineSearch a ! SNESLineSearch 9 PetscErrorCode z 10 end subroutine SNESLineSearchMonitor 11 subroutine SNESLineSearchCreate(a,b,z) 12 use petscsnesdef 13 MPI_Comm a ! MPI_Comm 14 SNESLineSearch b ! SNESLineSearch 15 PetscErrorCode z 16 end subroutine SNESLineSearchCreate 17 subroutine SNESLineSearchSetUp(a,z) 18 use petscsnesdef 19 SNESLineSearch a ! SNESLineSearch 20 PetscErrorCode z 21 end subroutine SNESLineSearchSetUp 22 subroutine SNESLineSearchReset(a,z) 23 use petscsnesdef 24 SNESLineSearch a ! SNESLineSearch 25 PetscErrorCode z 26 end subroutine SNESLineSearchReset 27 subroutine SNESLineSearchPreCheck(a,b,c,d,z) 28 use petscsnesdef 29 SNESLineSearch a ! SNESLineSearch 30 Vec b ! Vec 31 Vec c ! Vec 32 PetscBool d ! PetscBool 33 PetscErrorCode z 34 end subroutine SNESLineSearchPreCheck 35 subroutine SNESLineSearchPostCheck(a,b,c,d,e,f,z) 36 use petscsnesdef 37 SNESLineSearch a ! SNESLineSearch 38 Vec b ! Vec 39 Vec c ! Vec 40 Vec d ! Vec 41 PetscBool e ! PetscBool 42 PetscBool f ! PetscBool 43 PetscErrorCode z 44 end subroutine SNESLineSearchPostCheck 45 subroutine SNESLineSearchApply(a,b,c,d,e,z) 46 use petscsnesdef 47 SNESLineSearch a ! SNESLineSearch 48 Vec b ! Vec 49 Vec c ! Vec 50 PetscReal d ! PetscReal 51 Vec e ! Vec 52 PetscErrorCode z 53 end subroutine SNESLineSearchApply 54 subroutine SNESLineSearchDestroy(a,z) 55 use petscsnesdef 56 SNESLineSearch a ! SNESLineSearch 57 PetscErrorCode z 58 end subroutine SNESLineSearchDestroy 59 subroutine SNESLineSearchSetDefaultMonitor(a,b,z) 60 use petscsnesdef 61 SNESLineSearch a ! SNESLineSearch 62 PetscViewer b ! PetscViewer 63 PetscErrorCode z 64 end subroutine SNESLineSearchSetDefaultMonitor 65 subroutine SNESLineSearchGetDefaultMonitor(a,b,z) 66 use petscsnesdef 67 SNESLineSearch a ! SNESLineSearch 68 PetscViewer b ! PetscViewer 69 PetscErrorCode z 70 end subroutine SNESLineSearchGetDefaultMonitor 71 subroutine SNESLineSearchSetFromOptions(a,z) 72 use petscsnesdef 73 SNESLineSearch a ! SNESLineSearch 74 PetscErrorCode z 75 end subroutine SNESLineSearchSetFromOptions 76 subroutine SNESLineSearchView(a,b,z) 77 use petscsnesdef 78 SNESLineSearch a ! SNESLineSearch 79 PetscViewer b ! PetscViewer 80 PetscErrorCode z 81 end subroutine SNESLineSearchView 82 subroutine SNESLineSearchSetSNES(a,b,z) 83 use petscsnesdef 84 SNESLineSearch a ! SNESLineSearch 85 SNES b ! SNES 86 PetscErrorCode z 87 end subroutine SNESLineSearchSetSNES 88 subroutine SNESLineSearchGetSNES(a,b,z) 89 use petscsnesdef 90 SNESLineSearch a ! SNESLineSearch 91 SNES b ! SNES 92 PetscErrorCode z 93 end subroutine SNESLineSearchGetSNES 94 subroutine SNESLineSearchGetLambda(a,b,z) 95 use petscsnesdef 96 SNESLineSearch a ! SNESLineSearch 97 PetscReal b ! PetscReal 98 PetscErrorCode z 99 end subroutine SNESLineSearchGetLambda 100 subroutine SNESLineSearchSetLambda(a,b,z) 101 use petscsnesdef 102 SNESLineSearch a ! SNESLineSearch 103 PetscReal b ! PetscReal 104 PetscErrorCode z 105 end subroutine SNESLineSearchSetLambda 106 subroutine SNESLineSearchGetTolerances(a,b,c,d,e,f,g,z) 107 use petscsnesdef 108 SNESLineSearch a ! SNESLineSearch 109 PetscReal b ! PetscReal 110 PetscReal c ! PetscReal 111 PetscReal d ! PetscReal 112 PetscReal e ! PetscReal 113 PetscReal f ! PetscReal 114 PetscInt g ! PetscInt 115 PetscErrorCode z 116 end subroutine SNESLineSearchGetTolerances 117 subroutine SNESLineSearchSetTolerances(a,b,c,d,e,f,g,z) 118 use petscsnesdef 119 SNESLineSearch a ! SNESLineSearch 120 PetscReal b ! PetscReal 121 PetscReal c ! PetscReal 122 PetscReal d ! PetscReal 123 PetscReal e ! PetscReal 124 PetscReal f ! PetscReal 125 PetscInt g ! PetscInt 126 PetscErrorCode z 127 end subroutine SNESLineSearchSetTolerances 128 subroutine SNESLineSearchGetDamping(a,b,z) 129 use petscsnesdef 130 SNESLineSearch a ! SNESLineSearch 131 PetscReal b ! PetscReal 132 PetscErrorCode z 133 end subroutine SNESLineSearchGetDamping 134 subroutine SNESLineSearchSetDamping(a,b,z) 135 use petscsnesdef 136 SNESLineSearch a ! SNESLineSearch 137 PetscReal b ! PetscReal 138 PetscErrorCode z 139 end subroutine SNESLineSearchSetDamping 140 subroutine SNESLineSearchGetOrder(a,b,z) 141 use petscsnesdef 142 SNESLineSearch a ! SNESLineSearch 143 PetscInt b ! PetscInt 144 PetscErrorCode z 145 end subroutine SNESLineSearchGetOrder 146 subroutine SNESLineSearchSetOrder(a,b,z) 147 use petscsnesdef 148 SNESLineSearch a ! SNESLineSearch 149 PetscInt b ! PetscInt 150 PetscErrorCode z 151 end subroutine SNESLineSearchSetOrder 152 subroutine SNESLineSearchGetNorms(a,b,c,d,z) 153 use petscsnesdef 154 SNESLineSearch a ! SNESLineSearch 155 PetscReal b ! PetscReal 156 PetscReal c ! PetscReal 157 PetscReal d ! PetscReal 158 PetscErrorCode z 159 end subroutine SNESLineSearchGetNorms 160 subroutine SNESLineSearchSetNorms(a,b,c,d,z) 161 use petscsnesdef 162 SNESLineSearch a ! SNESLineSearch 163 PetscReal b ! PetscReal 164 PetscReal c ! PetscReal 165 PetscReal d ! PetscReal 166 PetscErrorCode z 167 end subroutine SNESLineSearchSetNorms 168 subroutine SNESLineSearchComputeNorms(a,z) 169 use petscsnesdef 170 SNESLineSearch a ! SNESLineSearch 171 PetscErrorCode z 172 end subroutine SNESLineSearchComputeNorms 173 subroutine SNESLineSearchSetComputeNorms(a,b,z) 174 use petscsnesdef 175 SNESLineSearch a ! SNESLineSearch 176 PetscBool b ! PetscBool 177 PetscErrorCode z 178 end subroutine SNESLineSearchSetComputeNorms 179 subroutine SNESLineSearchGetVecs(a,b,c,d,e,f,z) 180 use petscsnesdef 181 SNESLineSearch a ! SNESLineSearch 182 Vec b ! Vec 183 Vec c ! Vec 184 Vec d ! Vec 185 Vec e ! Vec 186 Vec f ! Vec 187 PetscErrorCode z 188 end subroutine SNESLineSearchGetVecs 189 subroutine SNESLineSearchSetVecs(a,b,c,d,e,f,z) 190 use petscsnesdef 191 SNESLineSearch a ! SNESLineSearch 192 Vec b ! Vec 193 Vec c ! Vec 194 Vec d ! Vec 195 Vec e ! Vec 196 Vec f ! Vec 197 PetscErrorCode z 198 end subroutine SNESLineSearchSetVecs 199 subroutine SNESLineSearchGetReason(a,b,z) 200 use petscsnesdef 201 SNESLineSearch a ! SNESLineSearch 202 SNESLineSearchReason b ! SNESLineSearchReason 203 PetscErrorCode z 204 end subroutine SNESLineSearchGetReason 205 subroutine SNESLineSearchSetReason(a,b,z) 206 use petscsnesdef 207 SNESLineSearch a ! SNESLineSearch 208 SNESLineSearchReason b ! SNESLineSearchReason 209 PetscErrorCode z 210 end subroutine SNESLineSearchSetReason 211 subroutine MatSNESMFGetSNES(a,b,z) 212 use petscsnesdef 213 Mat a ! Mat 214 SNES b ! SNES 215 PetscErrorCode z 216 end subroutine MatSNESMFGetSNES 217 subroutine MatSNESMFSetReuseBase(a,b,z) 218 use petscsnesdef 219 Mat a ! Mat 220 PetscBool b ! PetscBool 221 PetscErrorCode z 222 end subroutine MatSNESMFSetReuseBase 223 subroutine MatSNESMFGetReuseBase(a,b,z) 224 use petscsnesdef 225 Mat a ! Mat 226 PetscBool b ! PetscBool 227 PetscErrorCode z 228 end subroutine MatSNESMFGetReuseBase 229 subroutine MatCreateSNESMF(a,b,z) 230 use petscsnesdef 231 SNES a ! SNES 232 Mat b ! Mat 233 PetscErrorCode z 234 end subroutine MatCreateSNESMF 235 subroutine SNESNASMSetType(a,b,z) 236 use petscsnesdef 237 SNES a ! SNES 238 PCASMType b ! PCASMType 239 PetscErrorCode z 240 end subroutine SNESNASMSetType 241 subroutine SNESNASMGetType(a,b,z) 242 use petscsnesdef 243 SNES a ! SNES 244 PCASMType b ! PCASMType 245 PetscErrorCode z 246 end subroutine SNESNASMGetType 247 subroutine SNESNASMSetSubdomains(a,b,c,d,e,f,z) 248 use petscsnesdef 249 SNES a ! SNES 250 PetscInt b ! PetscInt 251 SNES c (*) ! SNES 252 VecScatter d (*) ! VecScatter 253 VecScatter e (*) ! VecScatter 254 VecScatter f (*) ! VecScatter 255 PetscErrorCode z 256 end subroutine SNESNASMSetSubdomains 257 subroutine SNESNASMGetSubdomains(a,b,c,d,e,f,z) 258 use petscsnesdef 259 SNES a ! SNES 260 PetscInt b ! PetscInt 261 SNES c (*) ! SNES 262 VecScatter d (*) ! VecScatter 263 VecScatter e (*) ! VecScatter 264 VecScatter f (*) ! VecScatter 265 PetscErrorCode z 266 end subroutine SNESNASMGetSubdomains 267 subroutine SNESNASMGetSubdomainVecs(a,b,c,d,e,f,z) 268 use petscsnesdef 269 SNES a ! SNES 270 PetscInt b ! PetscInt 271 Vec c ! Vec 272 Vec d ! Vec 273 Vec e ! Vec 274 Vec f ! Vec 275 PetscErrorCode z 276 end subroutine SNESNASMGetSubdomainVecs 277 subroutine SNESNASMSetComputeFinalJacobian(a,b,z) 278 use petscsnesdef 279 SNES a ! SNES 280 PetscBool b ! PetscBool 281 PetscErrorCode z 282 end subroutine SNESNASMSetComputeFinalJacobian 283 subroutine SNESNASMSetDamping(a,b,z) 284 use petscsnesdef 285 SNES a ! SNES 286 PetscReal b ! PetscReal 287 PetscErrorCode z 288 end subroutine SNESNASMSetDamping 289 subroutine SNESNASMGetDamping(a,b,z) 290 use petscsnesdef 291 SNES a ! SNES 292 PetscReal b ! PetscReal 293 PetscErrorCode z 294 end subroutine SNESNASMGetDamping 295 subroutine SNESNASMGetSNES(a,b,c,z) 296 use petscsnesdef 297 SNES a ! SNES 298 PetscInt b ! PetscInt 299 SNES c ! SNES 300 PetscErrorCode z 301 end subroutine SNESNASMGetSNES 302 subroutine SNESNASMGetNumber(a,b,z) 303 use petscsnesdef 304 SNES a ! SNES 305 PetscInt b ! PetscInt 306 PetscErrorCode z 307 end subroutine SNESNASMGetNumber 308 subroutine SNESNASMSetWeight(a,b,z) 309 use petscsnesdef 310 SNES a ! SNES 311 Vec b ! Vec 312 PetscErrorCode z 313 end subroutine SNESNASMSetWeight 314 subroutine SNESLineSearchBTSetAlpha(a,b,z) 315 use petscsnesdef 316 SNESLineSearch a ! SNESLineSearch 317 PetscReal b ! PetscReal 318 PetscErrorCode z 319 end subroutine SNESLineSearchBTSetAlpha 320 subroutine SNESLineSearchBTGetAlpha(a,b,z) 321 use petscsnesdef 322 SNESLineSearch a ! SNESLineSearch 323 PetscReal b ! PetscReal 324 PetscErrorCode z 325 end subroutine SNESLineSearchBTGetAlpha 326 subroutine SNESNGSSetTolerances(a,b,c,d,e,z) 327 use petscsnesdef 328 SNES a ! SNES 329 PetscReal b ! PetscReal 330 PetscReal c ! PetscReal 331 PetscReal d ! PetscReal 332 PetscInt e ! PetscInt 333 PetscErrorCode z 334 end subroutine SNESNGSSetTolerances 335 subroutine SNESNGSGetTolerances(a,b,c,d,e,z) 336 use petscsnesdef 337 SNES a ! SNES 338 PetscReal b ! PetscReal 339 PetscReal c ! PetscReal 340 PetscReal d ! PetscReal 341 PetscInt e ! PetscInt 342 PetscErrorCode z 343 end subroutine SNESNGSGetTolerances 344 subroutine SNESNGSSetSweeps(a,b,z) 345 use petscsnesdef 346 SNES a ! SNES 347 PetscInt b ! PetscInt 348 PetscErrorCode z 349 end subroutine SNESNGSSetSweeps 350 subroutine SNESNGSGetSweeps(a,b,z) 351 use petscsnesdef 352 SNES a ! SNES 353 PetscInt b ! PetscInt 354 PetscErrorCode z 355 end subroutine SNESNGSGetSweeps 356 subroutine SNESQNSetRestartType(a,b,z) 357 use petscsnesdef 358 SNES a ! SNES 359 SNESQNRestartType b ! SNESQNRestartType 360 PetscErrorCode z 361 end subroutine SNESQNSetRestartType 362 subroutine SNESQNSetScaleType(a,b,z) 363 use petscsnesdef 364 SNES a ! SNES 365 SNESQNScaleType b ! SNESQNScaleType 366 PetscErrorCode z 367 end subroutine SNESQNSetScaleType 368 subroutine SNESQNSetType(a,b,z) 369 use petscsnesdef 370 SNES a ! SNES 371 SNESQNType b ! SNESQNType 372 PetscErrorCode z 373 end subroutine SNESQNSetType 374 subroutine SNESNGMRESSetRestartFmRise(a,b,z) 375 use petscsnesdef 376 SNES a ! SNES 377 PetscBool b ! PetscBool 378 PetscErrorCode z 379 end subroutine SNESNGMRESSetRestartFmRise 380 subroutine SNESNGMRESSetRestartType(a,b,z) 381 use petscsnesdef 382 SNES a ! SNES 383 SNESNGMRESRestartType b ! SNESNGMRESRestartType 384 PetscErrorCode z 385 end subroutine SNESNGMRESSetRestartType 386 subroutine SNESNGMRESSetSelectType(a,b,z) 387 use petscsnesdef 388 SNES a ! SNES 389 SNESNGMRESSelectType b ! SNESNGMRESSelectType 390 PetscErrorCode z 391 end subroutine SNESNGMRESSetSelectType 392 subroutine SNESCompositeGetSNES(a,b,c,z) 393 use petscsnesdef 394 SNES a ! SNES 395 PetscInt b ! PetscInt 396 SNES c ! SNES 397 PetscErrorCode z 398 end subroutine SNESCompositeGetSNES 399 subroutine SNESCompositeGetNumber(a,b,z) 400 use petscsnesdef 401 SNES a ! SNES 402 PetscInt b ! PetscInt 403 PetscErrorCode z 404 end subroutine SNESCompositeGetNumber 405 subroutine SNESCompositeSetDamping(a,b,c,z) 406 use petscsnesdef 407 SNES a ! SNES 408 PetscInt b ! PetscInt 409 PetscReal c ! PetscReal 410 PetscErrorCode z 411 end subroutine SNESCompositeSetDamping 412 subroutine SNESVISetVariableBounds(a,b,c,z) 413 use petscsnesdef 414 SNES a ! SNES 415 Vec b ! Vec 416 Vec c ! Vec 417 PetscErrorCode z 418 end subroutine SNESVISetVariableBounds 419 subroutine DMAdaptorCreate(a,b,z) 420 use petscsnesdef 421 MPI_Comm a ! MPI_Comm 422 DMAdaptor b ! DMAdaptor 423 PetscErrorCode z 424 end subroutine DMAdaptorCreate 425 subroutine DMAdaptorDestroy(a,z) 426 use petscsnesdef 427 DMAdaptor a ! DMAdaptor 428 PetscErrorCode z 429 end subroutine DMAdaptorDestroy 430 subroutine DMAdaptorSetFromOptions(a,z) 431 use petscsnesdef 432 DMAdaptor a ! DMAdaptor 433 PetscErrorCode z 434 end subroutine DMAdaptorSetFromOptions 435 subroutine DMAdaptorView(a,b,z) 436 use petscsnesdef 437 DMAdaptor a ! DMAdaptor 438 PetscViewer b ! PetscViewer 439 PetscErrorCode z 440 end subroutine DMAdaptorView 441 subroutine DMAdaptorGetSolver(a,b,z) 442 use petscsnesdef 443 DMAdaptor a ! DMAdaptor 444 SNES b ! SNES 445 PetscErrorCode z 446 end subroutine DMAdaptorGetSolver 447 subroutine DMAdaptorSetSolver(a,b,z) 448 use petscsnesdef 449 DMAdaptor a ! DMAdaptor 450 SNES b ! SNES 451 PetscErrorCode z 452 end subroutine DMAdaptorSetSolver 453 subroutine DMAdaptorGetSequenceLength(a,b,z) 454 use petscsnesdef 455 DMAdaptor a ! DMAdaptor 456 PetscInt b ! PetscInt 457 PetscErrorCode z 458 end subroutine DMAdaptorGetSequenceLength 459 subroutine DMAdaptorSetSequenceLength(a,b,z) 460 use petscsnesdef 461 DMAdaptor a ! DMAdaptor 462 PetscInt b ! PetscInt 463 PetscErrorCode z 464 end subroutine DMAdaptorSetSequenceLength 465 subroutine DMAdaptorSetUp(a,z) 466 use petscsnesdef 467 DMAdaptor a ! DMAdaptor 468 PetscErrorCode z 469 end subroutine DMAdaptorSetUp 470 subroutine DMAdaptorAdapt(a,b,c,d,e,z) 471 use petscsnesdef 472 DMAdaptor a ! DMAdaptor 473 Vec b ! Vec 474 DMAdaptationStrategy c ! DMAdaptationStrategy 475 DM d ! DM 476 Vec e ! Vec 477 PetscErrorCode z 478 end subroutine DMAdaptorAdapt 479 subroutine PetscConvEstDestroy(a,z) 480 use petscsnesdef 481 PetscConvEst a ! PetscConvEst 482 PetscErrorCode z 483 end subroutine PetscConvEstDestroy 484 subroutine PetscConvEstSetFromOptions(a,z) 485 use petscsnesdef 486 PetscConvEst a ! PetscConvEst 487 PetscErrorCode z 488 end subroutine PetscConvEstSetFromOptions 489 subroutine PetscConvEstView(a,b,z) 490 use petscsnesdef 491 PetscConvEst a ! PetscConvEst 492 PetscViewer b ! PetscViewer 493 PetscErrorCode z 494 end subroutine PetscConvEstView 495 subroutine PetscConvEstGetSolver(a,b,z) 496 use petscsnesdef 497 PetscConvEst a ! PetscConvEst 498 PetscObject b ! PetscObject 499 PetscErrorCode z 500 end subroutine PetscConvEstGetSolver 501 subroutine PetscConvEstSetSolver(a,b,z) 502 use petscsnesdef 503 PetscConvEst a ! PetscConvEst 504 PetscObject b ! PetscObject 505 PetscErrorCode z 506 end subroutine PetscConvEstSetSolver 507 subroutine PetscConvEstSetUp(a,z) 508 use petscsnesdef 509 PetscConvEst a ! PetscConvEst 510 PetscErrorCode z 511 end subroutine PetscConvEstSetUp 512 subroutine PetscConvEstMonitorDefault(a,b,z) 513 use petscsnesdef 514 PetscConvEst a ! PetscConvEst 515 PetscInt b ! PetscInt 516 PetscErrorCode z 517 end subroutine PetscConvEstMonitorDefault 518 subroutine PetscConvEstGetConvRate(a,b,z) 519 use petscsnesdef 520 PetscConvEst a ! PetscConvEst 521 PetscReal b (*) ! PetscReal 522 PetscErrorCode z 523 end subroutine PetscConvEstGetConvRate 524 subroutine PetscConvEstRateView(a,b,c,z) 525 use petscsnesdef 526 PetscConvEst a ! PetscConvEst 527 PetscReal b (*) ! PetscReal 528 PetscViewer c ! PetscViewer 529 PetscErrorCode z 530 end subroutine PetscConvEstRateView 531 subroutine PetscConvEstCreate(a,b,z) 532 use petscsnesdef 533 MPI_Comm a ! MPI_Comm 534 PetscConvEst b ! PetscConvEst 535 PetscErrorCode z 536 end subroutine PetscConvEstCreate 537 subroutine SNESMultiblockSetFields(a,b,c,d,z) 538 use petscsnesdef 539 SNES a ! SNES 540 character b (*) ! char 541 PetscInt c ! PetscInt 542 PetscInt d ! PetscInt 543 PetscErrorCode z 544 end subroutine SNESMultiblockSetFields 545 subroutine SNESMultiblockSetIS(a,b,c,z) 546 use petscsnesdef 547 SNES a ! SNES 548 character b (*) ! char 549 IS c ! IS 550 PetscErrorCode z 551 end subroutine SNESMultiblockSetIS 552 subroutine SNESMultiblockSetType(a,b,z) 553 use petscsnesdef 554 SNES a ! SNES 555 PCCompositeType b ! PCCompositeType 556 PetscErrorCode z 557 end subroutine SNESMultiblockSetType 558 subroutine SNESMultiblockSetBlockSize(a,b,z) 559 use petscsnesdef 560 SNES a ! SNES 561 PetscInt b ! PetscInt 562 PetscErrorCode z 563 end subroutine SNESMultiblockSetBlockSize 564 subroutine SNESNCGSetType(a,b,z) 565 use petscsnesdef 566 SNES a ! SNES 567 SNESNCGType b ! SNESNCGType 568 PetscErrorCode z 569 end subroutine SNESNCGSetType 570 subroutine KSPMonitorSNESLGResidualNormDestroy(a,z) 571 use petscsnesdef 572 PetscObject a ! PetscObject 573 PetscErrorCode z 574 end subroutine KSPMonitorSNESLGResidualNormDestroy 575 subroutine SNESSetErrorIfNotConverged(a,b,z) 576 use petscsnesdef 577 SNES a ! SNES 578 PetscBool b ! PetscBool 579 PetscErrorCode z 580 end subroutine SNESSetErrorIfNotConverged 581 subroutine SNESGetErrorIfNotConverged(a,b,z) 582 use petscsnesdef 583 SNES a ! SNES 584 PetscBool b ! PetscBool 585 PetscErrorCode z 586 end subroutine SNESGetErrorIfNotConverged 587 subroutine SNESSetAlwaysComputesFinalResidual(a,b,z) 588 use petscsnesdef 589 SNES a ! SNES 590 PetscBool b ! PetscBool 591 PetscErrorCode z 592 end subroutine SNESSetAlwaysComputesFinalResidual 593 subroutine SNESGetAlwaysComputesFinalResidual(a,b,z) 594 use petscsnesdef 595 SNES a ! SNES 596 PetscBool b ! PetscBool 597 PetscErrorCode z 598 end subroutine SNESGetAlwaysComputesFinalResidual 599 subroutine SNESSetFunctionDomainError(a,z) 600 use petscsnesdef 601 SNES a ! SNES 602 PetscErrorCode z 603 end subroutine SNESSetFunctionDomainError 604 subroutine SNESSetJacobianDomainError(a,z) 605 use petscsnesdef 606 SNES a ! SNES 607 PetscErrorCode z 608 end subroutine SNESSetJacobianDomainError 609 subroutine SNESSetCheckJacobianDomainError(a,b,z) 610 use petscsnesdef 611 SNES a ! SNES 612 PetscBool b ! PetscBool 613 PetscErrorCode z 614 end subroutine SNESSetCheckJacobianDomainError 615 subroutine SNESGetCheckJacobianDomainError(a,b,z) 616 use petscsnesdef 617 SNES a ! SNES 618 PetscBool b ! PetscBool 619 PetscErrorCode z 620 end subroutine SNESGetCheckJacobianDomainError 621 subroutine SNESGetFunctionDomainError(a,b,z) 622 use petscsnesdef 623 SNES a ! SNES 624 PetscBool b ! PetscBool 625 PetscErrorCode z 626 end subroutine SNESGetFunctionDomainError 627 subroutine SNESGetJacobianDomainError(a,b,z) 628 use petscsnesdef 629 SNES a ! SNES 630 PetscBool b ! PetscBool 631 PetscErrorCode z 632 end subroutine SNESGetJacobianDomainError 633 subroutine SNESSetUpMatrices(a,z) 634 use petscsnesdef 635 SNES a ! SNES 636 PetscErrorCode z 637 end subroutine SNESSetUpMatrices 638 subroutine SNESSetFromOptions(a,z) 639 use petscsnesdef 640 SNES a ! SNES 641 PetscErrorCode z 642 end subroutine SNESSetFromOptions 643 subroutine SNESResetFromOptions(a,z) 644 use petscsnesdef 645 SNES a ! SNES 646 PetscErrorCode z 647 end subroutine SNESResetFromOptions 648 subroutine SNESSetUseMatrixFree(a,b,c,z) 649 use petscsnesdef 650 SNES a ! SNES 651 PetscBool b ! PetscBool 652 PetscBool c ! PetscBool 653 PetscErrorCode z 654 end subroutine SNESSetUseMatrixFree 655 subroutine SNESGetUseMatrixFree(a,b,c,z) 656 use petscsnesdef 657 SNES a ! SNES 658 PetscBool b ! PetscBool 659 PetscBool c ! PetscBool 660 PetscErrorCode z 661 end subroutine SNESGetUseMatrixFree 662 subroutine SNESGetIterationNumber(a,b,z) 663 use petscsnesdef 664 SNES a ! SNES 665 PetscInt b ! PetscInt 666 PetscErrorCode z 667 end subroutine SNESGetIterationNumber 668 subroutine SNESSetIterationNumber(a,b,z) 669 use petscsnesdef 670 SNES a ! SNES 671 PetscInt b ! PetscInt 672 PetscErrorCode z 673 end subroutine SNESSetIterationNumber 674 subroutine SNESGetNonlinearStepFailures(a,b,z) 675 use petscsnesdef 676 SNES a ! SNES 677 PetscInt b ! PetscInt 678 PetscErrorCode z 679 end subroutine SNESGetNonlinearStepFailures 680 subroutine SNESSetMaxNonlinearStepFailures(a,b,z) 681 use petscsnesdef 682 SNES a ! SNES 683 PetscInt b ! PetscInt 684 PetscErrorCode z 685 end subroutine SNESSetMaxNonlinearStepFailures 686 subroutine SNESGetMaxNonlinearStepFailures(a,b,z) 687 use petscsnesdef 688 SNES a ! SNES 689 PetscInt b ! PetscInt 690 PetscErrorCode z 691 end subroutine SNESGetMaxNonlinearStepFailures 692 subroutine SNESGetNumberFunctionEvals(a,b,z) 693 use petscsnesdef 694 SNES a ! SNES 695 PetscInt b ! PetscInt 696 PetscErrorCode z 697 end subroutine SNESGetNumberFunctionEvals 698 subroutine SNESGetLinearSolveFailures(a,b,z) 699 use petscsnesdef 700 SNES a ! SNES 701 PetscInt b ! PetscInt 702 PetscErrorCode z 703 end subroutine SNESGetLinearSolveFailures 704 subroutine SNESSetMaxLinearSolveFailures(a,b,z) 705 use petscsnesdef 706 SNES a ! SNES 707 PetscInt b ! PetscInt 708 PetscErrorCode z 709 end subroutine SNESSetMaxLinearSolveFailures 710 subroutine SNESGetMaxLinearSolveFailures(a,b,z) 711 use petscsnesdef 712 SNES a ! SNES 713 PetscInt b ! PetscInt 714 PetscErrorCode z 715 end subroutine SNESGetMaxLinearSolveFailures 716 subroutine SNESGetLinearSolveIterations(a,b,z) 717 use petscsnesdef 718 SNES a ! SNES 719 PetscInt b ! PetscInt 720 PetscErrorCode z 721 end subroutine SNESGetLinearSolveIterations 722 subroutine SNESSetCountersReset(a,b,z) 723 use petscsnesdef 724 SNES a ! SNES 725 PetscBool b ! PetscBool 726 PetscErrorCode z 727 end subroutine SNESSetCountersReset 728 subroutine SNESSetKSP(a,b,z) 729 use petscsnesdef 730 SNES a ! SNES 731 KSP b ! KSP 732 PetscErrorCode z 733 end subroutine SNESSetKSP 734 subroutine SNESCreate(a,b,z) 735 use petscsnesdef 736 MPI_Comm a ! MPI_Comm 737 SNES b ! SNES 738 PetscErrorCode z 739 end subroutine SNESCreate 740 subroutine SNESSetNormSchedule(a,b,z) 741 use petscsnesdef 742 SNES a ! SNES 743 SNESNormSchedule b ! SNESNormSchedule 744 PetscErrorCode z 745 end subroutine SNESSetNormSchedule 746 subroutine SNESGetNormSchedule(a,b,z) 747 use petscsnesdef 748 SNES a ! SNES 749 SNESNormSchedule b ! SNESNormSchedule 750 PetscErrorCode z 751 end subroutine SNESGetNormSchedule 752 subroutine SNESSetFunctionNorm(a,b,z) 753 use petscsnesdef 754 SNES a ! SNES 755 PetscReal b ! PetscReal 756 PetscErrorCode z 757 end subroutine SNESSetFunctionNorm 758 subroutine SNESGetFunctionNorm(a,b,z) 759 use petscsnesdef 760 SNES a ! SNES 761 PetscReal b ! PetscReal 762 PetscErrorCode z 763 end subroutine SNESGetFunctionNorm 764 subroutine SNESGetUpdateNorm(a,b,z) 765 use petscsnesdef 766 SNES a ! SNES 767 PetscReal b ! PetscReal 768 PetscErrorCode z 769 end subroutine SNESGetUpdateNorm 770 subroutine SNESGetSolutionNorm(a,b,z) 771 use petscsnesdef 772 SNES a ! SNES 773 PetscReal b ! PetscReal 774 PetscErrorCode z 775 end subroutine SNESGetSolutionNorm 776 subroutine SNESComputeFunction(a,b,c,z) 777 use petscsnesdef 778 SNES a ! SNES 779 Vec b ! Vec 780 Vec c ! Vec 781 PetscErrorCode z 782 end subroutine SNESComputeFunction 783 subroutine SNESComputeNGS(a,b,c,z) 784 use petscsnesdef 785 SNES a ! SNES 786 Vec b ! Vec 787 Vec c ! Vec 788 PetscErrorCode z 789 end subroutine SNESComputeNGS 790 subroutine SNESComputeJacobian(a,b,c,d,z) 791 use petscsnesdef 792 SNES a ! SNES 793 Vec b ! Vec 794 Mat c ! Mat 795 Mat d ! Mat 796 PetscErrorCode z 797 end subroutine SNESComputeJacobian 798 subroutine SNESSetUp(a,z) 799 use petscsnesdef 800 SNES a ! SNES 801 PetscErrorCode z 802 end subroutine SNESSetUp 803 subroutine SNESReset(a,z) 804 use petscsnesdef 805 SNES a ! SNES 806 PetscErrorCode z 807 end subroutine SNESReset 808 subroutine SNESDestroy(a,z) 809 use petscsnesdef 810 SNES a ! SNES 811 PetscErrorCode z 812 end subroutine SNESDestroy 813 subroutine SNESSetLagPreconditioner(a,b,z) 814 use petscsnesdef 815 SNES a ! SNES 816 PetscInt b ! PetscInt 817 PetscErrorCode z 818 end subroutine SNESSetLagPreconditioner 819 subroutine SNESSetGridSequence(a,b,z) 820 use petscsnesdef 821 SNES a ! SNES 822 PetscInt b ! PetscInt 823 PetscErrorCode z 824 end subroutine SNESSetGridSequence 825 subroutine SNESGetGridSequence(a,b,z) 826 use petscsnesdef 827 SNES a ! SNES 828 PetscInt b ! PetscInt 829 PetscErrorCode z 830 end subroutine SNESGetGridSequence 831 subroutine SNESGetLagPreconditioner(a,b,z) 832 use petscsnesdef 833 SNES a ! SNES 834 PetscInt b ! PetscInt 835 PetscErrorCode z 836 end subroutine SNESGetLagPreconditioner 837 subroutine SNESSetLagJacobian(a,b,z) 838 use petscsnesdef 839 SNES a ! SNES 840 PetscInt b ! PetscInt 841 PetscErrorCode z 842 end subroutine SNESSetLagJacobian 843 subroutine SNESGetLagJacobian(a,b,z) 844 use petscsnesdef 845 SNES a ! SNES 846 PetscInt b ! PetscInt 847 PetscErrorCode z 848 end subroutine SNESGetLagJacobian 849 subroutine SNESSetLagJacobianPersists(a,b,z) 850 use petscsnesdef 851 SNES a ! SNES 852 PetscBool b ! PetscBool 853 PetscErrorCode z 854 end subroutine SNESSetLagJacobianPersists 855 subroutine SNESSetLagPreconditionerPersists(a,b,z) 856 use petscsnesdef 857 SNES a ! SNES 858 PetscBool b ! PetscBool 859 PetscErrorCode z 860 end subroutine SNESSetLagPreconditionerPersists 861 subroutine SNESSetForceIteration(a,b,z) 862 use petscsnesdef 863 SNES a ! SNES 864 PetscBool b ! PetscBool 865 PetscErrorCode z 866 end subroutine SNESSetForceIteration 867 subroutine SNESGetForceIteration(a,b,z) 868 use petscsnesdef 869 SNES a ! SNES 870 PetscBool b ! PetscBool 871 PetscErrorCode z 872 end subroutine SNESGetForceIteration 873 subroutine SNESSetTolerances(a,b,c,d,e,f,z) 874 use petscsnesdef 875 SNES a ! SNES 876 PetscReal b ! PetscReal 877 PetscReal c ! PetscReal 878 PetscReal d ! PetscReal 879 PetscInt e ! PetscInt 880 PetscInt f ! PetscInt 881 PetscErrorCode z 882 end subroutine SNESSetTolerances 883 subroutine SNESSetDivergenceTolerance(a,b,z) 884 use petscsnesdef 885 SNES a ! SNES 886 PetscReal b ! PetscReal 887 PetscErrorCode z 888 end subroutine SNESSetDivergenceTolerance 889 subroutine SNESGetTolerances(a,b,c,d,e,f,z) 890 use petscsnesdef 891 SNES a ! SNES 892 PetscReal b ! PetscReal 893 PetscReal c ! PetscReal 894 PetscReal d ! PetscReal 895 PetscInt e ! PetscInt 896 PetscInt f ! PetscInt 897 PetscErrorCode z 898 end subroutine SNESGetTolerances 899 subroutine SNESGetDivergenceTolerance(a,b,z) 900 use petscsnesdef 901 SNES a ! SNES 902 PetscReal b ! PetscReal 903 PetscErrorCode z 904 end subroutine SNESGetDivergenceTolerance 905 subroutine SNESSetTrustRegionTolerance(a,b,z) 906 use petscsnesdef 907 SNES a ! SNES 908 PetscReal b ! PetscReal 909 PetscErrorCode z 910 end subroutine SNESSetTrustRegionTolerance 911 subroutine SNESMonitor(a,b,c,z) 912 use petscsnesdef 913 SNES a ! SNES 914 PetscInt b ! PetscInt 915 PetscReal c ! PetscReal 916 PetscErrorCode z 917 end subroutine SNESMonitor 918 subroutine SNESMonitorCancel(a,z) 919 use petscsnesdef 920 SNES a ! SNES 921 PetscErrorCode z 922 end subroutine SNESMonitorCancel 923 subroutine SNESGetConvergedReason(a,b,z) 924 use petscsnesdef 925 SNES a ! SNES 926 SNESConvergedReason b ! SNESConvergedReason 927 PetscErrorCode z 928 end subroutine SNESGetConvergedReason 929 subroutine SNESSetConvergedReason(a,b,z) 930 use petscsnesdef 931 SNES a ! SNES 932 SNESConvergedReason b ! SNESConvergedReason 933 PetscErrorCode z 934 end subroutine SNESSetConvergedReason 935 subroutine SNESSetConvergenceHistory(a,b,c,d,e,z) 936 use petscsnesdef 937 SNES a ! SNES 938 PetscReal b (*) ! PetscReal 939 PetscInt c (*) ! PetscInt 940 PetscInt d ! PetscInt 941 PetscBool e ! PetscBool 942 PetscErrorCode z 943 end subroutine SNESSetConvergenceHistory 944 subroutine SNESConvergedReasonViewFromOptions(a,z) 945 use petscsnesdef 946 SNES a ! SNES 947 PetscErrorCode z 948 end subroutine SNESConvergedReasonViewFromOptions 949 subroutine SNESSolve(a,b,c,z) 950 use petscsnesdef 951 SNES a ! SNES 952 Vec b ! Vec 953 Vec c ! Vec 954 PetscErrorCode z 955 end subroutine SNESSolve 956 subroutine SNESSetSolution(a,b,z) 957 use petscsnesdef 958 SNES a ! SNES 959 Vec b ! Vec 960 PetscErrorCode z 961 end subroutine SNESSetSolution 962 subroutine SNESGetSolution(a,b,z) 963 use petscsnesdef 964 SNES a ! SNES 965 Vec b ! Vec 966 PetscErrorCode z 967 end subroutine SNESGetSolution 968 subroutine SNESGetSolutionUpdate(a,b,z) 969 use petscsnesdef 970 SNES a ! SNES 971 Vec b ! Vec 972 PetscErrorCode z 973 end subroutine SNESGetSolutionUpdate 974 subroutine SNESKSPSetUseEW(a,b,z) 975 use petscsnesdef 976 SNES a ! SNES 977 PetscBool b ! PetscBool 978 PetscErrorCode z 979 end subroutine SNESKSPSetUseEW 980 subroutine SNESKSPGetUseEW(a,b,z) 981 use petscsnesdef 982 SNES a ! SNES 983 PetscBool b ! PetscBool 984 PetscErrorCode z 985 end subroutine SNESKSPGetUseEW 986 subroutine SNESKSPSetParametersEW(a,b,c,d,e,f,g,h,z) 987 use petscsnesdef 988 SNES a ! SNES 989 PetscInt b ! PetscInt 990 PetscReal c ! PetscReal 991 PetscReal d ! PetscReal 992 PetscReal e ! PetscReal 993 PetscReal f ! PetscReal 994 PetscReal g ! PetscReal 995 PetscReal h ! PetscReal 996 PetscErrorCode z 997 end subroutine SNESKSPSetParametersEW 998 subroutine SNESKSPGetParametersEW(a,b,c,d,e,f,g,h,z) 999 use petscsnesdef 1000 SNES a ! SNES 1001 PetscInt b ! PetscInt 1002 PetscReal c ! PetscReal 1003 PetscReal d ! PetscReal 1004 PetscReal e ! PetscReal 1005 PetscReal f ! PetscReal 1006 PetscReal g ! PetscReal 1007 PetscReal h ! PetscReal 1008 PetscErrorCode z 1009 end subroutine SNESKSPGetParametersEW 1010 subroutine SNESGetKSP(a,b,z) 1011 use petscsnesdef 1012 SNES a ! SNES 1013 KSP b ! KSP 1014 PetscErrorCode z 1015 end subroutine SNESGetKSP 1016 subroutine SNESSetDM(a,b,z) 1017 use petscsnesdef 1018 SNES a ! SNES 1019 DM b ! DM 1020 PetscErrorCode z 1021 end subroutine SNESSetDM 1022 subroutine SNESGetDM(a,b,z) 1023 use petscsnesdef 1024 SNES a ! SNES 1025 DM b ! DM 1026 PetscErrorCode z 1027 end subroutine SNESGetDM 1028 subroutine SNESSetNPC(a,b,z) 1029 use petscsnesdef 1030 SNES a ! SNES 1031 SNES b ! SNES 1032 PetscErrorCode z 1033 end subroutine SNESSetNPC 1034 subroutine SNESGetNPC(a,b,z) 1035 use petscsnesdef 1036 SNES a ! SNES 1037 SNES b ! SNES 1038 PetscErrorCode z 1039 end subroutine SNESGetNPC 1040 subroutine SNESHasNPC(a,b,z) 1041 use petscsnesdef 1042 SNES a ! SNES 1043 PetscBool b ! PetscBool 1044 PetscErrorCode z 1045 end subroutine SNESHasNPC 1046 subroutine SNESSetNPCSide(a,b,z) 1047 use petscsnesdef 1048 SNES a ! SNES 1049 PCSide b ! PCSide 1050 PetscErrorCode z 1051 end subroutine SNESSetNPCSide 1052 subroutine SNESGetNPCSide(a,b,z) 1053 use petscsnesdef 1054 SNES a ! SNES 1055 PCSide b ! PCSide 1056 PetscErrorCode z 1057 end subroutine SNESGetNPCSide 1058 subroutine SNESSetLineSearch(a,b,z) 1059 use petscsnesdef 1060 SNES a ! SNES 1061 SNESLineSearch b ! SNESLineSearch 1062 PetscErrorCode z 1063 end subroutine SNESSetLineSearch 1064 subroutine SNESGetLineSearch(a,b,z) 1065 use petscsnesdef 1066 SNES a ! SNES 1067 SNESLineSearch b ! SNESLineSearch 1068 PetscErrorCode z 1069 end subroutine SNESGetLineSearch 1070 subroutine SNESApplyNPC(a,b,c,d,z) 1071 use petscsnesdef 1072 SNES a ! SNES 1073 Vec b ! Vec 1074 Vec c ! Vec 1075 Vec d ! Vec 1076 PetscErrorCode z 1077 end subroutine SNESApplyNPC 1078 subroutine SNESGetNPCFunction(a,b,c,z) 1079 use petscsnesdef 1080 SNES a ! SNES 1081 Vec b ! Vec 1082 PetscReal c ! PetscReal 1083 PetscErrorCode z 1084 end subroutine SNESGetNPCFunction 1085