Actual source code: gridBCf.c

  1: /* gridBC.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 grid.h
 29: #include "petscfix.h"
 30:  #include gvec.h
 31: #ifdef MPI_BUILD_PROFILING
 32: #ifdef PETSC_HAVE_FORTRAN_CAPS
 33: #define gridduplicatebc_ PGRIDDUPLICATEBC
 34: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 35: #define gridduplicatebc_ pgridduplicatebc
 36: #else
 37: #define gridduplicatebc_ pgridduplicatebc_
 38: #endif
 39: #else
 40: #ifdef PETSC_HAVE_FORTRAN_CAPS
 41: #define gridduplicatebc_ GRIDDUPLICATEBC
 42: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 43: #define gridduplicatebc_ gridduplicatebc
 44: #endif
 45: #endif

 47: #ifdef MPI_BUILD_PROFILING
 48: #ifdef PETSC_HAVE_FORTRAN_CAPS
 49: #define gridfinalizebc_ PGRIDFINALIZEBC
 50: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 51: #define gridfinalizebc_ pgridfinalizebc
 52: #else
 53: #define gridfinalizebc_ pgridfinalizebc_
 54: #endif
 55: #else
 56: #ifdef PETSC_HAVE_FORTRAN_CAPS
 57: #define gridfinalizebc_ GRIDFINALIZEBC
 58: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 59: #define gridfinalizebc_ gridfinalizebc
 60: #endif
 61: #endif

 63: #ifdef MPI_BUILD_PROFILING
 64: #ifdef PETSC_HAVE_FORTRAN_CAPS
 65: #define gridsetbcmultiplier_ PGRIDSETBCMULTIPLIER
 66: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 67: #define gridsetbcmultiplier_ pgridsetbcmultiplier
 68: #else
 69: #define gridsetbcmultiplier_ pgridsetbcmultiplier_
 70: #endif
 71: #else
 72: #ifdef PETSC_HAVE_FORTRAN_CAPS
 73: #define gridsetbcmultiplier_ GRIDSETBCMULTIPLIER
 74: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 75: #define gridsetbcmultiplier_ gridsetbcmultiplier
 76: #endif
 77: #endif

 79: #ifdef MPI_BUILD_PROFILING
 80: #ifdef PETSC_HAVE_FORTRAN_CAPS
 81: #define gridgetbcmultiplier_ PGRIDGETBCMULTIPLIER
 82: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 83: #define gridgetbcmultiplier_ pgridgetbcmultiplier
 84: #else
 85: #define gridgetbcmultiplier_ pgridgetbcmultiplier_
 86: #endif
 87: #else
 88: #ifdef PETSC_HAVE_FORTRAN_CAPS
 89: #define gridgetbcmultiplier_ GRIDGETBCMULTIPLIER
 90: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 91: #define gridgetbcmultiplier_ gridgetbcmultiplier
 92: #endif
 93: #endif

 95: #ifdef MPI_BUILD_PROFILING
 96: #ifdef PETSC_HAVE_FORTRAN_CAPS
 97: #define gridsetbccontext_ PGRIDSETBCCONTEXT
 98: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 99: #define gridsetbccontext_ pgridsetbccontext
100: #else
101: #define gridsetbccontext_ pgridsetbccontext_
102: #endif
103: #else
104: #ifdef PETSC_HAVE_FORTRAN_CAPS
105: #define gridsetbccontext_ GRIDSETBCCONTEXT
106: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
107: #define gridsetbccontext_ gridsetbccontext
108: #endif
109: #endif

111: #ifdef MPI_BUILD_PROFILING
112: #ifdef PETSC_HAVE_FORTRAN_CAPS
113: #define gridgetbccontext_ PGRIDGETBCCONTEXT
114: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
115: #define gridgetbccontext_ pgridgetbccontext
116: #else
117: #define gridgetbccontext_ pgridgetbccontext_
118: #endif
119: #else
120: #ifdef PETSC_HAVE_FORTRAN_CAPS
121: #define gridgetbccontext_ GRIDGETBCCONTEXT
122: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
123: #define gridgetbccontext_ gridgetbccontext
124: #endif
125: #endif

127: #ifdef MPI_BUILD_PROFILING
128: #ifdef PETSC_HAVE_FORTRAN_CAPS
129: #define gridsetbcvaluestype_ PGRIDSETBCVALUESTYPE
130: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
131: #define gridsetbcvaluestype_ pgridsetbcvaluestype
132: #else
133: #define gridsetbcvaluestype_ pgridsetbcvaluestype_
134: #endif
135: #else
136: #ifdef PETSC_HAVE_FORTRAN_CAPS
137: #define gridsetbcvaluestype_ GRIDSETBCVALUESTYPE
138: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
139: #define gridsetbcvaluestype_ gridsetbcvaluestype
140: #endif
141: #endif

143: #ifdef MPI_BUILD_PROFILING
144: #ifdef PETSC_HAVE_FORTRAN_CAPS
145: #define gridcalcbcvalues_ PGRIDCALCBCVALUES
146: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
147: #define gridcalcbcvalues_ pgridcalcbcvalues
148: #else
149: #define gridcalcbcvalues_ pgridcalcbcvalues_
150: #endif
151: #else
152: #ifdef PETSC_HAVE_FORTRAN_CAPS
153: #define gridcalcbcvalues_ GRIDCALCBCVALUES
154: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
155: #define gridcalcbcvalues_ gridcalcbcvalues
156: #endif
157: #endif

159: #ifdef MPI_BUILD_PROFILING
160: #ifdef PETSC_HAVE_FORTRAN_CAPS
161: #define gridcalcbcvaluesdifference_ PGRIDCALCBCVALUESDIFFERENCE
162: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
163: #define gridcalcbcvaluesdifference_ pgridcalcbcvaluesdifference
164: #else
165: #define gridcalcbcvaluesdifference_ pgridcalcbcvaluesdifference_
166: #endif
167: #else
168: #ifdef PETSC_HAVE_FORTRAN_CAPS
169: #define gridcalcbcvaluesdifference_ GRIDCALCBCVALUESDIFFERENCE
170: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
171: #define gridcalcbcvaluesdifference_ gridcalcbcvaluesdifference
172: #endif
173: #endif



177: /* Definitions of Fortran Wrapper routines */
178: #if defined(__cplusplus)
179: extern "C" {
180: #endif
181: void PETSC_STDCALL gridduplicatebc_(Grid grid,Grid newGrid, int *ierr ){
182: *GridDuplicateBC(
183:         (Grid)PetscToPointer( (grid) ),
184:         (Grid)PetscToPointer( (newGrid) ));
185: }
186: void PETSC_STDCALL gridfinalizebc_(Grid grid, int *ierr ){
187: *GridFinalizeBC(
188:         (Grid)PetscToPointer( (grid) ));
189: }
190: void PETSC_STDCALL gridsetbcmultiplier_(Grid grid,PetscScalar *alpha, int *ierr ){
191: *GridSetBCMultiplier(
192:         (Grid)PetscToPointer( (grid) ),*alpha);
193: }
194: void PETSC_STDCALL gridgetbcmultiplier_(Grid grid,PetscScalar *alpha, int *ierr ){
195: *GridGetBCMultiplier(
196:         (Grid)PetscToPointer( (grid) ),alpha);
197: }
198: void PETSC_STDCALL gridsetbccontext_(Grid grid,void*ctx, int *ierr ){
199: *GridSetBCContext(
200:         (Grid)PetscToPointer( (grid) ),ctx);
201: }
202: void PETSC_STDCALL gridgetbccontext_(Grid grid,void**ctx, int *ierr ){
203: *GridGetBCContext(
204:         (Grid)PetscToPointer( (grid) ),ctx);
205: }
206: void PETSC_STDCALL gridsetbcvaluestype_(Grid grid,BCValuesType *type, int *ierr ){
207: *GridSetBCValuesType(
208:         (Grid)PetscToPointer( (grid) ),*type);
209: }
210: void PETSC_STDCALL gridcalcbcvalues_(Grid grid,PetscTruth *save,void*ctx, int *ierr ){
211: *GridCalcBCValues(
212:         (Grid)PetscToPointer( (grid) ),*save,ctx);
213: }
214: void PETSC_STDCALL gridcalcbcvaluesdifference_(Grid grid, int *ierr ){
215: *GridCalcBCValuesDifference(
216:         (Grid)PetscToPointer( (grid) ));
217: }
218: #if defined(__cplusplus)
219: }
220: #endif