1 #include <private/fortranimpl.h> 2 #include <petscdm.h> 3 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define dmview_ DMVIEW 6 #define dmgetcoloring_ DMGETCOLORING 7 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8 #define dmview_ dmview 9 #define dmgetcoloring_ dmgetcoloring 10 #endif 11 12 EXTERN_C_BEGIN 13 void PETSC_STDCALL dmgetcoloring_(DM *dm,ISColoringType *ctype, CHAR mtype PETSC_MIXED_LEN(len),ISColoring *coloring, int *ierr PETSC_END_LEN(len)) 14 { 15 char *t; 16 17 FIXCHAR(mtype,len,t); 18 *ierr = DMGetColoring(*dm,*ctype,t,coloring); 19 FREECHAR(mtype,t); 20 } 21 EXTERN_C_END 22 23 EXTERN_C_BEGIN 24 void PETSC_STDCALL dmview_(DM *da,PetscViewer *vin,PetscErrorCode *ierr) 25 { 26 PetscViewer v; 27 PetscPatchDefaultViewers_Fortran(vin,v); 28 *ierr = DMView(*da,v); 29 } 30 EXTERN_C_END 31