1 #include "petscsys.h" 2 #include "petscfix.h" 3 #include "petsc/private/fortranimpl.h" 4 /* petsclog.h */ 5 /* Fortran interface file */ 6 7 /* 8 * This file was generated automatically by bfort from the C source 9 * file. 10 */ 11 12 #ifdef PETSC_USE_POINTER_CONVERSION 13 #if defined(__cplusplus) 14 extern "C" { 15 #endif 16 extern void *PetscToPointer(void*); 17 extern int PetscFromPointer(void *); 18 extern void PetscRmPointer(void*); 19 #if defined(__cplusplus) 20 } 21 #endif 22 23 #else 24 25 #define PetscToPointer(a) (*(PetscFortranAddr *)(a)) 26 #define PetscFromPointer(a) (PetscFortranAddr)(a) 27 #define PetscRmPointer(a) 28 #endif 29 30 #ifdef PETSC_HAVE_FORTRAN_CAPS 31 #define petsclogflops_ PETSCLOGFLOPS 32 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE) 33 #define petsclogflops_ petsclogflops 34 #endif 35 #ifdef PETSC_HAVE_FORTRAN_CAPS 36 #define petscloggpuflops_ PETSCLOGGPUFLOPS 37 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE) 38 #define petscloggpuflops_ petscloggpuflops 39 #endif 40 #ifdef PETSC_HAVE_FORTRAN_CAPS 41 #define petscloggputimebegin_ PETSCLOGGPUTIMEBEGIN 42 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE) 43 #define petscloggputimebegin_ petscloggputimebegin 44 #endif 45 #ifdef PETSC_HAVE_FORTRAN_CAPS 46 #define petscloggputimeend_ PETSCLOGGPUTIMEEND 47 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE) 48 #define petscloggputimeend_ petscloggputimeend 49 #endif 50 51 52 /* Definitions of Fortran Wrapper routines */ 53 #if defined(__cplusplus) 54 extern "C" { 55 #endif 56 petsclogflops_(PetscLogDouble * n,int * __ierr)57PETSC_STATIC_INLINE PetscErrorCode petsclogflops_(PetscLogDouble *n, int *__ierr) 58 { 59 *__ierr = PetscLogFlops(*n); 60 } petscloggpuflops_(PetscLogDouble * n,int * __ierr)61PETSC_STATIC_INLINE PetscErrorCode petscloggpuflops_(PetscLogDouble *n, int *__ierr) 62 { 63 *__ierr = PetscLogGpuFlops(*n); 64 } petscloggputimebegin_(int * __ierr)65PETSC_STATIC_INLINE PetscErrorCode petscloggputimebegin_(int *__ierr) 66 { 67 *__ierr = PetscLogGpuTimeBegin(); 68 } petscloggputimeend_(int * __ierr)69PETSC_STATIC_INLINE PetscErrorCode petscloggputimeend_(int *__ierr) 70 { 71 *__ierr = PetscLogGpuTimeEnd(); 72 } 73 #if defined(__cplusplus) 74 } 75 #endif 76