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 return 18 end 19 20 21 subroutine FortranZero(n,x) 22 implicit none 23 PetscScalar x(*) 24 PetscInt n 25 PetscInt i 26 PETSC_AssertAlignx(16,x(1)) 27 do 10,i=1,n 28 x(i) = 0.0 29 10 continue 30 return 31 end 32 33