102c639afSMartin Diehlinterface 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 106dd63270SBarry Smith 1136083efbSBarry Smith subroutine PCBJacobiRestoreSubKSP(a, b, c, d, z) 1236083efbSBarry Smith use, intrinsic :: ISO_C_binding 1336083efbSBarry Smith import tPC, tKSP 1436083efbSBarry Smith PC :: a 1536083efbSBarry Smith PetscInt :: b 1636083efbSBarry Smith PetscInt :: c 1736083efbSBarry Smith KSP, pointer :: d(:) 1836083efbSBarry Smith PetscErrorCode z 1936083efbSBarry Smith end subroutine 2036083efbSBarry Smith 2136083efbSBarry Smith subroutine PCASMRestoreSubKSP(a, b, c, d, z) 2236083efbSBarry Smith use, intrinsic :: ISO_C_binding 2336083efbSBarry Smith import tPC, tKSP 2436083efbSBarry Smith PC :: a 2536083efbSBarry Smith PetscInt :: b 2636083efbSBarry Smith PetscInt :: c 2736083efbSBarry Smith KSP, pointer :: d(:) 2836083efbSBarry Smith PetscErrorCode z 2936083efbSBarry Smith end subroutine 3036083efbSBarry Smith 3136083efbSBarry Smith subroutine PCGASMRestoreSubKSP(a, b, c, d, z) 3236083efbSBarry Smith use, intrinsic :: ISO_C_binding 3336083efbSBarry Smith import tPC, tKSP 3436083efbSBarry Smith PC :: a 3536083efbSBarry Smith PetscInt :: b 3636083efbSBarry Smith PetscInt :: c 3736083efbSBarry Smith KSP, pointer :: d(:) 3836083efbSBarry Smith PetscErrorCode z 3936083efbSBarry Smith end subroutine 4036083efbSBarry Smith 41e41f517fSBarry Smith subroutine PCFieldsplitRestoreSubKSP(a, b, d, z) 42e41f517fSBarry Smith use, intrinsic :: ISO_C_binding 43e41f517fSBarry Smith import tPC, tKSP 44e41f517fSBarry Smith PC :: a 45e41f517fSBarry Smith PetscInt :: b 46e41f517fSBarry Smith KSP, pointer :: d(:) 47e41f517fSBarry Smith PetscErrorCode z 48e41f517fSBarry Smith end subroutine 49e41f517fSBarry Smith 50e41f517fSBarry Smith subroutine PCFieldSplitSchurRestoreSubKSP(a, b, d, z) 51e41f517fSBarry Smith use, intrinsic :: ISO_C_binding 52e41f517fSBarry Smith import tPC, tKSP 53e41f517fSBarry Smith PC :: a 54e41f517fSBarry Smith PetscInt :: b 55e41f517fSBarry Smith KSP, pointer :: d(:) 56e41f517fSBarry Smith PetscErrorCode z 57e41f517fSBarry Smith end subroutine 58e41f517fSBarry Smithend interface 59*3d1372b2SMartin Diehl 60e41f517fSBarry Smith#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 61*3d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::KSPRestoreConvergenceHistory 62*3d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::PCBJacobiRestoreSubKSP 63*3d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::PCASMRestoreSubKSP 64*3d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::PCGASMRestoreSubKSP 65*3d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::PCFieldsplitRestoreSubKSP 66e41f517fSBarry Smith!DEC$ ATTRIBUTES DLLEXPORT::PCFieldSplitSchurRestoreSubKSP 67e41f517fSBarry Smith#endif 68