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(a, b, c, d, z) 12 use, intrinsic :: ISO_C_binding 13 import tPC, tKSP 14 PC :: a 15 PetscInt :: b 16 PetscInt :: c 17 KSP, pointer :: d(:) 18 PetscErrorCode z 19 end subroutine 20 21 subroutine PCASMRestoreSubKSP(a, b, c, d, z) 22 use, intrinsic :: ISO_C_binding 23 import tPC, tKSP 24 PC :: a 25 PetscInt :: b 26 PetscInt :: c 27 KSP, pointer :: d(:) 28 PetscErrorCode z 29 end subroutine 30 31 subroutine PCGASMRestoreSubKSP(a, b, c, d, z) 32 use, intrinsic :: ISO_C_binding 33 import tPC, tKSP 34 PC :: a 35 PetscInt :: b 36 PetscInt :: c 37 KSP, pointer :: d(:) 38 PetscErrorCode z 39 end subroutine 40 41 subroutine PCFieldsplitRestoreSubKSP(a, b, d, z) 42 use, intrinsic :: ISO_C_binding 43 import tPC, tKSP 44 PC :: a 45 PetscInt :: b 46 KSP, pointer :: d(:) 47 PetscErrorCode z 48 end subroutine 49 50 subroutine PCFieldSplitSchurRestoreSubKSP(a, b, d, z) 51 use, intrinsic :: ISO_C_binding 52 import tPC, tKSP 53 PC :: a 54 PetscInt :: b 55 KSP, pointer :: d(:) 56 PetscErrorCode z 57 end subroutine 58end interface 59 60#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 61!DEC$ ATTRIBUTES DLLEXPORT::KSPRestoreConvergenceHistory 62!DEC$ ATTRIBUTES DLLEXPORT::PCBJacobiRestoreSubKSP 63!DEC$ ATTRIBUTES DLLEXPORT::PCASMRestoreSubKSP 64!DEC$ ATTRIBUTES DLLEXPORT::PCGASMRestoreSubKSP 65!DEC$ ATTRIBUTES DLLEXPORT::PCFieldsplitRestoreSubKSP 66!DEC$ ATTRIBUTES DLLEXPORT::PCFieldSplitSchurRestoreSubKSP 67#endif 68