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