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 18 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 29