1 2 Interface 3 subroutine KSPRestoreConvergenceHistory(ksp, r, na, ierr) 4 use, intrinsic :: ISO_C_binding 5 import tKSP 6 KSP ksp 7 PetscInt na 8 PetscReal, pointer :: r(:) 9 PetscErrorCode, intent(out) :: ierr 10 end subroutine 11 end Interface 12 13 interface 14 subroutine PCBJacobiRestoreSubKSP(a, b, c, d, z) 15 use, intrinsic :: ISO_C_binding 16 import tPC, tKSP 17 PC :: a 18 PetscInt :: b 19 PetscInt :: c 20 KSP, pointer :: d(:) 21 PetscErrorCode z 22 end subroutine 23 end interface 24#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 25!DEC$ ATTRIBUTES DLLEXPORT::PCBJacobiRestoreSubKSP 26#endif 27 28 interface 29 subroutine PCASMRestoreSubKSP(a, b, c, d, z) 30 use, intrinsic :: ISO_C_binding 31 import tPC, tKSP 32 PC :: a 33 PetscInt :: b 34 PetscInt :: c 35 KSP, pointer :: d(:) 36 PetscErrorCode z 37 end subroutine 38 end interface 39#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 40!DEC$ ATTRIBUTES DLLEXPORT::PCASMRestoreSubKSP 41#endif 42 43 interface 44 subroutine PCGASMRestoreSubKSP(a, b, c, d, z) 45 use, intrinsic :: ISO_C_binding 46 import tPC, tKSP 47 PC :: a 48 PetscInt :: b 49 PetscInt :: c 50 KSP, pointer :: d(:) 51 PetscErrorCode z 52 end subroutine 53 end interface 54#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 55!DEC$ ATTRIBUTES DLLEXPORT::PCGASMRestoreSubKSP 56#endif 57 58 interface 59 subroutine PCFieldsplitRestoreSubKSP(a, b, d, z) 60 use, intrinsic :: ISO_C_binding 61 import tPC, tKSP 62 PC :: a 63 PetscInt :: b 64 KSP, pointer :: d(:) 65 PetscErrorCode z 66 end subroutine 67 end interface 68#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 69!DEC$ ATTRIBUTES DLLEXPORT::PCFieldSplitRestoreSubKSP 70#endif 71 72 interface 73 subroutine PCFieldSplitSchurRestoreSubKSP(a, b, d, z) 74 use, intrinsic :: ISO_C_binding 75 import tPC, tKSP 76 PC :: a 77 PetscInt :: b 78 KSP, pointer :: d(:) 79 PetscErrorCode z 80 end subroutine 81 end interface 82#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 83!DEC$ ATTRIBUTES DLLEXPORT::PCFieldSplitSchurRestoreSubKSP 84#endif 85 86