#if !defined(__fcopy_h)

#include <petscsys.h>
#if defined(PETSC_HAVE_FORTRAN_CAPS)
#define fortrancopy_ FORTRANCOPY
#define fortranzero_ FORTRANZERO
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
#define fortrancopy_ fortrancopy
#define fortranzero_ fortranzero
#endif
PETSC_EXTERN void fortrancopy_(PetscInt *, PetscScalar *, PetscScalar *);
PETSC_EXTERN void fortranzero_(PetscInt *, PetscScalar *);
#endif