This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / f / scatter.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1996/04/01 15:02:30  mclareni
6 * Mathlib gen
7 *
8 *
9 #include "gen/pilot.h"
10 #if (defined(CERNLIB_DOUBLE))&&(!defined(CERNLIB_QMIBMVF))
11       SUBROUTINE SCATTER(NW,OUT,INDX,HIN)
12 C
13 C CERN PROGLIB# F122    SCATTER         .VERSION GEN      2.30  890530
14 C ORIG. 30/05/89        F. Antonelli IBM, FCA
15 C
16       DIMENSION OUT(*), INDX(*), HIN(*)
17 C
18       DO 10 J=1, NW
19         OUT(INDX(J)) = HIN(J)
20   10  CONTINUE
21 C
22       END
23 #endif