Actual source code: fcopy_bgl.F

  1: !
  2: !
  3: !    Fortran kernel for the copy vector routine
  4: !
 5:  #include finclude/petscdef.h
  6: !
  7:       subroutine FortranCopy_BGL(n,x,y)
  8:       implicit none
  9:       PetscScalar  x(*),y(*)
 10:       PetscInt n
 11:       PetscInt i
 12:       call ALIGNX(16,x(1))
 13:       call ALIGNX(16,y(1))
 14:       do 10,i=1,n
 15:         y(i) = x(i)
 16:  10   continue
 17:       return
 18:       end


 21:       subroutine FortranZero_BGL(n,x)
 22:       implicit none
 23:       PetscScalar  x(*)
 24:       PetscInt n
 25:       PetscInt i
 26:       call ALIGNX(16,x(1))
 27:       do 10,i=1,n
 28:         x(i) = 0.0
 29:  10   continue
 30:       return
 31:       end