1: #pragma once

  3: #include <petscsys.h>
  4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
  5:   #define fortrancopy_ FORTRANCOPY
  6:   #define fortranzero_ FORTRANZERO
  7: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
  8:   #define fortrancopy_ fortrancopy
  9:   #define fortranzero_ fortranzero
 10: #endif
 11: PETSC_EXTERN void fortrancopy_(PetscInt *, PetscScalar *, PetscScalar *);
 12: PETSC_EXTERN void fortranzero_(PetscInt *, PetscScalar *);