1*02c639afSMartin Diehl interface 26dd63270SBarry Smith subroutine KSPRestoreConvergenceHistory(ksp, r, na, ierr) 3fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 46dd63270SBarry Smith import tKSP 56dd63270SBarry Smith KSP ksp 66dd63270SBarry Smith PetscInt na 76dd63270SBarry Smith PetscReal, pointer :: r(:) 86dd63270SBarry Smith PetscErrorCode, intent(out) :: ierr 96dd63270SBarry Smith end subroutine 10*02c639afSMartin Diehl end interface 116dd63270SBarry Smith 1236083efbSBarry Smith interface 1336083efbSBarry Smith subroutine PCBJacobiRestoreSubKSP(a, b, c, d, z) 1436083efbSBarry Smith use, intrinsic :: ISO_C_binding 1536083efbSBarry Smith import tPC, tKSP 1636083efbSBarry Smith PC :: a 1736083efbSBarry Smith PetscInt :: b 1836083efbSBarry Smith PetscInt :: c 1936083efbSBarry Smith KSP, pointer :: d(:) 2036083efbSBarry Smith PetscErrorCode z 2136083efbSBarry Smith end subroutine 2236083efbSBarry Smith end interface 2336083efbSBarry Smith#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 2436083efbSBarry Smith!DEC$ ATTRIBUTES DLLEXPORT::PCBJacobiRestoreSubKSP 2536083efbSBarry Smith#endif 2636083efbSBarry Smith 2736083efbSBarry Smith interface 2836083efbSBarry Smith subroutine PCASMRestoreSubKSP(a, b, c, d, z) 2936083efbSBarry Smith use, intrinsic :: ISO_C_binding 3036083efbSBarry Smith import tPC, tKSP 3136083efbSBarry Smith PC :: a 3236083efbSBarry Smith PetscInt :: b 3336083efbSBarry Smith PetscInt :: c 3436083efbSBarry Smith KSP, pointer :: d(:) 3536083efbSBarry Smith PetscErrorCode z 3636083efbSBarry Smith end subroutine 3736083efbSBarry Smith end interface 3836083efbSBarry Smith#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 3936083efbSBarry Smith!DEC$ ATTRIBUTES DLLEXPORT::PCASMRestoreSubKSP 4036083efbSBarry Smith#endif 4136083efbSBarry Smith 4236083efbSBarry Smith interface 4336083efbSBarry Smith subroutine PCGASMRestoreSubKSP(a, b, c, d, z) 4436083efbSBarry Smith use, intrinsic :: ISO_C_binding 4536083efbSBarry Smith import tPC, tKSP 4636083efbSBarry Smith PC :: a 4736083efbSBarry Smith PetscInt :: b 4836083efbSBarry Smith PetscInt :: c 4936083efbSBarry Smith KSP, pointer :: d(:) 5036083efbSBarry Smith PetscErrorCode z 5136083efbSBarry Smith end subroutine 5236083efbSBarry Smith end interface 5336083efbSBarry Smith#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 5436083efbSBarry Smith!DEC$ ATTRIBUTES DLLEXPORT::PCGASMRestoreSubKSP 5536083efbSBarry Smith#endif 5636083efbSBarry Smith 57e41f517fSBarry Smith interface 58e41f517fSBarry Smith subroutine PCFieldsplitRestoreSubKSP(a, b, d, z) 59e41f517fSBarry Smith use, intrinsic :: ISO_C_binding 60e41f517fSBarry Smith import tPC, tKSP 61e41f517fSBarry Smith PC :: a 62e41f517fSBarry Smith PetscInt :: b 63e41f517fSBarry Smith KSP, pointer :: d(:) 64e41f517fSBarry Smith PetscErrorCode z 65e41f517fSBarry Smith end subroutine 66e41f517fSBarry Smith end interface 67e41f517fSBarry Smith#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 68e41f517fSBarry Smith!DEC$ ATTRIBUTES DLLEXPORT::PCFieldSplitRestoreSubKSP 69e41f517fSBarry Smith#endif 70e41f517fSBarry Smith 71e41f517fSBarry Smith interface 72e41f517fSBarry Smith subroutine PCFieldSplitSchurRestoreSubKSP(a, b, d, z) 73e41f517fSBarry Smith use, intrinsic :: ISO_C_binding 74e41f517fSBarry Smith import tPC, tKSP 75e41f517fSBarry Smith PC :: a 76e41f517fSBarry Smith PetscInt :: b 77e41f517fSBarry Smith KSP, pointer :: d(:) 78e41f517fSBarry Smith PetscErrorCode z 79e41f517fSBarry Smith end subroutine 80e41f517fSBarry Smith end interface 81e41f517fSBarry Smith#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 82e41f517fSBarry Smith!DEC$ ATTRIBUTES DLLEXPORT::PCFieldSplitSchurRestoreSubKSP 83e41f517fSBarry Smith#endif 84