[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / f / scatter.F

*
* $Id$
*
* $Log$
* 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 SCATTER(NW,OUT,INDX,HIN)
C
C CERN PROGLIB# F122    SCATTER         .VERSION GEN      2.30  890530
C ORIG. 30/05/89        F. Antonelli IBM, FCA
C
      DIMENSION OUT(*), INDX(*), HIN(*)
C
      DO 10 J=1, NW
        OUT(INDX(J)) = HIN(J)
  10  CONTINUE
C
      END
#endif
Commit	Line	Data
fe4da5cc	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