1: ! 2: ! "$Id: fmaxpy.F,v 1.10 2001/08/07 03:05:24 balay Exp $"; 3: ! 4: ! Fortran kernel for the copy vector routine 5: ! 6: #include include/finclude/petscdef.h 7: ! 8: subroutine FortranCopy(n,x,y) 9: implicit none 10: PetscScalar x(*),y(*) 11: integer n 13: integer i 15: do 10,i=1,n 16: y(i) = x(i) 17: 10 continue 19: return 20: end 23: subroutine FortranZero(n,x) 24: implicit none 25: PetscScalar x(*) 26: integer n 28: integer i 30: do 10,i=1,n 31: x(i) = 0.0 32: 10 continue 34: return 35: end