Date: 2025-03-28T21:11:13+00:00

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