1interface 2 subroutine KSPRestoreConvergenceHistory(ksp, r, na, ierr) 3 use, intrinsic :: ISO_C_binding 4 import tKSP 5 KSP ksp 6 PetscInt na 7 PetscReal, pointer :: r(:) 8 PetscErrorCode, intent(out) :: ierr 9 end subroutine 10 11 subroutine PCBJacobiRestoreSubKSP(pc, n_local, first_local, ksp, ierr) 12 use, intrinsic :: ISO_C_binding 13 import tPC, tKSP 14 PC :: pc 15 PetscInt :: n_local, first_local 16 KSP, pointer :: ksp(:) 17 PetscErrorCode, intent(out) :: ierr 18 end subroutine 19 20 subroutine PCASMRestoreSubKSP(pc, n_local, first_local, ksp, ierr) 21 use, intrinsic :: ISO_C_binding 22 import tPC, tKSP 23 PC :: pc 24 PetscInt :: n_local, first_local 25 KSP, pointer :: ksp(:) 26 PetscErrorCode, intent(out) :: ierr 27 end subroutine 28 29 subroutine PCGASMRestoreSubKSP(pc, n_local, first_local, ksp, ierr) 30 use, intrinsic :: ISO_C_binding 31 import tPC, tKSP 32 PC :: pc 33 PetscInt :: n_local, first_local 34 KSP, pointer :: ksp(:) 35 PetscErrorCode, intent(out) :: ierr 36 end subroutine 37 38 subroutine PCFieldsplitRestoreSubKSP(pc, n, subksp, ierr) 39 use, intrinsic :: ISO_C_binding 40 import tPC, tKSP 41 PC :: pc 42 PetscInt :: n 43 KSP, pointer :: subksp(:) 44 PetscErrorCode, intent(out) :: ierr 45 end subroutine 46 47 subroutine PCFieldSplitSchurRestoreSubKSP(pc, n, subksp, ierr) 48 use, intrinsic :: ISO_C_binding 49 import tPC, tKSP 50 PC :: pc 51 PetscInt :: n 52 KSP, pointer :: subksp(:) 53 PetscErrorCode, intent(out) :: ierr 54 end subroutine 55end interface 56 57#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 58!DEC$ ATTRIBUTES DLLEXPORT::KSPRestoreConvergenceHistory 59!DEC$ ATTRIBUTES DLLEXPORT::PCBJacobiRestoreSubKSP 60!DEC$ ATTRIBUTES DLLEXPORT::PCASMRestoreSubKSP 61!DEC$ ATTRIBUTES DLLEXPORT::PCGASMRestoreSubKSP 62!DEC$ ATTRIBUTES DLLEXPORT::PCFieldsplitRestoreSubKSP 63!DEC$ ATTRIBUTES DLLEXPORT::PCFieldSplitSchurRestoreSubKSP 64#endif 65