Coding rule violations corrected.

[u/mrichter/AliRoot.git] / HERWIG / src / hwudkl.f

CDECK  ID>, HWUDKL.

*CMZ :-        -27/07/99  13.33.03  by  Mike Seymour

*-- Author :    Ian Knowles

C-----------------------------------------------------------------------

      SUBROUTINE HWUDKL(ID,PMOM,DISP)

C-----------------------------------------------------------------------

C     Given a real or virtual particle, flavour ID and 4-momentum PMOM,

C     returns DISP its distance travelled in mm.

C-----------------------------------------------------------------------

      INCLUDE 'HERWIG61.INC'

      DOUBLE PRECISION HWR,PMOM(4),DISP(4),PMOM2,SCALE

      INTEGER ID

      EXTERNAL HWR

      PMOM2=(PMOM(4)+PMOM(3))*(PMOM(4)-PMOM(3))-PMOM(1)**2-PMOM(2)**2

      SCALE=-GEV2MM*LOG(HWR())

     &      /SQRT((PMOM2-RMASS(ID)**2)**2+(PMOM2/DKLTM(ID))**2)

      IF (ID.GT.197.AND.ID.LT.203) SCALE=SCALE*EXAG

      CALL HWVSCA(4,SCALE,PMOM,DISP)

      END