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