| 3820ca8e |
1 | |
| 2 | CDECK ID>, HWUBPR. |
| 3 | |
| 4 | *CMZ :- -26/04/91 10.18.58 by Bryan Webber |
| 5 | |
| 6 | *-- Author : Bryan Webber |
| 7 | |
| 8 | C----------------------------------------------------------------------- |
| 9 | |
| 10 | SUBROUTINE HWUBPR |
| 11 | |
| 12 | C----------------------------------------------------------------------- |
| 13 | |
| 14 | C PRINTS OUT DATA ON PARTON SHOWER |
| 15 | |
| 16 | C----------------------------------------------------------------------- |
| 17 | |
| 18 | INCLUDE 'HERWIG61.INC' |
| 19 | |
| 20 | INTEGER I,J |
| 21 | |
| 22 | IF (PRVTX) THEN |
| 23 | |
| 24 | WRITE(6,10) INHAD,XFACT |
| 25 | |
| 26 | 10 FORMAT(///10X,'DATA ON LAST PARTON SHOWER: INHAD =',I3, |
| 27 | |
| 28 | & ' XFACT =',E11.3//' IPAR ID TM DA1 CMO AMO CDA', |
| 29 | |
| 30 | & ' ADA P-X P-Y P-Z ENERGY MASS', |
| 31 | |
| 32 | & ' V-X V-Y V-Z V-C*T') |
| 33 | |
| 34 | DO 20 J=1,NPAR |
| 35 | |
| 36 | 20 WRITE(6,30) J,RNAME(ABS(IDPAR(J))),TMPAR(J),JDAPAR(1,J), |
| 37 | |
| 38 | & (JCOPAR(I,J),I=1,4),(PPAR(I,J),I=1,5),(VPAR(I,J),I=1,4) |
| 39 | |
| 40 | 30 FORMAT(I5,1X,A8,L2,5I4,F7.2,4F8.2,4E11.4) |
| 41 | |
| 42 | ELSE |
| 43 | |
| 44 | WRITE(6,40) INHAD,XFACT |
| 45 | |
| 46 | 40 FORMAT(///10X,'DATA ON LAST PARTON SHOWER: INHAD =',I3, |
| 47 | |
| 48 | & ' XFACT =',E11.3//' IPAR ID TM DA1 CMO AMO CDA', |
| 49 | |
| 50 | & ' ADA P-X P-Y P-Z ENERGY MASS') |
| 51 | |
| 52 | DO 50 J=1,NPAR |
| 53 | |
| 54 | 50 WRITE(6,60) J,RNAME(ABS(IDPAR(J))),TMPAR(J),JDAPAR(1,J), |
| 55 | |
| 56 | & (JCOPAR(I,J),I=1,4),(PPAR(I,J),I=1,5) |
| 57 | |
| 58 | 60 FORMAT(I5,1X,A8,L2,5I4,F7.2,4F8.2) |
| 59 | |
| 60 | ENDIF |
| 61 | |
| 62 | END |
git://git.uio.no / u / mrichter / AliRoot.git / blame