1: #include <petsc/private/fortranimpl.h>
2: #include <petsctime.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define petsctime_ PETSCTIME
6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
7: #define petsctime_ petsctime
8: #endif
10: PETSC_EXTERN void petsctime_(PetscLogDouble *t, int *__ierr)
11: {
12: *__ierr = PetscTime(t);
13: }