1 #ifndef __FMULATCRL_H 2 #define __FMULATCRL_H 3 4 #include <petscsys.h> 5 #if defined(PETSC_USE_FORTRAN_KERNEL_MULTCRL) 6 #if defined(PETSC_HAVE_FORTRAN_CAPS) 7 #define fortranmultcrl_ FORTRANMULTCRL 8 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 9 #define fortranmultcrl_ fortranmultcrl 10 #endif 11 PETSC_EXTERN void fortranmultcrl_(PetscInt *, PetscInt *, const PetscScalar *, PetscScalar *, PetscInt *, PetscScalar *); 12 #endif 13 14 #endif 15