Actual source code: fcopy.F

  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