1 subroutine PetscMatlabEngineDestroy(a,z) 2 use petscsysdef 3 PetscMatlabEngine a ! PetscMatlabEngine 4 PetscErrorCode z 5 end subroutine PetscMatlabEngineDestroy 6 subroutine PetscMatlabEnginePut(a,b,z) 7 use petscsysdef 8 PetscMatlabEngine a ! PetscMatlabEngine 9 PetscObject b ! PetscObject 10 PetscErrorCode z 11 end subroutine PetscMatlabEnginePut 12 subroutine PetscMatlabEngineGet(a,b,z) 13 use petscsysdef 14 PetscMatlabEngine a ! PetscMatlabEngine 15 PetscObject b ! PetscObject 16 PetscErrorCode z 17 end subroutine PetscMatlabEngineGet 18 subroutine PetscBagSetFromOptions(a,z) 19 use petscsysdef 20 PetscBag a ! PetscBag 21 PetscErrorCode z 22 end subroutine PetscBagSetFromOptions 23 subroutine PetscMallocGetCurrentUsage(a,z) 24 use petscsysdef 25 PetscLogDouble a ! PetscLogDouble 26 PetscErrorCode z 27 end subroutine PetscMallocGetCurrentUsage 28 subroutine PetscMallocGetMaximumUsage(a,z) 29 use petscsysdef 30 PetscLogDouble a ! PetscLogDouble 31 PetscErrorCode z 32 end subroutine PetscMallocGetMaximumUsage 33 subroutine PetscMallocPushMaximumUsage(a,z) 34 use petscsysdef 35 integer a ! int 36 PetscErrorCode z 37 end subroutine PetscMallocPushMaximumUsage 38 subroutine PetscMallocPopMaximumUsage(a,b,z) 39 use petscsysdef 40 integer a ! int 41 PetscLogDouble b ! PetscLogDouble 42 PetscErrorCode z 43 end subroutine PetscMallocPopMaximumUsage 44 subroutine PetscMallocViewSet(a,z) 45 use petscsysdef 46 PetscLogDouble a ! PetscLogDouble 47 PetscErrorCode z 48 end subroutine PetscMallocViewSet 49 subroutine PetscMallocViewGet(a,z) 50 use petscsysdef 51 PetscBool a ! PetscBool 52 PetscErrorCode z 53 end subroutine PetscMallocViewGet 54 subroutine PetscMallocTraceSet(a,b,c,z) 55 use petscsysdef 56 PetscViewer a ! PetscViewer 57 PetscBool b ! PetscBool 58 PetscLogDouble c ! PetscLogDouble 59 PetscErrorCode z 60 end subroutine PetscMallocTraceSet 61 subroutine PetscMallocTraceGet(a,z) 62 use petscsysdef 63 PetscBool a ! PetscBool 64 PetscErrorCode z 65 end subroutine PetscMallocTraceGet 66 subroutine PetscMallocSetDebug(a,b,z) 67 use petscsysdef 68 PetscBool a ! PetscBool 69 PetscBool b ! PetscBool 70 PetscErrorCode z 71 end subroutine PetscMallocSetDebug 72 subroutine PetscMallocGetDebug(a,b,c,z) 73 use petscsysdef 74 PetscBool a ! PetscBool 75 PetscBool b ! PetscBool 76 PetscBool c ! PetscBool 77 PetscErrorCode z 78 end subroutine PetscMallocGetDebug 79 subroutine PetscMallocLogRequestedSizeSet(a,z) 80 use petscsysdef 81 PetscBool a ! PetscBool 82 PetscErrorCode z 83 end subroutine PetscMallocLogRequestedSizeSet 84 subroutine PetscMallocLogRequestedSizeGet(a,z) 85 use petscsysdef 86 PetscBool a ! PetscBool 87 PetscErrorCode z 88 end subroutine PetscMallocLogRequestedSizeGet 89 subroutine PetscMemoryGetCurrentUsage(a,z) 90 use petscsysdef 91 PetscLogDouble a ! PetscLogDouble 92 PetscErrorCode z 93 end subroutine PetscMemoryGetCurrentUsage 94 subroutine PetscMemoryGetMaximumUsage(a,z) 95 use petscsysdef 96 PetscLogDouble a ! PetscLogDouble 97 PetscErrorCode z 98 end subroutine PetscMemoryGetMaximumUsage 99 subroutine PetscMemorySetGetMaximumUsage(z) 100 use petscsysdef 101 PetscErrorCode z 102 end subroutine PetscMemorySetGetMaximumUsage 103 subroutine PetscPopSignalHandler(z) 104 use petscsysdef 105 PetscErrorCode z 106 end subroutine PetscPopSignalHandler 107 subroutine PetscCheckPointerSetIntensity(a,z) 108 use petscsysdef 109 PetscInt a ! PetscInt 110 PetscErrorCode z 111 end subroutine PetscCheckPointerSetIntensity 112 subroutine PetscWaitOnError(z) 113 use petscsysdef 114 PetscErrorCode z 115 end subroutine PetscWaitOnError 116 subroutine PetscAttachDebugger(z) 117 use petscsysdef 118 PetscErrorCode z 119 end subroutine PetscAttachDebugger 120 subroutine PetscFPTrapPush(a,z) 121 use petscsysdef 122 PetscFPTrap a ! PetscFPTrap 123 PetscErrorCode z 124 end subroutine PetscFPTrapPush 125 subroutine PetscFPTrapPop(z) 126 use petscsysdef 127 PetscErrorCode z 128 end subroutine PetscFPTrapPop 129 subroutine PetscSetFPTrap(a,z) 130 use petscsysdef 131 PetscFPTrap a ! PetscFPTrap 132 PetscErrorCode z 133 end subroutine PetscSetFPTrap 134 subroutine PetscDetermineInitialFPTrap(z) 135 use petscsysdef 136 PetscErrorCode z 137 end subroutine PetscDetermineInitialFPTrap 138 subroutine PetscPopErrorHandler(z) 139 use petscsysdef 140 PetscErrorCode z 141 end subroutine PetscPopErrorHandler 142 subroutine PetscSortedInt(a,b,c,z) 143 use petscsysdef 144 PetscInt a ! PetscInt 145 PetscInt b (*) ! PetscInt 146 PetscBool c ! PetscBool 147 PetscErrorCode z 148 end subroutine PetscSortedInt 149 subroutine PetscSortInt(a,b,z) 150 use petscsysdef 151 PetscInt a ! PetscInt 152 PetscInt b (*) ! PetscInt 153 PetscErrorCode z 154 end subroutine PetscSortInt 155 subroutine PetscSortReverseInt(a,b,z) 156 use petscsysdef 157 PetscInt a ! PetscInt 158 PetscInt b (*) ! PetscInt 159 PetscErrorCode z 160 end subroutine PetscSortReverseInt 161 subroutine PetscSortedRemoveDupsInt(a,b,z) 162 use petscsysdef 163 PetscInt a ! PetscInt 164 PetscInt b (*) ! PetscInt 165 PetscErrorCode z 166 end subroutine PetscSortedRemoveDupsInt 167 subroutine PetscSortRemoveDupsInt(a,b,z) 168 use petscsysdef 169 PetscInt a ! PetscInt 170 PetscInt b (*) ! PetscInt 171 PetscErrorCode z 172 end subroutine PetscSortRemoveDupsInt 173 subroutine PetscFindInt(a,b,c,d,z) 174 use petscsysdef 175 PetscInt a ! PetscInt 176 PetscInt b ! PetscInt 177 PetscInt c (*) ! PetscInt 178 PetscInt d ! PetscInt 179 PetscErrorCode z 180 end subroutine PetscFindInt 181 subroutine PetscCheckDupsInt(a,b,c,z) 182 use petscsysdef 183 PetscInt a ! PetscInt 184 PetscInt b (*) ! PetscInt 185 PetscBool c ! PetscBool 186 PetscErrorCode z 187 end subroutine PetscCheckDupsInt 188 subroutine PetscFindMPIInt(a,b,c,d,z) 189 use petscsysdef 190 PetscMPIInt a ! PetscMPIInt 191 PetscInt b ! PetscInt 192 PetscMPIInt c (*) ! PetscMPIInt 193 PetscInt d ! PetscInt 194 PetscErrorCode z 195 end subroutine PetscFindMPIInt 196 subroutine PetscSortIntWithArray(a,b,c,z) 197 use petscsysdef 198 PetscInt a ! PetscInt 199 PetscInt b (*) ! PetscInt 200 PetscInt c (*) ! PetscInt 201 PetscErrorCode z 202 end subroutine PetscSortIntWithArray 203 subroutine PetscSortIntWithArrayPair(a,b,c,d,z) 204 use petscsysdef 205 PetscInt a ! PetscInt 206 PetscInt b (*) ! PetscInt 207 PetscInt c (*) ! PetscInt 208 PetscInt d (*) ! PetscInt 209 PetscErrorCode z 210 end subroutine PetscSortIntWithArrayPair 211 subroutine PetscSortedMPIInt(a,b,c,z) 212 use petscsysdef 213 PetscInt a ! PetscInt 214 PetscMPIInt b (*) ! PetscMPIInt 215 PetscBool c ! PetscBool 216 PetscErrorCode z 217 end subroutine PetscSortedMPIInt 218 subroutine PetscSortMPIInt(a,b,z) 219 use petscsysdef 220 PetscInt a ! PetscInt 221 PetscMPIInt b (*) ! PetscMPIInt 222 PetscErrorCode z 223 end subroutine PetscSortMPIInt 224 subroutine PetscSortRemoveDupsMPIInt(a,b,z) 225 use petscsysdef 226 PetscInt a ! PetscInt 227 PetscMPIInt b (*) ! PetscMPIInt 228 PetscErrorCode z 229 end subroutine PetscSortRemoveDupsMPIInt 230 subroutine PetscSortMPIIntWithArray(a,b,c,z) 231 use petscsysdef 232 PetscMPIInt a ! PetscMPIInt 233 PetscMPIInt b (*) ! PetscMPIInt 234 PetscMPIInt c (*) ! PetscMPIInt 235 PetscErrorCode z 236 end subroutine PetscSortMPIIntWithArray 237 subroutine PetscSortMPIIntWithIntArray(a,b,c,z) 238 use petscsysdef 239 PetscMPIInt a ! PetscMPIInt 240 PetscMPIInt b (*) ! PetscMPIInt 241 PetscInt c (*) ! PetscInt 242 PetscErrorCode z 243 end subroutine PetscSortMPIIntWithIntArray 244 subroutine PetscSortIntWithScalarArray(a,b,c,z) 245 use petscsysdef 246 PetscInt a ! PetscInt 247 PetscInt b (*) ! PetscInt 248 PetscScalar c (*) ! PetscScalar 249 PetscErrorCode z 250 end subroutine PetscSortIntWithScalarArray 251 subroutine PetscMergeIntArray(a,b,c,d,e,f,z) 252 use petscsysdef 253 PetscInt a ! PetscInt 254 PetscInt b (*) ! PetscInt 255 PetscInt c ! PetscInt 256 PetscInt d (*) ! PetscInt 257 PetscInt e ! PetscInt 258 PetscInt f ! PetscInt 259 PetscErrorCode z 260 end subroutine PetscMergeIntArray 261 subroutine PetscMergeIntArrayPair(a,b,c,d,e,f,g,h,i,z) 262 use petscsysdef 263 PetscInt a ! PetscInt 264 PetscInt b (*) ! PetscInt 265 PetscInt c (*) ! PetscInt 266 PetscInt d ! PetscInt 267 PetscInt e (*) ! PetscInt 268 PetscInt f (*) ! PetscInt 269 PetscInt g ! PetscInt 270 PetscInt h ! PetscInt 271 PetscInt i ! PetscInt 272 PetscErrorCode z 273 end subroutine PetscMergeIntArrayPair 274 subroutine PetscMergeMPIIntArray(a,b,c,d,e,f,z) 275 use petscsysdef 276 PetscInt a ! PetscInt 277 PetscMPIInt b (*) ! PetscMPIInt 278 PetscInt c ! PetscInt 279 PetscMPIInt d (*) ! PetscMPIInt 280 PetscInt e ! PetscInt 281 PetscMPIInt f ! PetscMPIInt 282 PetscErrorCode z 283 end subroutine PetscMergeMPIIntArray 284 subroutine PetscParallelSortedInt(a,b,c,d,z) 285 use petscsysdef 286 MPI_Comm a ! MPI_Comm 287 PetscInt b ! PetscInt 288 PetscInt c (*) ! PetscInt 289 PetscBool d ! PetscBool 290 PetscErrorCode z 291 end subroutine PetscParallelSortedInt 292 subroutine PetscSortedReal(a,b,c,z) 293 use petscsysdef 294 PetscInt a ! PetscInt 295 PetscReal b (*) ! PetscReal 296 PetscBool c ! PetscBool 297 PetscErrorCode z 298 end subroutine PetscSortedReal 299 subroutine PetscSortReal(a,b,z) 300 use petscsysdef 301 PetscInt a ! PetscInt 302 PetscReal b (*) ! PetscReal 303 PetscErrorCode z 304 end subroutine PetscSortReal 305 subroutine PetscSortRealWithArrayInt(a,b,c,z) 306 use petscsysdef 307 PetscInt a ! PetscInt 308 PetscReal b (*) ! PetscReal 309 PetscInt c (*) ! PetscInt 310 PetscErrorCode z 311 end subroutine PetscSortRealWithArrayInt 312 subroutine PetscFindReal(a,b,c,d,e,z) 313 use petscsysdef 314 PetscReal a ! PetscReal 315 PetscInt b ! PetscInt 316 PetscReal c (*) ! PetscReal 317 PetscReal d ! PetscReal 318 PetscInt e ! PetscInt 319 PetscErrorCode z 320 end subroutine PetscFindReal 321 subroutine PetscSortRemoveDupsReal(a,b,z) 322 use petscsysdef 323 PetscInt a ! PetscInt 324 PetscReal b (*) ! PetscReal 325 PetscErrorCode z 326 end subroutine PetscSortRemoveDupsReal 327 subroutine PetscSortSplit(a,b,c,d,z) 328 use petscsysdef 329 PetscInt a ! PetscInt 330 PetscInt b ! PetscInt 331 PetscScalar c (*) ! PetscScalar 332 PetscInt d (*) ! PetscInt 333 PetscErrorCode z 334 end subroutine PetscSortSplit 335 subroutine PetscSortSplitReal(a,b,c,d,z) 336 use petscsysdef 337 PetscInt a ! PetscInt 338 PetscInt b ! PetscInt 339 PetscReal c (*) ! PetscReal 340 PetscInt d (*) ! PetscInt 341 PetscErrorCode z 342 end subroutine PetscSortSplitReal 343 subroutine PetscSortIntWithPermutation(a,b,c,z) 344 use petscsysdef 345 PetscInt a ! PetscInt 346 PetscInt b (*) ! PetscInt 347 PetscInt c (*) ! PetscInt 348 PetscErrorCode z 349 end subroutine PetscSortIntWithPermutation 350 subroutine PetscSortRealWithPermutation(a,b,c,z) 351 use petscsysdef 352 PetscInt a ! PetscInt 353 PetscReal b (*) ! PetscReal 354 PetscInt c (*) ! PetscInt 355 PetscErrorCode z 356 end subroutine PetscSortRealWithPermutation 357 subroutine PetscCommBuildTwoSidedSetType(a,b,z) 358 use petscsysdef 359 MPI_Comm a ! MPI_Comm 360 PetscBuildTwoSidedType b ! PetscBuildTwoSidedType 361 PetscErrorCode z 362 end subroutine PetscCommBuildTwoSidedSetType 363 subroutine PetscCommBuildTwoSidedGetType(a,b,z) 364 use petscsysdef 365 MPI_Comm a ! MPI_Comm 366 PetscBuildTwoSidedType b ! PetscBuildTwoSidedType 367 PetscErrorCode z 368 end subroutine PetscCommBuildTwoSidedGetType 369 subroutine PetscSplitOwnershipBlock(a,b,c,d,z) 370 use petscsysdef 371 MPI_Comm a ! MPI_Comm 372 PetscInt b ! PetscInt 373 PetscInt c ! PetscInt 374 PetscInt d ! PetscInt 375 PetscErrorCode z 376 end subroutine PetscSplitOwnershipBlock 377 subroutine PetscSplitOwnership(a,b,c,z) 378 use petscsysdef 379 MPI_Comm a ! MPI_Comm 380 PetscInt b ! PetscInt 381 PetscInt c ! PetscInt 382 PetscErrorCode z 383 end subroutine PetscSplitOwnership 384 subroutine PetscSplitOwnershipEqual(a,b,c,z) 385 use petscsysdef 386 MPI_Comm a ! MPI_Comm 387 PetscInt b ! PetscInt 388 PetscInt c ! PetscInt 389 PetscErrorCode z 390 end subroutine PetscSplitOwnershipEqual 391 subroutine PetscSequentialPhaseBegin(a,b,z) 392 use petscsysdef 393 MPI_Comm a ! MPI_Comm 394 integer b ! int 395 PetscErrorCode z 396 end subroutine PetscSequentialPhaseBegin 397 subroutine PetscSequentialPhaseEnd(a,b,z) 398 use petscsysdef 399 MPI_Comm a ! MPI_Comm 400 integer b ! int 401 PetscErrorCode z 402 end subroutine PetscSequentialPhaseEnd 403 subroutine PetscSleep(a,z) 404 use petscsysdef 405 PetscReal a ! PetscReal 406 PetscErrorCode z 407 end subroutine PetscSleep 408 subroutine PetscIntSortSemiOrdered(a,b,z) 409 use petscsysdef 410 PetscInt a ! PetscInt 411 PetscInt b (*) ! PetscInt 412 PetscErrorCode z 413 end subroutine PetscIntSortSemiOrdered 414 subroutine PetscIntSortSemiOrderedWithArray(a,b,c,z) 415 use petscsysdef 416 PetscInt a ! PetscInt 417 PetscInt b (*) ! PetscInt 418 PetscInt c (*) ! PetscInt 419 PetscErrorCode z 420 end subroutine PetscIntSortSemiOrderedWithArray 421 subroutine PetscMPIIntSortSemiOrdered(a,b,z) 422 use petscsysdef 423 PetscInt a ! PetscInt 424 PetscMPIInt b (*) ! PetscMPIInt 425 PetscErrorCode z 426 end subroutine PetscMPIIntSortSemiOrdered 427 subroutine PetscMPIIntSortSemiOrderedWithArray(a,b,c,z) 428 use petscsysdef 429 PetscInt a ! PetscInt 430 PetscMPIInt b (*) ! PetscMPIInt 431 PetscMPIInt c (*) ! PetscMPIInt 432 PetscErrorCode z 433 end subroutine PetscMPIIntSortSemiOrderedWithArray 434 subroutine PetscRealSortSemiOrdered(a,b,z) 435 use petscsysdef 436 PetscInt a ! PetscInt 437 PetscReal b (*) ! PetscReal 438 PetscErrorCode z 439 end subroutine PetscRealSortSemiOrdered 440 subroutine PetscRealSortSemiOrderedWithArrayInt(a,b,c,z) 441 use petscsysdef 442 PetscInt a ! PetscInt 443 PetscReal b (*) ! PetscReal 444 PetscInt c (*) ! PetscInt 445 PetscErrorCode z 446 end subroutine PetscRealSortSemiOrderedWithArrayInt 447 subroutine PetscBinaryClose(a,z) 448 use petscsysdef 449 integer a ! int 450 PetscErrorCode z 451 end subroutine PetscBinaryClose 452 subroutine PetscObjectGetId(a,b,z) 453 use petscsysdef 454 PetscObject a ! PetscObject 455 PetscObjectId b ! PetscObjectId 456 PetscErrorCode z 457 end subroutine PetscObjectGetId 458 subroutine PetscObjectCompareId(a,b,c,z) 459 use petscsysdef 460 PetscObject a ! PetscObject 461 PetscObjectId b ! PetscObjectId 462 PetscBool c ! PetscBool 463 PetscErrorCode z 464 end subroutine PetscObjectCompareId 465 subroutine PetscOptionsCreate(a,z) 466 use petscsysdef 467 PetscOptions a ! PetscOptions 468 PetscErrorCode z 469 end subroutine PetscOptionsCreate 470 subroutine PetscOptionsDestroy(a,z) 471 use petscsysdef 472 PetscOptions a ! PetscOptions 473 PetscErrorCode z 474 end subroutine PetscOptionsDestroy 475 subroutine PetscOptionsPush(a,z) 476 use petscsysdef 477 PetscOptions a ! PetscOptions 478 PetscErrorCode z 479 end subroutine PetscOptionsPush 480 subroutine PetscOptionsPop(z) 481 use petscsysdef 482 PetscErrorCode z 483 end subroutine PetscOptionsPop 484 subroutine PetscOptionsAllUsed(a,b,z) 485 use petscsysdef 486 PetscOptions a ! PetscOptions 487 PetscInt b ! PetscInt 488 PetscErrorCode z 489 end subroutine PetscOptionsAllUsed 490 subroutine PetscOptionsLeft(a,z) 491 use petscsysdef 492 PetscOptions a ! PetscOptions 493 PetscErrorCode z 494 end subroutine PetscOptionsLeft 495 subroutine PetscObjectGetClassId(a,b,z) 496 use petscsysdef 497 PetscObject a ! PetscObject 498 PetscClassId b ! PetscClassId 499 PetscErrorCode z 500 end subroutine PetscObjectGetClassId 501 subroutine PetscCommGetNewTag(a,b,z) 502 use petscsysdef 503 MPI_Comm a ! MPI_Comm 504 PetscMPIInt b ! PetscMPIInt 505 PetscErrorCode z 506 end subroutine PetscCommGetNewTag 507 subroutine PetscInitialized(a,z) 508 use petscsysdef 509 PetscBool a ! PetscBool 510 PetscErrorCode z 511 end subroutine PetscInitialized 512 subroutine PetscFinalized(a,z) 513 use petscsysdef 514 PetscBool a ! PetscBool 515 PetscErrorCode z 516 end subroutine PetscFinalized 517 subroutine PetscObjectDestroy(a,z) 518 use petscsysdef 519 PetscObject a ! PetscObject 520 PetscErrorCode z 521 end subroutine PetscObjectDestroy 522 subroutine PetscSubcommSetFromOptions(a,z) 523 use petscsysdef 524 PetscSubcomm a ! PetscSubcomm 525 PetscErrorCode z 526 end subroutine PetscSubcommSetFromOptions 527 subroutine PetscSubcommSetNumber(a,b,z) 528 use petscsysdef 529 PetscSubcomm a ! PetscSubcomm 530 PetscInt b ! PetscInt 531 PetscErrorCode z 532 end subroutine PetscSubcommSetNumber 533 subroutine PetscSubcommSetType(a,b,z) 534 use petscsysdef 535 PetscSubcomm a ! PetscSubcomm 536 PetscSubcommType b ! PetscSubcommType 537 PetscErrorCode z 538 end subroutine PetscSubcommSetType 539 subroutine PetscSubcommSetTypeGeneral(a,b,c,z) 540 use petscsysdef 541 PetscSubcomm a ! PetscSubcomm 542 PetscMPIInt b ! PetscMPIInt 543 PetscMPIInt c ! PetscMPIInt 544 PetscErrorCode z 545 end subroutine PetscSubcommSetTypeGeneral 546 subroutine PetscSubcommDestroy(a,z) 547 use petscsysdef 548 PetscSubcomm a ! PetscSubcomm 549 PetscErrorCode z 550 end subroutine PetscSubcommDestroy 551 subroutine PetscSubcommCreate(a,b,z) 552 use petscsysdef 553 MPI_Comm a ! MPI_Comm 554 PetscSubcomm b ! PetscSubcomm 555 PetscErrorCode z 556 end subroutine PetscSubcommCreate 557 subroutine PetscObjectSetPrintedOptions(a,z) 558 use petscsysdef 559 PetscObject a ! PetscObject 560 PetscErrorCode z 561 end subroutine PetscObjectSetPrintedOptions 562 subroutine PetscObjectInheritPrintedOptions(a,b,z) 563 use petscsysdef 564 PetscObject a ! PetscObject 565 PetscObject b ! PetscObject 566 PetscErrorCode z 567 end subroutine PetscObjectInheritPrintedOptions 568 subroutine PetscObjectSetFromOptions(a,z) 569 use petscsysdef 570 PetscObject a ! PetscObject 571 PetscErrorCode z 572 end subroutine PetscObjectSetFromOptions 573 subroutine PetscObjectSetUp(a,z) 574 use petscsysdef 575 PetscObject a ! PetscObject 576 PetscErrorCode z 577 end subroutine PetscObjectSetUp 578 subroutine PetscObjectGetTabLevel(a,b,z) 579 use petscsysdef 580 PetscObject a ! PetscObject 581 PetscInt b ! PetscInt 582 PetscErrorCode z 583 end subroutine PetscObjectGetTabLevel 584 subroutine PetscObjectSetTabLevel(a,b,z) 585 use petscsysdef 586 PetscObject a ! PetscObject 587 PetscInt b ! PetscInt 588 PetscErrorCode z 589 end subroutine PetscObjectSetTabLevel 590 subroutine PetscObjectIncrementTabLevel(a,b,c,z) 591 use petscsysdef 592 PetscObject a ! PetscObject 593 PetscObject b ! PetscObject 594 PetscInt c ! PetscInt 595 PetscErrorCode z 596 end subroutine PetscObjectIncrementTabLevel 597 subroutine PetscFunctionListDestroy(a,z) 598 use petscsysdef 599 PetscFunctionList a ! PetscFunctionList 600 PetscErrorCode z 601 end subroutine PetscFunctionListDestroy 602 subroutine PetscFunctionListView(a,b,z) 603 use petscsysdef 604 PetscFunctionList a ! PetscFunctionList 605 PetscViewer b ! PetscViewer 606 PetscErrorCode z 607 end subroutine PetscFunctionListView 608 subroutine PetscFunctionListDuplicate(a,b,z) 609 use petscsysdef 610 PetscFunctionList a ! PetscFunctionList 611 PetscFunctionList b ! PetscFunctionList 612 PetscErrorCode z 613 end subroutine PetscFunctionListDuplicate 614 subroutine PetscElementalInitializePackage(z) 615 use petscsysdef 616 PetscErrorCode z 617 end subroutine PetscElementalInitializePackage 618 subroutine PetscElementalInitialized(a,z) 619 use petscsysdef 620 PetscBool a ! PetscBool 621 PetscErrorCode z 622 end subroutine PetscElementalInitialized 623 subroutine PetscElementalFinalizePackage(z) 624 use petscsysdef 625 PetscErrorCode z 626 end subroutine PetscElementalFinalizePackage 627 subroutine PetscGetCPUTime(a,z) 628 use petscsysdef 629 PetscLogDouble a ! PetscLogDouble 630 PetscErrorCode z 631 end subroutine PetscGetCPUTime 632 subroutine PetscRandomDestroy(a,z) 633 use petscsysdef 634 PetscRandom a ! PetscRandom 635 PetscErrorCode z 636 end subroutine PetscRandomDestroy 637 subroutine PetscRandomSetFromOptions(a,z) 638 use petscsysdef 639 PetscRandom a ! PetscRandom 640 PetscErrorCode z 641 end subroutine PetscRandomSetFromOptions 642 subroutine PetscRandomCreate(a,b,z) 643 use petscsysdef 644 MPI_Comm a ! MPI_Comm 645 PetscRandom b ! PetscRandom 646 PetscErrorCode z 647 end subroutine PetscRandomCreate 648 subroutine PetscRandomSeed(a,z) 649 use petscsysdef 650 PetscRandom a ! PetscRandom 651 PetscErrorCode z 652 end subroutine PetscRandomSeed 653 subroutine PetscRandomGetValue(a,b,z) 654 use petscsysdef 655 PetscRandom a ! PetscRandom 656 PetscScalar b ! PetscScalar 657 PetscErrorCode z 658 end subroutine PetscRandomGetValue 659 subroutine PetscRandomGetValueReal(a,b,z) 660 use petscsysdef 661 PetscRandom a ! PetscRandom 662 PetscReal b ! PetscReal 663 PetscErrorCode z 664 end subroutine PetscRandomGetValueReal 665 subroutine PetscRandomGetInterval(a,b,c,z) 666 use petscsysdef 667 PetscRandom a ! PetscRandom 668 PetscScalar b ! PetscScalar 669 PetscScalar c ! PetscScalar 670 PetscErrorCode z 671 end subroutine PetscRandomGetInterval 672 subroutine PetscRandomSetInterval(a,b,c,z) 673 use petscsysdef 674 PetscRandom a ! PetscRandom 675 PetscScalar b ! PetscScalar 676 PetscScalar c ! PetscScalar 677 PetscErrorCode z 678 end subroutine PetscRandomSetInterval 679 subroutine PetscLogFlops(a,z) 680 use petscsysdef 681 PetscLogDouble a ! PetscLogDouble 682 PetscErrorCode z 683 end subroutine PetscLogFlops 684 subroutine PetscLogGpuFlops(a,z) 685 use petscsysdef 686 PetscLogDouble a ! PetscLogDouble 687 PetscErrorCode z 688 end subroutine PetscLogGpuFlops 689 subroutine PetscLogGpuTimeBegin(z) 690 use petscsysdef 691 PetscErrorCode z 692 end subroutine PetscLogGpuTimeBegin 693 subroutine PetscLogGpuTimeEnd(z) 694 use petscsysdef 695 PetscErrorCode z 696 end subroutine PetscLogGpuTimeEnd 697