mirror of
https://github.com/jtdx-project/jtdx
synced 2026-08-13 17:35:38 -04:00
7 lines
110 B
Fortran
7 lines
110 B
Fortran
subroutine move(x,y,n)
|
|
real x(n),y(n)
|
|
do i=1,n
|
|
y(i)=x(i)
|
|
enddo
|
|
return
|
|
end subroutine move
|