← Back to branch summary

~maddevelopers/mg5amcnlo/2.9.4

« back to all changes in this revision

Viewing changes to vendor/StdHEP/src/stdhep/hptrlsth.F

pass to v2.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
vendor/StdHEP/src/stdhep/hptrlsth.F
 
1
 
 
2
      subroutine HPTRLSTH
 
3
C
 
4
C    compare particle ID for herwig and standard
 
5
C
 
6
#include "herwig.inc"
 
7
#include "stdlun.inc"
 
8
      integer I,ID1,IT1,ITT1
 
9
      integer hwtran
 
10
      character*20 CNAM1
 
11
      character*8 NHWG1
 
12
 
 
13
      write(lnhout,1001)
 
14
C... I=IHWG (short list)
 
15
      do 100 I=1,NRES
 
16
        CNAM1 = ' '
 
17
        IT1 = 0
 
18
        ITT1 = 0
 
19
        call HWUIDT(2,ID1,I,NHWG1)
 
20
        if(ID1.EQ.0)then
 
21
C... illegal or confused
 
22
          if(I.EQ.20) IT1=89
 
23
          if(I.GE.14 .AND. I.LE.18) IT1=I+67
 
24
          if(IT1.GT.0) call HEPNAM(IT1,CNAM1)
 
25
        else
 
26
          IT1=hwtran(ID1,1)
 
27
          ITT1=hwtran(IT1,2)
 
28
          call HEPNAM(IT1,CNAM1)
 
29
        endif
 
30
        write(lnhout,1101) I,ID1,IT1,CNAM1,ITT1,NHWG1
 
31
 100  CONTINUE
 
32
      return
 
33
 1001 format(//15X,'Herwig Translation'/
 
34
     1 4X,'ISHT',4X,'IHWG',6X,'ISTD  HPNAM',14X,'IHWG',3x,'HNAME')
 
35
 1101 format(1X,I7,1X,I8,1X,I8,2X,a16,1X,I8,2X,A8)
 
36
      end