"Fossies" - the Fresh Open Source Software Archive

Member "petsc-3.12.3/src/sys/error/ftn-auto/adebugf.c" (3 Jan 2020, 1057 Bytes) of package /linux/misc/petsc-3.12.3.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) C and C++ source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. For more information about "adebugf.c" see the Fossies "Dox" file reference documentation.

    1 #include "petscsys.h"
    2 #include "petscfix.h"
    3 #include "petsc/private/fortranimpl.h"
    4 /* adebug.c */
    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 #include "petscsys.h"
   31 #ifdef PETSC_HAVE_FORTRAN_CAPS
   32 #define petscattachdebugger_ PETSCATTACHDEBUGGER
   33 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
   34 #define petscattachdebugger_ petscattachdebugger
   35 #endif
   36 
   37 
   38 /* Definitions of Fortran Wrapper routines */
   39 #if defined(__cplusplus)
   40 extern "C" {
   41 #endif
   42 PETSC_EXTERN void PETSC_STDCALL  petscattachdebugger_(int *__ierr ){
   43 *__ierr = PetscAttachDebugger();
   44 }
   45 #if defined(__cplusplus)
   46 }
   47 #endif