1: #pragma once 3: #if PetscDefined(USE_FORTRAN_KERNEL_MULTADDAIJ) 4: #if PetscDefined(HAVE_FORTRAN_CAPS) 5: #define fortranmultaddaij_ FORTRANMULTADDAIJ 6: #elif !PetscDefined(HAVE_FORTRAN_UNDERSCORE) 7: #define fortranmultaddaij_ fortranmultaddaij 8: #endif 10: PETSC_EXTERN void fortranmultaddaij_(PetscInt *, const void *, const PetscInt *, const PetscInt *, const MatScalar *, void *, void *); 12: #endif