1: #pragma once 3: #include <petscsys.h> 4: #if PetscDefined(USE_FORTRAN_KERNEL_MULTCRL) 5: #if PetscDefined(HAVE_FORTRAN_CAPS) 6: #define fortranmultcrl_ FORTRANMULTCRL 7: #elif !PetscDefined(HAVE_FORTRAN_UNDERSCORE) 8: #define fortranmultcrl_ fortranmultcrl 9: #endif 10: PETSC_EXTERN void fortranmultcrl_(PetscInt *, PetscInt *, const PetscScalar *, PetscScalar *, PetscInt *, PetscScalar *); 11: #endif