source: trunk/mars/libf/bibio/scatter.F @ 38

Last change on this file since 38 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: 366 bytes
Line 
1       subroutine scatter(n,a,index,b)
2C
3       implicit none
4       integer N,INDEX(n),I
5       real A(n),B(n)
6c
7c
8       DO 100 I=1,N
9          A(INDEX(I))=B(I)
10100    CONTINUE
11c
12       return
13       end
14c
15c
16c      peut etre vec_scatter(v,rindices,count,r) en f77hp
17c      equivalent code:
18c      do 99 i=1,count
19c99    r(rindices(i))=v(i)
20c      voir p. 11-13
21c
Note: See TracBrowser for help on using the repository browser.