2: #ifndef __FNORM_H 5: #include <petscsys.h> 6: #if defined(PETSC_USE_FORTRAN_KERNEL_NORM) 7: #if defined(PETSC_HAVE_FORTRAN_CAPS) 8: #define fortrannormsqr_ FORTRANNORMSQR 9: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 10: #define fortrannormsqr_ fortrannormsqr 11: #endif 12: PETSC_EXTERN void fortrannormsqr_(void *, PetscInt *, void *); 13: #endif 14: #endif