* * $Id: gather.F,v 1.1.1.1 1996/04/01 15:02:30 mclareni Exp $ * * $Log: gather.F,v $ * Revision 1.1.1.1 1996/04/01 15:02:30 mclareni * Mathlib gen * * #include "gen/pilot.h" #if (defined(CERNLIB_DOUBLE))&&(!defined(CERNLIB_QMIBMVF)) SUBROUTINE GATHER(NW,OUT,HIN,INDX) C C CERN PROGLIB# F122 GATHER .VERSION GEN 2.30 890530 C ORIG. 30/05/89 F. Antonelli IBM, FCA C DIMENSION OUT(*), HIN(*), INDX(*) C DO 10 J=1, NW OUT(J) = HIN(INDX(J)) 10 CONTINUE C END #endif