1af0996ceSBarry Smith #include <petsc/private/fortranimpl.h> 2ba9a049bSBarry Smith 3519f805aSKarl Rupp #if defined(PETSC_HAVE_FORTRAN_CAPS) 4ba9a049bSBarry Smith #define petscinitializefortran_ PETSCINITIALIZEFORTRAN 5ba9a049bSBarry Smith #define petscsetfortranbasepointers_ PETSCSETFORTRANBASEPOINTERS 6ba9a049bSBarry Smith #define petsc_null_function_ PETSC_NULL_FUNCTION 7ba9a049bSBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8ba9a049bSBarry Smith #define petscinitializefortran_ petscinitializefortran 9ba9a049bSBarry Smith #define petscsetfortranbasepointers_ petscsetfortranbasepointers 10ba9a049bSBarry Smith #define petsc_null_function_ petsc_null_function 11ba9a049bSBarry Smith #endif 12ba9a049bSBarry Smith 13ba9a049bSBarry Smith #if defined(PETSC_HAVE_FORTRAN_UNDERSCORE_UNDERSCORE) 14ba9a049bSBarry Smith #define petsc_null_function_ petsc_null_function__ 15ba9a049bSBarry Smith #endif 16ba9a049bSBarry Smith 1719caf8f3SSatish Balay PETSC_EXTERN void petscinitializefortran_(int *ierr) 18ba9a049bSBarry Smith { 19ba9a049bSBarry Smith *ierr = PetscInitializeFortran(); 20ba9a049bSBarry Smith } 21ba9a049bSBarry Smith 22*5d83a8b1SBarry 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, void (*fnull_function)(void), void *fnull_mpi_comm, void *fnull_integer_array, void *fnull_scalar_array, void *fnull_real_array, PETSC_FORTRAN_CHARLEN_T len) 23ba9a049bSBarry Smith { 24ba9a049bSBarry Smith PETSC_NULL_CHARACTER_Fortran = fnull_character; 25ba9a049bSBarry Smith PETSC_NULL_INTEGER_Fortran = fnull_integer; 26ba9a049bSBarry Smith PETSC_NULL_SCALAR_Fortran = fnull_scalar; 27ba9a049bSBarry Smith PETSC_NULL_DOUBLE_Fortran = fnull_double; 28ba9a049bSBarry Smith PETSC_NULL_REAL_Fortran = fnull_real; 29*5d83a8b1SBarry Smith PETSC_NULL_BOOL_Fortran = fnull_bool; 30*5d83a8b1SBarry Smith PETSC_NULL_ENUM_Fortran = fnull_enum; 31ba9a049bSBarry Smith PETSC_NULL_FUNCTION_Fortran = fnull_function; 3205552d4bSJunchao Zhang PETSC_NULL_MPI_COMM_Fortran = fnull_mpi_comm; 33*5d83a8b1SBarry Smith PETSC_NULL_INTEGER_ARRAY_Fortran = fnull_integer_array; 34*5d83a8b1SBarry Smith PETSC_NULL_SCALAR_ARRAY_Fortran = fnull_scalar_array; 35*5d83a8b1SBarry Smith PETSC_NULL_REAL_ARRAY_Fortran = fnull_real_array; 36ba9a049bSBarry Smith } 37ba9a049bSBarry Smith 38ba9a049bSBarry Smith /* 39ba9a049bSBarry Smith A valid address for the fortran variable PETSC_NULL_FUNCTION 40ba9a049bSBarry Smith */ 418cc058d9SJed Brown PETSC_EXTERN void petsc_null_function_(void) 42ba9a049bSBarry Smith { 43ba9a049bSBarry Smith return; 44ba9a049bSBarry Smith } 45