mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-08-27 08:36:36 -04:00
8 lines
110 B
Fortran
8 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
|