Actual source code: meshCSRf.c
1: /* meshCSR.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 mesh.h
29: #ifdef MPI_BUILD_PROFILING
30: #ifdef PETSC_HAVE_FORTRAN_CAPS
31: #define meshcreatelocalcsr_ PMESHCREATELOCALCSR
32: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
33: #define meshcreatelocalcsr_ pmeshcreatelocalcsr
34: #else
35: #define meshcreatelocalcsr_ pmeshcreatelocalcsr_
36: #endif
37: #else
38: #ifdef PETSC_HAVE_FORTRAN_CAPS
39: #define meshcreatelocalcsr_ MESHCREATELOCALCSR
40: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
41: #define meshcreatelocalcsr_ meshcreatelocalcsr
42: #endif
43: #endif
45: #ifdef MPI_BUILD_PROFILING
46: #ifdef PETSC_HAVE_FORTRAN_CAPS
47: #define meshdestroylocalcsr_ PMESHDESTROYLOCALCSR
48: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
49: #define meshdestroylocalcsr_ pmeshdestroylocalcsr
50: #else
51: #define meshdestroylocalcsr_ pmeshdestroylocalcsr_
52: #endif
53: #else
54: #ifdef PETSC_HAVE_FORTRAN_CAPS
55: #define meshdestroylocalcsr_ MESHDESTROYLOCALCSR
56: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
57: #define meshdestroylocalcsr_ meshdestroylocalcsr
58: #endif
59: #endif
61: #ifdef MPI_BUILD_PROFILING
62: #ifdef PETSC_HAVE_FORTRAN_CAPS
63: #define meshcreatefullcsr_ PMESHCREATEFULLCSR
64: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
65: #define meshcreatefullcsr_ pmeshcreatefullcsr
66: #else
67: #define meshcreatefullcsr_ pmeshcreatefullcsr_
68: #endif
69: #else
70: #ifdef PETSC_HAVE_FORTRAN_CAPS
71: #define meshcreatefullcsr_ MESHCREATEFULLCSR
72: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
73: #define meshcreatefullcsr_ meshcreatefullcsr
74: #endif
75: #endif
77: #ifdef MPI_BUILD_PROFILING
78: #ifdef PETSC_HAVE_FORTRAN_CAPS
79: #define meshdestroyfullcsr_ PMESHDESTROYFULLCSR
80: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
81: #define meshdestroyfullcsr_ pmeshdestroyfullcsr
82: #else
83: #define meshdestroyfullcsr_ pmeshdestroyfullcsr_
84: #endif
85: #else
86: #ifdef PETSC_HAVE_FORTRAN_CAPS
87: #define meshdestroyfullcsr_ MESHDESTROYFULLCSR
88: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
89: #define meshdestroyfullcsr_ meshdestroyfullcsr
90: #endif
91: #endif
93: #ifdef MPI_BUILD_PROFILING
94: #ifdef PETSC_HAVE_FORTRAN_CAPS
95: #define meshcreatedualcsr_ PMESHCREATEDUALCSR
96: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
97: #define meshcreatedualcsr_ pmeshcreatedualcsr
98: #else
99: #define meshcreatedualcsr_ pmeshcreatedualcsr_
100: #endif
101: #else
102: #ifdef PETSC_HAVE_FORTRAN_CAPS
103: #define meshcreatedualcsr_ MESHCREATEDUALCSR
104: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
105: #define meshcreatedualcsr_ meshcreatedualcsr
106: #endif
107: #endif
109: #ifdef MPI_BUILD_PROFILING
110: #ifdef PETSC_HAVE_FORTRAN_CAPS
111: #define meshdestroydualcsr_ PMESHDESTROYDUALCSR
112: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
113: #define meshdestroydualcsr_ pmeshdestroydualcsr
114: #else
115: #define meshdestroydualcsr_ pmeshdestroydualcsr_
116: #endif
117: #else
118: #ifdef PETSC_HAVE_FORTRAN_CAPS
119: #define meshdestroydualcsr_ MESHDESTROYDUALCSR
120: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
121: #define meshdestroydualcsr_ meshdestroydualcsr
122: #endif
123: #endif
127: /* Definitions of Fortran Wrapper routines */
128: #if defined(__cplusplus)
129: extern "C" {
130: #endif
131: void PETSC_STDCALL meshcreatelocalcsr_(Mesh mesh,int *numVertices,int *numEdges,int **vertOffsets,int **vertNeighbors,
132: double **vertCoords,int *numBC,int *bcNodes,PetscTruth *symmetric, int *ierr ){
133: *MeshCreateLocalCSR(
134: (Mesh)PetscToPointer( (mesh) ),numVertices,numEdges,vertOffsets,vertNeighbors,vertCoords,*numBC,bcNodes,*symmetric);
135: }
136: void PETSC_STDCALL meshdestroylocalcsr_(Mesh mesh,int *vertOffsets,int *vertNeighbors,double *vertCoords, int *ierr ){
137: *MeshDestroyLocalCSR(
138: (Mesh)PetscToPointer( (mesh) ),vertOffsets,vertNeighbors,vertCoords);
139: }
140: void PETSC_STDCALL meshcreatefullcsr_(Mesh mesh,PetscTruth *constrain,int *numVertices,int *numEdges,int **vertOffsets,int **vertNeighbors, int *ierr ){
141: *MeshCreateFullCSR(
142: (Mesh)PetscToPointer( (mesh) ),*constrain,numVertices,numEdges,vertOffsets,vertNeighbors);
143: }
144: void PETSC_STDCALL meshdestroyfullcsr_(Mesh mesh,int *vertOffsets,int *vertNeighbors, int *ierr ){
145: *MeshDestroyFullCSR(
146: (Mesh)PetscToPointer( (mesh) ),vertOffsets,vertNeighbors);
147: }
148: void PETSC_STDCALL meshcreatedualcsr_(Mesh mesh,int **elemOffsets,int **elemNeighbors,int **edgeWeights,int *weight, int *ierr ){
149: *MeshCreateDualCSR(
150: (Mesh)PetscToPointer( (mesh) ),elemOffsets,elemNeighbors,edgeWeights,*weight);
151: }
152: void PETSC_STDCALL meshdestroydualcsr_(Mesh mesh,int *elemOffsets,int *elemNeighbors,int *edgeWeights, int *ierr ){
153: *MeshDestroyDualCSR(
154: (Mesh)PetscToPointer( (mesh) ),elemOffsets,elemNeighbors,edgeWeights);
155: }
156: #if defined(__cplusplus)
157: }
158: #endif