Initial Commit
This commit is contained in:
@@ -0,0 +1,7 @@
|
||||
subroutine move(x,y,n)
|
||||
real x(n),y(n)
|
||||
do i=1,n
|
||||
y(i)=x(i)
|
||||
enddo
|
||||
return
|
||||
end subroutine move
|
||||
Reference in New Issue
Block a user