1 #include "petscsys.h"
2 #include "petscfix.h"
3 #include "petsc/private/fortranimpl.h"
4 /* dagetarray.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 dmdavecrestorearray_ DMDAVECRESTOREARRAY
33 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
34 #define dmdavecrestorearray_ dmdavecrestorearray
35 #endif
36 #ifdef PETSC_HAVE_FORTRAN_CAPS
37 #define dmdavecrestorearraywrite_ DMDAVECRESTOREARRAYWRITE
38 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
39 #define dmdavecrestorearraywrite_ dmdavecrestorearraywrite
40 #endif
41 #ifdef PETSC_HAVE_FORTRAN_CAPS
42 #define dmdavecrestorearraydof_ DMDAVECRESTOREARRAYDOF
43 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
44 #define dmdavecrestorearraydof_ dmdavecrestorearraydof
45 #endif
46 #ifdef PETSC_HAVE_FORTRAN_CAPS
47 #define dmdavecrestorearrayread_ DMDAVECRESTOREARRAYREAD
48 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
49 #define dmdavecrestorearrayread_ dmdavecrestorearrayread
50 #endif
51 #ifdef PETSC_HAVE_FORTRAN_CAPS
52 #define dmdavecrestorearraydofread_ DMDAVECRESTOREARRAYDOFREAD
53 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
54 #define dmdavecrestorearraydofread_ dmdavecrestorearraydofread
55 #endif
56
57
58 /* Definitions of Fortran Wrapper routines */
59 #if defined(__cplusplus)
60 extern "C" {
61 #endif
dmdavecrestorearray_(DM da,Vec vec,void * array,int * __ierr)62 PETSC_EXTERN void dmdavecrestorearray_(DM da,Vec vec,void*array, int *__ierr)
63 {
64 *__ierr = DMDAVecRestoreArray(
65 (DM)PetscToPointer((da) ),
66 (Vec)PetscToPointer((vec) ),array);
67 }
dmdavecrestorearraywrite_(DM da,Vec vec,void * array,int * __ierr)68 PETSC_EXTERN void dmdavecrestorearraywrite_(DM da,Vec vec,void*array, int *__ierr)
69 {
70 *__ierr = DMDAVecRestoreArrayWrite(
71 (DM)PetscToPointer((da) ),
72 (Vec)PetscToPointer((vec) ),array);
73 }
dmdavecrestorearraydof_(DM da,Vec vec,void * array,int * __ierr)74 PETSC_EXTERN void dmdavecrestorearraydof_(DM da,Vec vec,void*array, int *__ierr)
75 {
76 *__ierr = DMDAVecRestoreArrayDOF(
77 (DM)PetscToPointer((da) ),
78 (Vec)PetscToPointer((vec) ),array);
79 }
dmdavecrestorearrayread_(DM da,Vec vec,void * array,int * __ierr)80 PETSC_EXTERN void dmdavecrestorearrayread_(DM da,Vec vec,void*array, int *__ierr)
81 {
82 *__ierr = DMDAVecRestoreArrayRead(
83 (DM)PetscToPointer((da) ),
84 (Vec)PetscToPointer((vec) ),array);
85 }
dmdavecrestorearraydofread_(DM da,Vec vec,void * array,int * __ierr)86 PETSC_EXTERN void dmdavecrestorearraydofread_(DM da,Vec vec,void*array, int *__ierr)
87 {
88 *__ierr = DMDAVecRestoreArrayDOFRead(
89 (DM)PetscToPointer((da) ),
90 (Vec)PetscToPointer((vec) ),array);
91 }
92 #if defined(__cplusplus)
93 }
94 #endif
95