Actual source code: zptypef.c

  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: }