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