1: #include <petsc/private/fortranimpl.h>
3: #if defined(PETSC_HAVE_FORTRAN_CAPS)
4: #define petscdatatypegetsize_ PETSCDATATYPEGETSIZE
5: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
6: #define petscdatatypegetsize_ petscdatatypegetsize
7: #endif
9: PETSC_EXTERN void petscdatatypegetsize_(PetscDataType *ptype, size_t *size, PetscErrorCode *ierr)
10: {
11: *ierr = PetscDataTypeGetSize(*ptype, size);
12: }