STRUCTM corrections for pA
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 13 Aug 2013 12:34:22 +0000 (12:34 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 13 Aug 2013 12:34:22 +0000 (12:34 +0000)
PYTHIA6/QPYTHIA/pythia-6.4.14.f
PYTHIA6/pythia6.4.21/pythia-6.4.21.f
PYTHIA6/pythia6.4.25/pythia-6.4.25.f

index a0f6b94..2532390 100644 (file)
@@ -76436,13 +76436,10 @@ C...
       IMPLICIT INTEGER(I-N)
       COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200)
       COMMON/PYINT1/MINT(400),VINT(400)
-C      write(6,*) "structm_alice->"
-      IF (MSTP(192) .GT. 0 .AND. MSTP(193) .GT. 0) THEN
-         A=MSTP(191+MINT(124))
-C         write(6,*) mint(124), "-> structa ", A
+      A=MSTP(191+MINT(124))
+      IF (A .GT. 1) THEN
           CALL STRUCTA(XX,QQ,A,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL)
       ELSE
-C         write(6,*) mint(124), "-> structm "
          CALL STRUCTM(XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL)
       ENDIF
       END
index c8f7ffa..063c11f 100644 (file)
@@ -79048,12 +79048,10 @@ C...
       COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200)
       COMMON/PYINT1/MINT(400),VINT(400)
 C      write(6,*) "structm_alice->"
-      IF (MSTP(192) .GT. 0 .AND. MSTP(193) .GT. 0) THEN
-         A=MSTP(191+MINT(124))
-C         write(6,*) mint(124), "-> structa ", A
+      A=MSTP(191+MINT(124))
+      IF (A .GT. 1) THEN
           CALL STRUCTA(XX,QQ,A,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL)
       ELSE
-C         write(6,*) mint(124), "-> structm "
          CALL STRUCTM(XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL)
       ENDIF
       END
index c9fee3e..94e5f37 100644 (file)
@@ -80479,8 +80479,8 @@ C...
       COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200)
       COMMON/PYINT1/MINT(400),VINT(400)
 C      write(6,*) "structm_alice->"
-      IF (MSTP(192) .GT. 0 .AND. MSTP(193) .GT. 0) THEN
-         A=MSTP(191+MINT(124))
+      A = MSTP(191+MINT(124))
+      IF (A .GT. 1) THEN
 C         write(6,*) mint(124), "-> structa ", A
           CALL STRUCTA(XX,QQ,A,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL)
       ELSE