Actual source code: fcopy.F90

  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:       end

 19:       subroutine FortranZero(n,x)
 20:       implicit none
 21:       PetscScalar  x(*)
 22:       PetscInt n
 23:       PetscInt i
 24:       PETSC_AssertAlignx(16,x(1))
 25:       do 10,i=1,n
 26:         x(i) = 0.0
 27:  10   continue
 28:       end