Actual source code: fcopy.F90
1: !
2: !
3: ! Fortran kernel for the copy vector routine
4: !
5: #include <petsc/finclude/petscsys.h>
6: !
7: pure subroutine FortranCopy(n, x, y)
8: use, intrinsic :: ISO_C_binding
9: implicit none(type, external)
10: PetscScalar, intent(in) :: x(*)
11: PetscScalar, intent(inout) :: y(*)
12: PetscInt, intent(in) :: n
14: PETSC_AssertAlignx(16, x(1))
15: PETSC_AssertAlignx(16, y(1))
17: y(1:n) = x(1:n)
18: end subroutine FortranCopy
20: pure subroutine FortranZero(n, x)
21: use, intrinsic :: ISO_C_binding
22: implicit none(type, external)
23: PetscScalar, intent(inout) :: x(*)
24: PetscInt, intent(in) :: n
26: PETSC_AssertAlignx(16, x(1))
28: x(1:n) = 0.0
29: end subroutine FortranZero