--- gpamela/gptrd/npoiss.F	2002/07/11 16:02:01	3.1
+++ gpamela/gptrd/npoiss.F	2004/04/06 10:33:46	3.2
@@ -1,7 +1,10 @@
 *
-* $Id$
+* $Id: npoiss.F,v 3.1.1.1 2002/07/11 16:02:01 cafagna Exp $
+*
+* $Log: npoiss.F,v $
+* Revision 3.1.1.1  2002/07/11 16:02:01  cafagna
+* First GPAMELA release on CVS
 *
-* $Log$
 *
 *CMZ :  3.00/00 06/04/2001  11.21.19  by  Marialuigia Ambriola
 *-- Author :    Marialuigia Ambriola   05/04/2001
@@ -10,13 +13,14 @@
 * Simulate the Poisson distribution
 * From data particle book vol. 15 2000
 **************************************
-      REAL U,A,X
+      REAL U(1),A,X
       INTEGER K,N
       NPOISS=0
       K=1
       A=1.
- 100  U=RNDM(1)
-      A=U*A
+c ml26/03/04 100  U=RNDM(1)
+ 100  CALL GRNDM(U,1)
+      A=U(1)*A
       IF(A.LT.EXP(-X)) THEN
          N=K-1
       ELSE