Also rename PYTHIA call
authorloizides <loizides@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 24 Feb 2011 15:01:05 +0000 (15:01 +0000)
committerloizides <loizides@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 24 Feb 2011 15:01:05 +0000 (15:01 +0000)
TAmpt/AMPT/hijing1.383_ampt.f
TAmpt/AMPT/hipyset1.35.f

index 2acef3b..4db76df 100644 (file)
@@ -3459,7 +3459,7 @@ C
 C        ********Scatter the valence quarks only once per NN 
 C       collision,
 C                afterwards only gluon can have hard scattering.
- 155        CALL PYTHIA
+ 155        CALL PYTHIAA
         JJ=MINT(31)
         IF(JJ.NE.1) GO TO 155
 C                *********one hard collision at a time
index 783ab11..20b6636 100644 (file)
@@ -6323,7 +6323,7 @@ clin     &22('*'))
     
 C*********************************************************************  
     
-      SUBROUTINE PYTHIA 
+      SUBROUTINE PYTHIAA 
     
 C...Administers the generation of a high-pt event via calls to a number 
 C...of subroutines; also computes cross-sections.