5 * Revision 1.1.1.1 1996/04/01 15:02:30 mclareni
10 #if (defined(CERNLIB_DOUBLE))&&(!defined(CERNLIB_QMIBMVF))
11 SUBROUTINE GATHER(NW,OUT,HIN,INDX)
13 C CERN PROGLIB# F122 GATHER .VERSION GEN 2.30 890530
14 C ORIG. 30/05/89 F. Antonelli IBM, FCA
16 DIMENSION OUT(*), HIN(*), INDX(*)