source: trunk/LMDZ.PLUTO.old/libf/bibio/scatter.F @ 3580

Last change on this file since 3580 was 3175, checked in by emillour, 13 months ago

Pluto PCM:
Add the old Pluto LMDZ for reference (required prior step to making
an LMDZ.PLUTO using the same framework as the other physics packages).
TB+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.