source: trunk/LMDZ.MARS/libf/phymars/scopyi.F @ 317

Last change on this file since 317 was 38, checked in by emillour, 14 years ago

Ajout du modè Martien (mon LMDZ.MARS.BETA, du 28/01/2011) dans le rértoire mars, pour pouvoir suivre plus facilement les modifs.
EM

File size: 291 bytes
Line 
1      subroutine scopyi(n,sx,incx,sy,incy)
2c
3      IMPLICIT NONE
4c
5      integer n,incx,incy,ix,iy,i
6      integer sx((n-1)*incx+1),sy((n-1)*incy+1)
7c
8      iy=1
9      ix=1
10      do 10 i=1,n
11      sy(iy)=sx(ix)
12         ix=ix+incx
13         iy=iy+incy
1410    continue
15c
16      return
17      end
Note: See TracBrowser for help on using the repository browser.