source: trunk/LMDZ.GENERIC/libf/bibio/gather.F @ 357

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

CHANGEMENT ARBORESCENCE ETAPE 2 -- NON COMPLET

File size: 259 bytes
Line 
1      SUBROUTINE GATHER(n,a,b,index)
2c
3      IMPLICIT NONE
4C
5      INTEGER n,index(n),i
6      REAL a(n),b(n)
7c
8      DO 100 i=1,n
9        a(i)=b(index(i))
10100   CONTINUE
11c
12      RETURN
13      END
14c
15c     voir aussi vec_gather(v,vindices,count,r)...p.11-14
16
Note: See TracBrowser for help on using the repository browser.