1: ! 2: ! 3: ! Fortran kernel for the copy vector routine 4: ! 5: #include include/finclude/petscdef.h 6: ! 7: subroutine FortranCopy(n,x,y) 8: implicit none 9: PetscScalar x(*),y(*) 10: PetscInt n 12: PetscInt i 14: do 10,i=1,n 15: y(i) = x(i) 16: 10 continue 18: return 19: end 22: subroutine FortranZero(n,x) 23: implicit none 24: PetscScalar x(*) 25: PetscInt n 27: PetscInt i 29: do 10,i=1,n 30: x(i) = 0.0 31: 10 continue 33: return 34: end