Actual source code: fcopy.F

  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