1 #include <petsc/private/ftnimpl.h> 2 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 10 11 #if defined(PETSC_HAVE_FORTRAN_UNDERSCORE_UNDERSCORE) 12 #define petsc_null_function_ petsc_null_function__ 13 #endif 14 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, PetscFortranCallbackFn *fnull_function, 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 } 33 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 } 41