Actual source code: fcopy.F90
1: !
2: !
3: ! Fortran kernel for the copy vector routine
4: !
5: #include <petsc/finclude/petscsys.h>
6: !
7: subroutine FortranCopy(n,x,y)
8: implicit none
9: PetscScalar x(*),y(*)
10: PetscInt n
11: PetscInt i
12: PETSC_AssertAlignx(16,x(1))
13: PETSC_AssertAlignx(16,y(1))
14: do 10,i=1,n
15: y(i) = x(i)
16: 10 continue
17: end
19: subroutine FortranZero(n,x)
20: implicit none
21: PetscScalar x(*)
22: PetscInt n
23: PetscInt i
24: PETSC_AssertAlignx(16,x(1))
25: do 10,i=1,n
26: x(i) = 0.0
27: 10 continue
28: end