Boost also resonances into LAB frame

[u/mrichter/AliRoot.git] / DPMJET / dpmjet3.0-5F.f

diff --git a/DPMJET/dpmjet3.0-5F.f b/DPMJET/dpmjet3.0-5F.f
index 0386485412406f2ef1eee972e11e191bcd2e8ddd..9061bf8c9372eeca35c24e07ef0f6f32ffaaeb3d 100644 (file)
--- a/DPMJET/dpmjet3.0-5F.f
+++ b/DPMJET/dpmjet3.0-5F.f
@@ -3592,8 +3592,12 @@ C     STOP
       IF (LBEAM) THEN
          IF ( (NPOINT(4).EQ.0).OR.(NHKK.LT.NPOINT(4)) ) RETURN
          DO 20 I=NPOINT(4),NHKK
-            IF ((ABS(ISTHKK(I)).EQ.1).OR.(ISTHKK(I).EQ.1000).OR.
-     &                                   (ISTHKK(I).EQ.1001)) THEN
+
+            IF ((ABS(ISTHKK(I)).EQ.1)  .OR.
+     &           (ABS(ISTHKK(I)).EQ.2) .OR.
+     &           (ISTHKK(I).EQ.1000)   .OR.
+     &           (ISTHKK(I).EQ.1001)) THEN
+
                CALL DT_MYTRAN(1,PHKK(1,I),PHKK(2,I),PHKK(3,I),
      &                     COD,SID,COF,SIF,PXCMS,PYCMS,PZCMS)
                PECMS = PHKK(4,I)