Actual source code: ziscoloringf.c
1: #include <petsc/private/fortranimpl.h>
2: #include <petscis.h>
3: #include <petscviewer.h>
5: #if defined(PETSC_HAVE_FORTRAN_CAPS)
6: #define iscoloringview_ ISCOLORINGVIEW
7: #define iscoloringviewfromoptions_ ISCOLORINGVIEWFROMOPTIONS
8: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
9: #define iscoloringview_ iscoloringview
10: #define iscoloringviewfromoptions_ iscoloringviewfromoptions
11: #endif
13: PETSC_EXTERN void iscoloringview_(ISColoring *iscoloring, PetscViewer *viewer, PetscErrorCode *ierr)
14: {
15: PetscViewer v;
16: PetscPatchDefaultViewers_Fortran(viewer, v);
17: *ierr = ISColoringView(*iscoloring, v);
18: }
20: PETSC_EXTERN void iscoloringviewfromoptions_(ISColoring *ao, PetscObject obj, char *type, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
21: {
22: char *t;
24: FIXCHAR(type, len, t);
25: CHKFORTRANNULLOBJECT(obj);
26: *ierr = ISColoringViewFromOptions(*ao, obj, t);
27: if (*ierr) return;
28: FREECHAR(type, t);
29: }