16dd63270SBarry Smith #include <petsc/private/ftnimpl.h>
2ba9a049bSBarry Smith
3519f805aSKarl Rupp #if defined(PETSC_HAVE_FORTRAN_CAPS)
4ba9a049bSBarry Smith #define petscsetfortranbasepointers_ PETSCSETFORTRANBASEPOINTERS
5ba9a049bSBarry Smith #define petsc_null_function_ PETSC_NULL_FUNCTION
6ba9a049bSBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
7ba9a049bSBarry Smith #define petscsetfortranbasepointers_ petscsetfortranbasepointers
8ba9a049bSBarry Smith #define petsc_null_function_ petsc_null_function
9ba9a049bSBarry Smith #endif
10ba9a049bSBarry Smith
11ba9a049bSBarry Smith #if defined(PETSC_HAVE_FORTRAN_UNDERSCORE_UNDERSCORE)
12ba9a049bSBarry Smith #define petsc_null_function_ petsc_null_function__
13ba9a049bSBarry Smith #endif
14ba9a049bSBarry Smith
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))15*5ebfa9e9SBarry Smith 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))
16ba9a049bSBarry Smith {
17ba9a049bSBarry Smith PETSC_NULL_CHARACTER_Fortran = fnull_character;
18ba9a049bSBarry Smith PETSC_NULL_INTEGER_Fortran = fnull_integer;
19ba9a049bSBarry Smith PETSC_NULL_SCALAR_Fortran = fnull_scalar;
20ba9a049bSBarry Smith PETSC_NULL_DOUBLE_Fortran = fnull_double;
21ba9a049bSBarry Smith PETSC_NULL_REAL_Fortran = fnull_real;
225d83a8b1SBarry Smith PETSC_NULL_BOOL_Fortran = fnull_bool;
235d83a8b1SBarry Smith PETSC_NULL_ENUM_Fortran = fnull_enum;
24ba9a049bSBarry Smith PETSC_NULL_FUNCTION_Fortran = fnull_function;
2505552d4bSJunchao Zhang PETSC_NULL_MPI_COMM_Fortran = fnull_mpi_comm;
265d83a8b1SBarry Smith PETSC_NULL_INTEGER_ARRAY_Fortran = fnull_integer_array;
275d83a8b1SBarry Smith PETSC_NULL_SCALAR_ARRAY_Fortran = fnull_scalar_array;
285d83a8b1SBarry Smith PETSC_NULL_REAL_ARRAY_Fortran = fnull_real_array;
29ce78bad3SBarry Smith PETSC_NULL_INTEGER_POINTER_Fortran = (void *)fnull_integer_pointer;
30ce78bad3SBarry Smith PETSC_NULL_SCALAR_POINTER_Fortran = (void *)fnull_scalar_pointer;
31ce78bad3SBarry Smith PETSC_NULL_REAL_POINTER_Fortran = (void *)fnull_real_pointer;
32ba9a049bSBarry Smith }
33ba9a049bSBarry Smith
34ba9a049bSBarry Smith /*
35ba9a049bSBarry Smith A valid address for the fortran variable PETSC_NULL_FUNCTION
36ba9a049bSBarry Smith */
petsc_null_function_(void)378cc058d9SJed Brown PETSC_EXTERN void petsc_null_function_(void)
38ba9a049bSBarry Smith {
39ba9a049bSBarry Smith return;
40ba9a049bSBarry Smith }
41