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