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 11*0da4d79bSMartin Diehl subroutine PCBJacobiRestoreSubKSP(pc, n_local, first_local, ksp, ierr) 1236083efbSBarry Smith use, intrinsic :: ISO_C_binding 1336083efbSBarry Smith import tPC, tKSP 14*0da4d79bSMartin Diehl PC :: pc 15*0da4d79bSMartin Diehl PetscInt :: n_local, first_local 16*0da4d79bSMartin Diehl KSP, pointer :: ksp(:) 17*0da4d79bSMartin Diehl PetscErrorCode, intent(out) :: ierr 1836083efbSBarry Smith end subroutine 1936083efbSBarry Smith 20*0da4d79bSMartin Diehl subroutine PCASMRestoreSubKSP(pc, n_local, first_local, ksp, ierr) 2136083efbSBarry Smith use, intrinsic :: ISO_C_binding 2236083efbSBarry Smith import tPC, tKSP 23*0da4d79bSMartin Diehl PC :: pc 24*0da4d79bSMartin Diehl PetscInt :: n_local, first_local 25*0da4d79bSMartin Diehl KSP, pointer :: ksp(:) 26*0da4d79bSMartin Diehl PetscErrorCode, intent(out) :: ierr 2736083efbSBarry Smith end subroutine 2836083efbSBarry Smith 29*0da4d79bSMartin Diehl subroutine PCGASMRestoreSubKSP(pc, n_local, first_local, ksp, ierr) 3036083efbSBarry Smith use, intrinsic :: ISO_C_binding 3136083efbSBarry Smith import tPC, tKSP 32*0da4d79bSMartin Diehl PC :: pc 33*0da4d79bSMartin Diehl PetscInt :: n_local, first_local 34*0da4d79bSMartin Diehl KSP, pointer :: ksp(:) 35*0da4d79bSMartin Diehl PetscErrorCode, intent(out) :: ierr 3636083efbSBarry Smith end subroutine 3736083efbSBarry Smith 38*0da4d79bSMartin Diehl subroutine PCFieldsplitRestoreSubKSP(pc, n, subksp, ierr) 39e41f517fSBarry Smith use, intrinsic :: ISO_C_binding 40e41f517fSBarry Smith import tPC, tKSP 41*0da4d79bSMartin Diehl PC :: pc 42*0da4d79bSMartin Diehl PetscInt :: n 43*0da4d79bSMartin Diehl KSP, pointer :: subksp(:) 44*0da4d79bSMartin Diehl PetscErrorCode, intent(out) :: ierr 45e41f517fSBarry Smith end subroutine 46e41f517fSBarry Smith 47*0da4d79bSMartin Diehl subroutine PCFieldSplitSchurRestoreSubKSP(pc, n, subksp, ierr) 48e41f517fSBarry Smith use, intrinsic :: ISO_C_binding 49e41f517fSBarry Smith import tPC, tKSP 50*0da4d79bSMartin Diehl PC :: pc 51*0da4d79bSMartin Diehl PetscInt :: n 52*0da4d79bSMartin Diehl KSP, pointer :: subksp(:) 53*0da4d79bSMartin Diehl PetscErrorCode, intent(out) :: ierr 54e41f517fSBarry Smith end subroutine 55e41f517fSBarry Smithend interface 563d1372b2SMartin Diehl 57e41f517fSBarry Smith#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 583d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::KSPRestoreConvergenceHistory 593d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::PCBJacobiRestoreSubKSP 603d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::PCASMRestoreSubKSP 613d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::PCGASMRestoreSubKSP 623d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::PCFieldsplitRestoreSubKSP 63e41f517fSBarry Smith!DEC$ ATTRIBUTES DLLEXPORT::PCFieldSplitSchurRestoreSubKSP 64e41f517fSBarry Smith#endif 65