xref: /petsc/src/ksp/ftn-mod/petscksp.h90 (revision 7e1a0bbe36d2be40a00a95404ece00db4857f70d) 
1     interface
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     end interface
11
12     interface
13       subroutine PCBJacobiRestoreSubKSP(a, b, c, d, z)
14         use, intrinsic :: ISO_C_binding
15         import tPC, tKSP
16         PC :: a
17         PetscInt :: b
18         PetscInt :: c
19         KSP, pointer :: d(:)
20         PetscErrorCode z
21       end subroutine
22     end interface
23#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
24!DEC$ ATTRIBUTES DLLEXPORT::PCBJacobiRestoreSubKSP
25#endif
26
27     interface
28       subroutine PCASMRestoreSubKSP(a, b, c, d, z)
29         use, intrinsic :: ISO_C_binding
30         import tPC, tKSP
31         PC :: a
32         PetscInt :: b
33         PetscInt :: c
34         KSP, pointer :: d(:)
35         PetscErrorCode z
36       end subroutine
37     end interface
38#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
39!DEC$ ATTRIBUTES DLLEXPORT::PCASMRestoreSubKSP
40#endif
41
42     interface
43       subroutine PCGASMRestoreSubKSP(a, b, c, d, z)
44         use, intrinsic :: ISO_C_binding
45         import tPC, tKSP
46         PC :: a
47         PetscInt :: b
48         PetscInt :: c
49         KSP, pointer :: d(:)
50         PetscErrorCode z
51       end subroutine
52     end interface
53#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
54!DEC$ ATTRIBUTES DLLEXPORT::PCGASMRestoreSubKSP
55#endif
56
57     interface
58       subroutine PCFieldsplitRestoreSubKSP(a, b, d, z)
59         use, intrinsic :: ISO_C_binding
60         import tPC, tKSP
61         PC :: a
62         PetscInt :: b
63         KSP, pointer :: d(:)
64         PetscErrorCode z
65       end subroutine
66     end interface
67#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
68!DEC$ ATTRIBUTES DLLEXPORT::PCFieldSplitRestoreSubKSP
69#endif
70
71     interface
72       subroutine PCFieldSplitSchurRestoreSubKSP(a, b, d, z)
73         use, intrinsic :: ISO_C_binding
74         import tPC, tKSP
75         PC :: a
76         PetscInt :: b
77         KSP, pointer :: d(:)
78         PetscErrorCode z
79       end subroutine
80     end interface
81#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
82!DEC$ ATTRIBUTES DLLEXPORT::PCFieldSplitSchurRestoreSubKSP
83#endif
84