| 3820ca8e |
1 | |
| 2 | CDECK ID>, HWRPIP. |
| 3 | |
| 4 | *CMZ :- -27/07/99 13.33.03 by Mike Seymour |
| 5 | |
| 6 | *-- Author : Ian Knowles |
| 7 | |
| 8 | C----------------------------------------------------------------------- |
| 9 | |
| 10 | SUBROUTINE HWRPIP |
| 11 | |
| 12 | C----------------------------------------------------------------------- |
| 13 | |
| 14 | C Generates a random primary IP using a triple Gaussian distribution |
| 15 | |
| 16 | C----------------------------------------------------------------------- |
| 17 | |
| 18 | INCLUDE 'HERWIG61.INC' |
| 19 | |
| 20 | DOUBLE PRECISION HWRGAU,VIP(3),VIPWID(3) |
| 21 | |
| 22 | INTEGER I |
| 23 | |
| 24 | EXTERNAL HWRGAU |
| 25 | |
| 26 | DATA VIP,VIPWID/3*0.0,.25,.015,1.8/ |
| 27 | |
| 28 | DO 10 I=1,3 |
| 29 | |
| 30 | 10 VTXPIP(I)=HWRGAU(I,VIP(I),VIPWID(I)) |
| 31 | |
| 32 | VTXPIP(4)=0. |
| 33 | |
| 34 | END |
git://git.uio.no / u / mrichter / AliRoot.git / blame