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