1 #include "petscsys.h"
2 #include "petscfix.h"
3 #include "petsc/private/fortranimpl.h"
4 /* mpidense.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 "petscmat.h"
31 #ifdef PETSC_HAVE_FORTRAN_CAPS
32 #define matdensegetlocalmatrix_ MATDENSEGETLOCALMATRIX
33 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
34 #define matdensegetlocalmatrix_ matdensegetlocalmatrix
35 #endif
36 #ifdef PETSC_HAVE_FORTRAN_CAPS
37 #define matdenseplacearray_ MATDENSEPLACEARRAY
38 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
39 #define matdenseplacearray_ matdenseplacearray
40 #endif
41 #ifdef PETSC_HAVE_FORTRAN_CAPS
42 #define matdenseresetarray_ MATDENSERESETARRAY
43 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
44 #define matdenseresetarray_ matdenseresetarray
45 #endif
46 #ifdef PETSC_HAVE_FORTRAN_CAPS
47 #define matdensereplacearray_ MATDENSEREPLACEARRAY
48 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
49 #define matdensereplacearray_ matdensereplacearray
50 #endif
51
52
53 /* Definitions of Fortran Wrapper routines */
54 #if defined(__cplusplus)
55 extern "C" {
56 #endif
matdensegetlocalmatrix_(Mat A,Mat * B,int * __ierr)57 PETSC_EXTERN void matdensegetlocalmatrix_(Mat A,Mat *B, int *__ierr)
58 {
59 *__ierr = MatDenseGetLocalMatrix(
60 (Mat)PetscToPointer((A) ),B);
61 }
matdenseplacearray_(Mat mat,PetscScalar * array,int * __ierr)62 PETSC_EXTERN void matdenseplacearray_(Mat mat, PetscScalar *array, int *__ierr)
63 {
64 *__ierr = MatDensePlaceArray(
65 (Mat)PetscToPointer((mat) ),array);
66 }
matdenseresetarray_(Mat mat,int * __ierr)67 PETSC_EXTERN void matdenseresetarray_(Mat mat, int *__ierr)
68 {
69 *__ierr = MatDenseResetArray(
70 (Mat)PetscToPointer((mat) ));
71 }
matdensereplacearray_(Mat mat,PetscScalar * array,int * __ierr)72 PETSC_EXTERN void matdensereplacearray_(Mat mat, PetscScalar *array, int *__ierr)
73 {
74 *__ierr = MatDenseReplaceArray(
75 (Mat)PetscToPointer((mat) ),array);
76 }
77 #if defined(__cplusplus)
78 }
79 #endif
80