correct warning
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 7 Nov 2008 15:05:31 +0000 (15:05 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 7 Nov 2008 15:05:31 +0000 (15:05 +0000)
PYTHIA6/pyquen1_5.F

index f995140..ed38497 100644 (file)
@@ -1297,7 +1297,7 @@ C************************** END PARINV *************************************
 * arg=(((dsin(uu)*cosh(uu))**2)+((dcos(uu)*sinh(uu))**2))/(2.d0*uu*uu);   
 * here quark production inside the QGP  
       arg=((dcos(uu)*cosh(uu))**2)+((dsin(uu)*sinh(uu))**2)  
-      write(6,*) "Warning in PLFUN1: z < 0.", z
+      if (z < 0.) write(6,*) "Warning in PLFUN1: z < 0.", z
       gl1=(ygl/(cfac*abs(z)))**0.3333333d0
       gl2=(um/epa)**1.333333d0  
       dc=1.d0/((1.d0+((gl1*gl2*or)**1.5d0))**2)       ! massive parton