1c6db04a5SJed Brown #include <private/fortranimpl.h> 2c6db04a5SJed Brown #include <petscdm.h> 39a42bb27SBarry Smith 49a42bb27SBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS) 524e7ded0SBarry Smith #define dmview_ DMVIEW 6*d1e2c406SBarry Smith #define dmgetcoloring_ DMGETCOLORING 79a42bb27SBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 824e7ded0SBarry Smith #define dmview_ dmview 9*d1e2c406SBarry Smith #define dmgetcoloring_ dmgetcoloring 109a42bb27SBarry Smith #endif 119a42bb27SBarry Smith 129a42bb27SBarry Smith EXTERN_C_BEGIN 13*d1e2c406SBarry Smith void PETSC_STDCALL dmgetcoloring_(DM *dm,ISColoringType *ctype, CHAR mtype PETSC_MIXED_LEN(len),ISColoring *coloring, int *ierr PETSC_END_LEN(len)) 14*d1e2c406SBarry Smith { 15*d1e2c406SBarry Smith char *t; 16*d1e2c406SBarry Smith 17*d1e2c406SBarry Smith FIXCHAR(mtype,len,t); 18*d1e2c406SBarry Smith *ierr = DMGetColoring(*dm,*ctype,t,coloring); 19*d1e2c406SBarry Smith FREECHAR(mtype,t); 20*d1e2c406SBarry Smith } 21*d1e2c406SBarry Smith EXTERN_C_END 22*d1e2c406SBarry Smith 23*d1e2c406SBarry Smith EXTERN_C_BEGIN 2424e7ded0SBarry Smith void PETSC_STDCALL dmview_(DM *da,PetscViewer *vin,PetscErrorCode *ierr) 259a42bb27SBarry Smith { 269a42bb27SBarry Smith PetscViewer v; 279a42bb27SBarry Smith PetscPatchDefaultViewers_Fortran(vin,v); 289a42bb27SBarry Smith *ierr = DMView(*da,v); 299a42bb27SBarry Smith } 30564755cdSBarry Smith EXTERN_C_END 31