source: trunk/LMDZ.GENERIC/libf/bibio/scopy.F @ 1308

Last change on this file since 1308 was 135, checked in by aslmd, 14 years ago

CHANGEMENT ARBORESCENCE ETAPE 2 -- NON COMPLET
File size: 290 bytes
Line 
1      subroutine scopy(n,sx,incx,sy,incy)
2c
3      IMPLICIT NONE
4c
5      integer n,incx,incy,ix,iy,i
6      real 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.