HERWIG/src/hwubpr.f

   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