Actual source code: dagtolf.c

  1: /* dagtol.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 "petscda.h"
 28: #ifdef MPI_BUILD_PROFILING
 29: #ifdef PETSC_HAVE_FORTRAN_CAPS
 30: #define daglobaltolocalbegin_ PDAGLOBALTOLOCALBEGIN
 31: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 32: #define daglobaltolocalbegin_ pdaglobaltolocalbegin
 33: #else
 34: #define daglobaltolocalbegin_ pdaglobaltolocalbegin_
 35: #endif
 36: #else
 37: #ifdef PETSC_HAVE_FORTRAN_CAPS
 38: #define daglobaltolocalbegin_ DAGLOBALTOLOCALBEGIN
 39: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 40: #define daglobaltolocalbegin_ daglobaltolocalbegin
 41: #endif
 42: #endif

 44: #ifdef MPI_BUILD_PROFILING
 45: #ifdef PETSC_HAVE_FORTRAN_CAPS
 46: #define daglobaltolocalend_ PDAGLOBALTOLOCALEND
 47: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 48: #define daglobaltolocalend_ pdaglobaltolocalend
 49: #else
 50: #define daglobaltolocalend_ pdaglobaltolocalend_
 51: #endif
 52: #else
 53: #ifdef PETSC_HAVE_FORTRAN_CAPS
 54: #define daglobaltolocalend_ DAGLOBALTOLOCALEND
 55: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 56: #define daglobaltolocalend_ daglobaltolocalend
 57: #endif
 58: #endif

 60: #ifdef MPI_BUILD_PROFILING
 61: #ifdef PETSC_HAVE_FORTRAN_CAPS
 62: #define daglobaltonaturalbegin_ PDAGLOBALTONATURALBEGIN
 63: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 64: #define daglobaltonaturalbegin_ pdaglobaltonaturalbegin
 65: #else
 66: #define daglobaltonaturalbegin_ pdaglobaltonaturalbegin_
 67: #endif
 68: #else
 69: #ifdef PETSC_HAVE_FORTRAN_CAPS
 70: #define daglobaltonaturalbegin_ DAGLOBALTONATURALBEGIN
 71: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 72: #define daglobaltonaturalbegin_ daglobaltonaturalbegin
 73: #endif
 74: #endif

 76: #ifdef MPI_BUILD_PROFILING
 77: #ifdef PETSC_HAVE_FORTRAN_CAPS
 78: #define daglobaltonaturalend_ PDAGLOBALTONATURALEND
 79: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 80: #define daglobaltonaturalend_ pdaglobaltonaturalend
 81: #else
 82: #define daglobaltonaturalend_ pdaglobaltonaturalend_
 83: #endif
 84: #else
 85: #ifdef PETSC_HAVE_FORTRAN_CAPS
 86: #define daglobaltonaturalend_ DAGLOBALTONATURALEND
 87: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 88: #define daglobaltonaturalend_ daglobaltonaturalend
 89: #endif
 90: #endif

 92: #ifdef MPI_BUILD_PROFILING
 93: #ifdef PETSC_HAVE_FORTRAN_CAPS
 94: #define danaturaltoglobalbegin_ PDANATURALTOGLOBALBEGIN
 95: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 96: #define danaturaltoglobalbegin_ pdanaturaltoglobalbegin
 97: #else
 98: #define danaturaltoglobalbegin_ pdanaturaltoglobalbegin_
 99: #endif
100: #else
101: #ifdef PETSC_HAVE_FORTRAN_CAPS
102: #define danaturaltoglobalbegin_ DANATURALTOGLOBALBEGIN
103: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
104: #define danaturaltoglobalbegin_ danaturaltoglobalbegin
105: #endif
106: #endif

108: #ifdef MPI_BUILD_PROFILING
109: #ifdef PETSC_HAVE_FORTRAN_CAPS
110: #define danaturaltoglobalend_ PDANATURALTOGLOBALEND
111: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
112: #define danaturaltoglobalend_ pdanaturaltoglobalend
113: #else
114: #define danaturaltoglobalend_ pdanaturaltoglobalend_
115: #endif
116: #else
117: #ifdef PETSC_HAVE_FORTRAN_CAPS
118: #define danaturaltoglobalend_ DANATURALTOGLOBALEND
119: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
120: #define danaturaltoglobalend_ danaturaltoglobalend
121: #endif
122: #endif



126: /* Definitions of Fortran Wrapper routines */
127: #if defined(__cplusplus)
128: extern "C" {
129: #endif
130: void PETSC_STDCALL daglobaltolocalbegin_(DA da,Vec g,InsertMode *mode,Vec l, int *__ierr ){
131: *__DAGlobalToLocalBegin(
132:         (DA)PetscToPointer( (da) ),
133:         (Vec)PetscToPointer( (g) ),*mode,
134:         (Vec)PetscToPointer( (l) ));
135: }
136: void PETSC_STDCALL daglobaltolocalend_(DA da,Vec g,InsertMode *mode,Vec l, int *__ierr ){
137: *__DAGlobalToLocalEnd(
138:         (DA)PetscToPointer( (da) ),
139:         (Vec)PetscToPointer( (g) ),*mode,
140:         (Vec)PetscToPointer( (l) ));
141: }
142: void PETSC_STDCALL daglobaltonaturalbegin_(DA da,Vec g,InsertMode *mode,Vec l, int *__ierr ){
143: *__DAGlobalToNaturalBegin(
144:         (DA)PetscToPointer( (da) ),
145:         (Vec)PetscToPointer( (g) ),*mode,
146:         (Vec)PetscToPointer( (l) ));
147: }
148: void PETSC_STDCALL daglobaltonaturalend_(DA da,Vec g,InsertMode *mode,Vec l, int *__ierr ){
149: *__DAGlobalToNaturalEnd(
150:         (DA)PetscToPointer( (da) ),
151:         (Vec)PetscToPointer( (g) ),*mode,
152:         (Vec)PetscToPointer( (l) ));
153: }
154: void PETSC_STDCALL danaturaltoglobalbegin_(DA da,Vec g,InsertMode *mode,Vec l, int *__ierr ){
155: *__DANaturalToGlobalBegin(
156:         (DA)PetscToPointer( (da) ),
157:         (Vec)PetscToPointer( (g) ),*mode,
158:         (Vec)PetscToPointer( (l) ));
159: }
160: void PETSC_STDCALL danaturaltoglobalend_(DA da,Vec g,InsertMode *mode,Vec l, int *__ierr ){
161: *__DANaturalToGlobalEnd(
162:         (DA)PetscToPointer( (da) ),
163:         (Vec)PetscToPointer( (g) ),*mode,
164:         (Vec)PetscToPointer( (l) ));
165: }
166: #if defined(__cplusplus)
167: }
168: #endif