Small fix
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Sun, 20 Jun 2004 14:55:37 +0000 (14:55 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Sun, 20 Jun 2004 14:55:37 +0000 (14:55 +0000)
PYTHIA6/pyquen.F

index 06c2d4dbe2b58be385c8c45ca587a48066c9b2cd..a00c8b940c29da8d09f7c50c49dcd2fa3273d1cd 100644 (file)
       i=i0+1      
  2    ks=k(i,1)
       icount = icount + 1
-      if (icount > 200) stop
+      if (icount.gt.200) stop
       ksp=k(i-1,1) 
       if(ks.ne.2.and.ksp.ne.2) then 
          n=n+1