randomize reaction plane
authorloizides <loizides@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 22 Mar 2011 21:14:16 +0000 (21:14 +0000)
committerloizides <loizides@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 22 Mar 2011 21:14:16 +0000 (21:14 +0000)
TAmpt/AMPT/hijing1.383_ampt.f

index 4db76df..f8a46fa 100644 (file)
@@ -507,8 +507,8 @@ C       BY THE ANGLE PHI  FOR EACH COLLISION.******************
 C
         BB=SQRT(BMIN**2+RANART(NSEED)*(BMAX**2-BMIN**2))
 cbz6/28/99 flow1
-c        PHI=2.0*HIPR1(40)*RANART(NSEED)
-        PHI=0.
+        PHI=2.0*HIPR1(40)*RANART(NSEED)
+c        PHI=0.
 cbz6/28/99 flow1 end
         BBX=BB*COS(PHI)
         BBY=BB*SIN(PHI)