1 #include "petscsys.h"
2 #include "petscfix.h"
3 #include "petsc/private/fortranimpl.h"
4 /* dagtol.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 dmdaglobaltonaturalbegin_ DMDAGLOBALTONATURALBEGIN
33 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
34 #define dmdaglobaltonaturalbegin_ dmdaglobaltonaturalbegin
35 #endif
36 #ifdef PETSC_HAVE_FORTRAN_CAPS
37 #define dmdaglobaltonaturalend_ DMDAGLOBALTONATURALEND
38 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
39 #define dmdaglobaltonaturalend_ dmdaglobaltonaturalend
40 #endif
41 #ifdef PETSC_HAVE_FORTRAN_CAPS
42 #define dmdanaturaltoglobalbegin_ DMDANATURALTOGLOBALBEGIN
43 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
44 #define dmdanaturaltoglobalbegin_ dmdanaturaltoglobalbegin
45 #endif
46 #ifdef PETSC_HAVE_FORTRAN_CAPS
47 #define dmdanaturaltoglobalend_ DMDANATURALTOGLOBALEND
48 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
49 #define dmdanaturaltoglobalend_ dmdanaturaltoglobalend
50 #endif
51
52
53 /* Definitions of Fortran Wrapper routines */
54 #if defined(__cplusplus)
55 extern "C" {
56 #endif
dmdaglobaltonaturalbegin_(DM da,Vec g,InsertMode * mode,Vec n,int * __ierr)57 PETSC_EXTERN void dmdaglobaltonaturalbegin_(DM da,Vec g,InsertMode *mode,Vec n, int *__ierr)
58 {
59 *__ierr = DMDAGlobalToNaturalBegin(
60 (DM)PetscToPointer((da) ),
61 (Vec)PetscToPointer((g) ),*mode,
62 (Vec)PetscToPointer((n) ));
63 }
dmdaglobaltonaturalend_(DM da,Vec g,InsertMode * mode,Vec n,int * __ierr)64 PETSC_EXTERN void dmdaglobaltonaturalend_(DM da,Vec g,InsertMode *mode,Vec n, int *__ierr)
65 {
66 *__ierr = DMDAGlobalToNaturalEnd(
67 (DM)PetscToPointer((da) ),
68 (Vec)PetscToPointer((g) ),*mode,
69 (Vec)PetscToPointer((n) ));
70 }
dmdanaturaltoglobalbegin_(DM da,Vec n,InsertMode * mode,Vec g,int * __ierr)71 PETSC_EXTERN void dmdanaturaltoglobalbegin_(DM da,Vec n,InsertMode *mode,Vec g, int *__ierr)
72 {
73 *__ierr = DMDANaturalToGlobalBegin(
74 (DM)PetscToPointer((da) ),
75 (Vec)PetscToPointer((n) ),*mode,
76 (Vec)PetscToPointer((g) ));
77 }
dmdanaturaltoglobalend_(DM da,Vec n,InsertMode * mode,Vec g,int * __ierr)78 PETSC_EXTERN void dmdanaturaltoglobalend_(DM da,Vec n,InsertMode *mode,Vec g, int *__ierr)
79 {
80 *__ierr = DMDANaturalToGlobalEnd(
81 (DM)PetscToPointer((da) ),
82 (Vec)PetscToPointer((n) ),*mode,
83 (Vec)PetscToPointer((g) ));
84 }
85 #if defined(__cplusplus)
86 }
87 #endif
88