1 #include "petscsys.h"
2 #include "petscfix.h"
3 #include "petsc/private/fortranimpl.h"
4 /* fdda.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 dmdasetblockfills_ DMDASETBLOCKFILLS
33 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
34 #define dmdasetblockfills_ dmdasetblockfills
35 #endif
36 #ifdef PETSC_HAVE_FORTRAN_CAPS
37 #define dmdasetblockfillssparse_ DMDASETBLOCKFILLSSPARSE
38 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
39 #define dmdasetblockfillssparse_ dmdasetblockfillssparse
40 #endif
41 
42 
43 /* Definitions of Fortran Wrapper routines */
44 #if defined(__cplusplus)
45 extern "C" {
46 #endif
dmdasetblockfills_(DM da,PetscInt * dfill,PetscInt * ofill,int * __ierr)47 PETSC_EXTERN void  dmdasetblockfills_(DM da, PetscInt *dfill, PetscInt *ofill, int *__ierr)
48 {
49 *__ierr = DMDASetBlockFills(
50 	(DM)PetscToPointer((da) ),dfill,ofill);
51 }
dmdasetblockfillssparse_(DM da,PetscInt * dfillsparse,PetscInt * ofillsparse,int * __ierr)52 PETSC_EXTERN void  dmdasetblockfillssparse_(DM da, PetscInt *dfillsparse, PetscInt *ofillsparse, int *__ierr)
53 {
54 *__ierr = DMDASetBlockFillsSparse(
55 	(DM)PetscToPointer((da) ),dfillsparse,ofillsparse);
56 }
57 #if defined(__cplusplus)
58 }
59 #endif
60