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