1 #include "petscsys.h"
2 #include "petscfix.h"
3 #include "petsc/private/fortranimpl.h"
4 /* dagetelem.c */
5 /* Fortran interface file */
6
7 /*
8 * This file was generated automatically by bfort from the C source
9 * file.
10 */
11
12 #ifdef PETSC_USE_POINTER_CONVERSION
13 #if defined(__cplusplus)
14 extern "C" {
15 #endif
16 extern void *PetscToPointer(void*);
17 extern int PetscFromPointer(void *);
18 extern void PetscRmPointer(void*);
19 #if defined(__cplusplus)
20 }
21 #endif
22
23 #else
24
25 #define PetscToPointer(a) (*(PetscFortranAddr *)(a))
26 #define PetscFromPointer(a) (PetscFortranAddr)(a)
27 #define PetscRmPointer(a)
28 #endif
29
30 #include "petscdmda.h"
31 #ifdef PETSC_HAVE_FORTRAN_CAPS
32 #define dmdagetelementscorners_ DMDAGETELEMENTSCORNERS
33 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
34 #define dmdagetelementscorners_ dmdagetelementscorners
35 #endif
36 #ifdef PETSC_HAVE_FORTRAN_CAPS
37 #define dmdagetelementssizes_ DMDAGETELEMENTSSIZES
38 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
39 #define dmdagetelementssizes_ dmdagetelementssizes
40 #endif
41 #ifdef PETSC_HAVE_FORTRAN_CAPS
42 #define dmdasetelementtype_ DMDASETELEMENTTYPE
43 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
44 #define dmdasetelementtype_ dmdasetelementtype
45 #endif
46 #ifdef PETSC_HAVE_FORTRAN_CAPS
47 #define dmdagetelementtype_ DMDAGETELEMENTTYPE
48 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
49 #define dmdagetelementtype_ dmdagetelementtype
50 #endif
51 #ifdef PETSC_HAVE_FORTRAN_CAPS
52 #define dmdagetsubdomaincornersis_ DMDAGETSUBDOMAINCORNERSIS
53 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
54 #define dmdagetsubdomaincornersis_ dmdagetsubdomaincornersis
55 #endif
56 #ifdef PETSC_HAVE_FORTRAN_CAPS
57 #define dmdarestoresubdomaincornersis_ DMDARESTORESUBDOMAINCORNERSIS
58 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
59 #define dmdarestoresubdomaincornersis_ dmdarestoresubdomaincornersis
60 #endif
61
62
63 /* Definitions of Fortran Wrapper routines */
64 #if defined(__cplusplus)
65 extern "C" {
66 #endif
dmdagetelementscorners_(DM da,PetscInt * gx,PetscInt * gy,PetscInt * gz,int * __ierr)67 PETSC_EXTERN void dmdagetelementscorners_(DM da,PetscInt *gx,PetscInt *gy,PetscInt *gz, int *__ierr)
68 {
69 *__ierr = DMDAGetElementsCorners(
70 (DM)PetscToPointer((da) ),gx,gy,gz);
71 }
dmdagetelementssizes_(DM da,PetscInt * mx,PetscInt * my,PetscInt * mz,int * __ierr)72 PETSC_EXTERN void dmdagetelementssizes_(DM da,PetscInt *mx,PetscInt *my,PetscInt *mz, int *__ierr)
73 {
74 *__ierr = DMDAGetElementsSizes(
75 (DM)PetscToPointer((da) ),mx,my,mz);
76 }
dmdasetelementtype_(DM da,DMDAElementType * etype,int * __ierr)77 PETSC_EXTERN void dmdasetelementtype_(DM da,DMDAElementType *etype, int *__ierr)
78 {
79 *__ierr = DMDASetElementType(
80 (DM)PetscToPointer((da) ),*etype);
81 }
dmdagetelementtype_(DM da,DMDAElementType * etype,int * __ierr)82 PETSC_EXTERN void dmdagetelementtype_(DM da,DMDAElementType *etype, int *__ierr)
83 {
84 *__ierr = DMDAGetElementType(
85 (DM)PetscToPointer((da) ),etype);
86 }
dmdagetsubdomaincornersis_(DM dm,IS * is,int * __ierr)87 PETSC_EXTERN void dmdagetsubdomaincornersis_(DM dm,IS *is, int *__ierr)
88 {
89 *__ierr = DMDAGetSubdomainCornersIS(
90 (DM)PetscToPointer((dm) ),is);
91 }
dmdarestoresubdomaincornersis_(DM dm,IS * is,int * __ierr)92 PETSC_EXTERN void dmdarestoresubdomaincornersis_(DM dm,IS *is, int *__ierr)
93 {
94 *__ierr = DMDARestoreSubdomainCornersIS(
95 (DM)PetscToPointer((dm) ),is);
96 }
97 #if defined(__cplusplus)
98 }
99 #endif
100