8 lines
110 B
Plaintext
8 lines
110 B
Plaintext
|
subroutine move(x,y,n)
|
||
|
|
real x(n),y(n)
|
||
|
|
do i=1,n
|
||
|
|
y(i)=x(i)
|
||
|
|
enddo
|
||
|
|
return
|
||
|
|
end subroutine move
|