--- gpamela/gptrd/gpxtr.F	2002/07/11 16:02:01	3.1.1.1
+++ gpamela/gptrd/gpxtr.F	2004/04/06 10:33:45	3.2
@@ -1,14 +1,17 @@
 *
-* $Id$
+* $Id: gpxtr.F,v 3.1.1.1 2002/07/11 16:02:01 cafagna Exp $
+*
+* $Log: gpxtr.F,v $
+* Revision 3.1.1.1  2002/07/11 16:02:01  cafagna
+* First GPAMELA release on CVS
 *
-* $Log$
 *
 *CMZ :  3.00/00 05/02/2002  12.51.38  by  Unknown
 *-- Author :    Marialuigia Ambriola   11/05/2001
       SUBROUTINE GPXTR
 **************************************************************************
 *                                                                        *
-*       Generates and absorbs transition radiation spectrum in TRD       *
+*       Generates and absorbs transition radiatixon spectrum in TRD       *
 *                                                                        *
 *                                                                        *
 *                                                                        *
@@ -33,6 +36,7 @@
         EXTERNAL XTRINTER
         EXTERNAL XTRINTEG
         REAL CAM,RL,G,NF,WR,CR,SPH,CATT,W,E
+        REAL GRNDM0(1)
         INTEGER INDEX,INDEXAIR,INDEXC,LAY
 c centimeter and GeV:
         DATA RL1/7.0E-4/,RL2/204.E-4/,N/71/,w1/31.59E-9/,w2/.7E-9/
@@ -273,7 +277,11 @@
              IF(NPHTR.GT.0) THEN
                 DO I=1,NPHTR
 ccc 10                E=XTRINTER(RNDM(1)*SPH,EINT,ENATT,115)
- 10                E=XTRINTER(RNDM(1)*SPH,EINT,ENATT,75)
+c ml 26/03/04
+c 10                E=XTRINTER(RNDM(1)*SPH,EINT,ENATT,75)
+ 10                CALL GRNDM(GRNDM0,1)
+                   E=XTRINTER(GRNDM0(1)*SPH,EINT,ENATT,75)
+C ml 26/03/04
 C 28/9/2001: TENTATIVO DI FINE TUNING DELLA TR:
 ******** NEI DATI REALI NON VEDO FOTONI CON ENERGIA MAGGIORE DI 60 keV:
 c fine modifica 28/9/2001