Actual source code: gslesf.c
1: /* gsles.c */
2: /* Fortran interface file */
4: /*
5: * This file was generated automatically by bfort from the C source
6: * file.
7: */
9: #ifdef PETSC_USE_POINTER_CONVERSION
10: #if defined(__cplusplus)
11: extern "C" {
12: #endif
13: extern void *PetscToPointer(void *);
14: extern int PetscFromPointer(void *);
15: extern void PetscRmPointer(void *);
16: #if defined(__cplusplus)
17: }
18: #endif
20: #else
22: #define PetscToPointer(a) (*(long *)(a))
23: #define PetscFromPointer(a) (long)(a)
24: #define PetscRmPointer(a)
25: #endif
27: #include "petscfix.h"
28: #include petscsles.h
29: #include "petscfix.h"
30: #include gsolver.h
31: #ifdef MPI_BUILD_PROFILING
32: #ifdef PETSC_HAVE_FORTRAN_CAPS
33: #define gvecsolutionkspmonitor_ PGVECSOLUTIONKSPMONITOR
34: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
35: #define gvecsolutionkspmonitor_ pgvecsolutionkspmonitor
36: #else
37: #define gvecsolutionkspmonitor_ pgvecsolutionkspmonitor_
38: #endif
39: #else
40: #ifdef PETSC_HAVE_FORTRAN_CAPS
41: #define gvecsolutionkspmonitor_ GVECSOLUTIONKSPMONITOR
42: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
43: #define gvecsolutionkspmonitor_ gvecsolutionkspmonitor
44: #endif
45: #endif
47: #ifdef MPI_BUILD_PROFILING
48: #ifdef PETSC_HAVE_FORTRAN_CAPS
49: #define gvecresidualkspmonitor_ PGVECRESIDUALKSPMONITOR
50: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
51: #define gvecresidualkspmonitor_ pgvecresidualkspmonitor
52: #else
53: #define gvecresidualkspmonitor_ pgvecresidualkspmonitor_
54: #endif
55: #else
56: #ifdef PETSC_HAVE_FORTRAN_CAPS
57: #define gvecresidualkspmonitor_ GVECRESIDUALKSPMONITOR
58: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
59: #define gvecresidualkspmonitor_ gvecresidualkspmonitor
60: #endif
61: #endif
63: #ifdef MPI_BUILD_PROFILING
64: #ifdef PETSC_HAVE_FORTRAN_CAPS
65: #define gvecrhskspmonitor_ PGVECRHSKSPMONITOR
66: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
67: #define gvecrhskspmonitor_ pgvecrhskspmonitor
68: #else
69: #define gvecrhskspmonitor_ pgvecrhskspmonitor_
70: #endif
71: #else
72: #ifdef PETSC_HAVE_FORTRAN_CAPS
73: #define gvecrhskspmonitor_ GVECRHSKSPMONITOR
74: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
75: #define gvecrhskspmonitor_ gvecrhskspmonitor
76: #endif
77: #endif
79: #ifdef MPI_BUILD_PROFILING
80: #ifdef PETSC_HAVE_FORTRAN_CAPS
81: #define gvecerrorkspmonitor_ PGVECERRORKSPMONITOR
82: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
83: #define gvecerrorkspmonitor_ pgvecerrorkspmonitor
84: #else
85: #define gvecerrorkspmonitor_ pgvecerrorkspmonitor_
86: #endif
87: #else
88: #ifdef PETSC_HAVE_FORTRAN_CAPS
89: #define gvecerrorkspmonitor_ GVECERRORKSPMONITOR
90: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
91: #define gvecerrorkspmonitor_ gvecerrorkspmonitor
92: #endif
93: #endif
95: #ifdef MPI_BUILD_PROFILING
96: #ifdef PETSC_HAVE_FORTRAN_CAPS
97: #define gmatcreateuzawa_ PGMATCREATEUZAWA
98: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
99: #define gmatcreateuzawa_ pgmatcreateuzawa
100: #else
101: #define gmatcreateuzawa_ pgmatcreateuzawa_
102: #endif
103: #else
104: #ifdef PETSC_HAVE_FORTRAN_CAPS
105: #define gmatcreateuzawa_ GMATCREATEUZAWA
106: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
107: #define gmatcreateuzawa_ gmatcreateuzawa
108: #endif
109: #endif
111: #ifdef MPI_BUILD_PROFILING
112: #ifdef PETSC_HAVE_FORTRAN_CAPS
113: #define gmatmatmultuzawa_ PGMATMATMULTUZAWA
114: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
115: #define gmatmatmultuzawa_ pgmatmatmultuzawa
116: #else
117: #define gmatmatmultuzawa_ pgmatmatmultuzawa_
118: #endif
119: #else
120: #ifdef PETSC_HAVE_FORTRAN_CAPS
121: #define gmatmatmultuzawa_ GMATMATMULTUZAWA
122: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
123: #define gmatmatmultuzawa_ gmatmatmultuzawa
124: #endif
125: #endif
127: #ifdef MPI_BUILD_PROFILING
128: #ifdef PETSC_HAVE_FORTRAN_CAPS
129: #define gmatdestroyuzawa_ PGMATDESTROYUZAWA
130: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
131: #define gmatdestroyuzawa_ pgmatdestroyuzawa
132: #else
133: #define gmatdestroyuzawa_ pgmatdestroyuzawa_
134: #endif
135: #else
136: #ifdef PETSC_HAVE_FORTRAN_CAPS
137: #define gmatdestroyuzawa_ GMATDESTROYUZAWA
138: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
139: #define gmatdestroyuzawa_ gmatdestroyuzawa
140: #endif
141: #endif
145: /* Definitions of Fortran Wrapper routines */
146: #if defined(__cplusplus)
147: extern "C" {
148: #endif
149: void PETSC_STDCALL gvecsolutionkspmonitor_(KSP ksp,int *it,PetscReal *rnorm,void*ctx, int *ierr ){
150: *GVecSolutionKSPMonitor(
151: (KSP)PetscToPointer( (ksp) ),*it,*rnorm,ctx);
152: }
153: void PETSC_STDCALL gvecresidualkspmonitor_(KSP ksp,int *it,PetscReal *rnorm,void*ctx, int *ierr ){
154: *GVecResidualKSPMonitor(
155: (KSP)PetscToPointer( (ksp) ),*it,*rnorm,ctx);
156: }
157: void PETSC_STDCALL gvecrhskspmonitor_(KSP ksp,int *it,PetscReal *rnorm,void*ctx, int *ierr ){
158: *GVecRhsKSPMonitor(
159: (KSP)PetscToPointer( (ksp) ),*it,*rnorm,ctx);
160: }
161: void PETSC_STDCALL gvecerrorkspmonitor_(KSP ksp,int *it,PetscReal *rnorm,void*errorCtx, int *ierr ){
162: *GVecErrorKSPMonitor(
163: (KSP)PetscToPointer( (ksp) ),*it,*rnorm,errorCtx);
164: }
165: void PETSC_STDCALL gmatcreateuzawa_(GMat A,GMat B,SLES sles,GMat *gmat, int *ierr ){
166: *GMatCreateUzawa(
167: (GMat)PetscToPointer( (A) ),
168: (GMat)PetscToPointer( (B) ),
169: (SLES)PetscToPointer( (sles) ),gmat);
170: }
171: void PETSC_STDCALL gmatmatmultuzawa_(GMat mat,GVec x,GVec y, int *ierr ){
172: *GMatMatMultUzawa(
173: (GMat)PetscToPointer( (mat) ),
174: (GVec)PetscToPointer( (x) ),
175: (GVec)PetscToPointer( (y) ));
176: }
177: void PETSC_STDCALL gmatdestroyuzawa_(GMat gmat, int *ierr ){
178: *GMatDestroyUzawa(
179: (GMat)PetscToPointer( (gmat) ));
180: }
181: #if defined(__cplusplus)
182: }
183: #endif