Actual source code: fcopy.h

  1: #ifndef PETSC_FCOPY_H
  2: #define PETSC_FCOPY_H

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