Date: 2025-03-29T05:58:45+00:00

Actual source code: zstartf.c

      1: #include <petsc/private/ftnimpl.h>

      3: #if defined(PETSC_HAVE_FORTRAN_CAPS)
      4:   #define petscsetfortranbasepointers_ PETSCSETFORTRANBASEPOINTERS
      5:   #define petsc_null_function_         PETSC_NULL_FUNCTION
      6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
      7:   #define petscsetfortranbasepointers_ petscsetfortranbasepointers
      8:   #define petsc_null_function_         petsc_null_function
      9: #endif

     11: #if defined(PETSC_HAVE_FORTRAN_UNDERSCORE_UNDERSCORE)
     12:   #define petsc_null_function_ petsc_null_function__
     13: #endif

     15: PETSC_EXTERN void petscsetfortranbasepointers_(char *fnull_character, void *fnull_integer, void *fnull_scalar, void *fnull_double, void *fnull_real, void *fnull_bool, void *fnull_enum, void (*fnull_function)(void), void *fnull_mpi_comm, void *fnull_integer_array, void *fnull_scalar_array, void *fnull_real_array, F90Array1d *fnull_integer_pointer, F90Array1d *fnull_scalar_pointer, F90Array1d *fnull_real_pointer, PETSC_FORTRAN_CHARLEN_T len PETSC_F90_2PTR_PROTO(ptrdi) PETSC_F90_2PTR_PROTO(ptrds) PETSC_F90_2PTR_PROTO(ptrdr))
     16: {
     17:   PETSC_NULL_CHARACTER_Fortran       = fnull_character;
     18:   PETSC_NULL_INTEGER_Fortran         = fnull_integer;
     19:   PETSC_NULL_SCALAR_Fortran          = fnull_scalar;
     20:   PETSC_NULL_DOUBLE_Fortran          = fnull_double;
     21:   PETSC_NULL_REAL_Fortran            = fnull_real;
     22:   PETSC_NULL_BOOL_Fortran            = fnull_bool;
     23:   PETSC_NULL_ENUM_Fortran            = fnull_enum;
     24:   PETSC_NULL_FUNCTION_Fortran        = fnull_function;
     25:   PETSC_NULL_MPI_COMM_Fortran        = fnull_mpi_comm;
     26:   PETSC_NULL_INTEGER_ARRAY_Fortran   = fnull_integer_array;
     27:   PETSC_NULL_SCALAR_ARRAY_Fortran    = fnull_scalar_array;
     28:   PETSC_NULL_REAL_ARRAY_Fortran      = fnull_real_array;
     29:   PETSC_NULL_INTEGER_POINTER_Fortran = (void *)fnull_integer_pointer;
     30:   PETSC_NULL_SCALAR_POINTER_Fortran  = (void *)fnull_scalar_pointer;
     31:   PETSC_NULL_REAL_POINTER_Fortran    = (void *)fnull_real_pointer;
     32: }

     34: /*
     35:   A valid address for the fortran variable PETSC_NULL_FUNCTION
     36: */
     37: PETSC_EXTERN void petsc_null_function_(void)
     38: {
     39:   return;
     40: }