Actual source code: vscatf.c

  1: /* vscat.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 petscvec.h
 29: #ifdef MPI_BUILD_PROFILING
 30: #ifdef PETSC_HAVE_FORTRAN_CAPS
 31: #define vecscatterpostrecvs_ PVECSCATTERPOSTRECVS
 32: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 33: #define vecscatterpostrecvs_ pvecscatterpostrecvs
 34: #else
 35: #define vecscatterpostrecvs_ pvecscatterpostrecvs_
 36: #endif
 37: #else
 38: #ifdef PETSC_HAVE_FORTRAN_CAPS
 39: #define vecscatterpostrecvs_ VECSCATTERPOSTRECVS
 40: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 41: #define vecscatterpostrecvs_ vecscatterpostrecvs
 42: #endif
 43: #endif

 45: #ifdef MPI_BUILD_PROFILING
 46: #ifdef PETSC_HAVE_FORTRAN_CAPS
 47: #define vecscatterbegin_ PVECSCATTERBEGIN
 48: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 49: #define vecscatterbegin_ pvecscatterbegin
 50: #else
 51: #define vecscatterbegin_ pvecscatterbegin_
 52: #endif
 53: #else
 54: #ifdef PETSC_HAVE_FORTRAN_CAPS
 55: #define vecscatterbegin_ VECSCATTERBEGIN
 56: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 57: #define vecscatterbegin_ vecscatterbegin
 58: #endif
 59: #endif

 61: #ifdef MPI_BUILD_PROFILING
 62: #ifdef PETSC_HAVE_FORTRAN_CAPS
 63: #define vecscatterend_ PVECSCATTEREND
 64: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 65: #define vecscatterend_ pvecscatterend
 66: #else
 67: #define vecscatterend_ pvecscatterend_
 68: #endif
 69: #else
 70: #ifdef PETSC_HAVE_FORTRAN_CAPS
 71: #define vecscatterend_ VECSCATTEREND
 72: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 73: #define vecscatterend_ vecscatterend
 74: #endif
 75: #endif

 77: #ifdef MPI_BUILD_PROFILING
 78: #ifdef PETSC_HAVE_FORTRAN_CAPS
 79: #define vecscatterview_ PVECSCATTERVIEW
 80: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 81: #define vecscatterview_ pvecscatterview
 82: #else
 83: #define vecscatterview_ pvecscatterview_
 84: #endif
 85: #else
 86: #ifdef PETSC_HAVE_FORTRAN_CAPS
 87: #define vecscatterview_ VECSCATTERVIEW
 88: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 89: #define vecscatterview_ vecscatterview
 90: #endif
 91: #endif

 93: #ifdef MPI_BUILD_PROFILING
 94: #ifdef PETSC_HAVE_FORTRAN_CAPS
 95: #define vecscatterremap_ PVECSCATTERREMAP
 96: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 97: #define vecscatterremap_ pvecscatterremap
 98: #else
 99: #define vecscatterremap_ pvecscatterremap_
100: #endif
101: #else
102: #ifdef PETSC_HAVE_FORTRAN_CAPS
103: #define vecscatterremap_ VECSCATTERREMAP
104: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
105: #define vecscatterremap_ vecscatterremap
106: #endif
107: #endif



111: /* Definitions of Fortran Wrapper routines */
112: #if defined(__cplusplus)
113: extern "C" {
114: #endif
115: void PETSC_STDCALL vecscatterpostrecvs_(Vec x,Vec y,InsertMode *addv,ScatterMode *mode,VecScatter inctx, int *ierr ){
116: *VecScatterPostRecvs(
117:         (Vec)PetscToPointer( (x) ),
118:         (Vec)PetscToPointer( (y) ),*addv,*mode,
119:         (VecScatter)PetscToPointer( (inctx) ));
120: }
121: void PETSC_STDCALL vecscatterbegin_(Vec x,Vec y,InsertMode *addv,ScatterMode *mode,VecScatter inctx, int *ierr ){
122: *VecScatterBegin(
123:         (Vec)PetscToPointer( (x) ),
124:         (Vec)PetscToPointer( (y) ),*addv,*mode,
125:         (VecScatter)PetscToPointer( (inctx) ));
126: }
127: void PETSC_STDCALL vecscatterend_(Vec x,Vec y,InsertMode *addv,ScatterMode *mode,VecScatter ctx, int *ierr ){
128: *VecScatterEnd(
129:         (Vec)PetscToPointer( (x) ),
130:         (Vec)PetscToPointer( (y) ),*addv,*mode,
131:         (VecScatter)PetscToPointer( (ctx) ));
132: }
133: void PETSC_STDCALL vecscatterview_(VecScatter ctx,PetscViewer *viewer, int *ierr ){
134: *VecScatterView(
135:         (VecScatter)PetscToPointer( (ctx) ),*viewer);
136: }
137: void PETSC_STDCALL vecscatterremap_(VecScatter scat,int *rto,int *rfrom, int *ierr ){
138: *VecScatterRemap(
139:         (VecScatter)PetscToPointer( (scat) ),rto,rfrom);
140: }
141: #if defined(__cplusplus)
142: }
143: #endif