Actual source code: fcopy.F

petsc-3.3-p7 2013-05-11
  1: !
  2: !
  3: !    Fortran kernel for the copy vector routine
  4: !
  5: #include <finclude/petscsysdef.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


 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