Initialize API
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 15 Jan 2002 23:05:51 +0000 (23:05 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 15 Jan 2002 23:05:51 +0000 (23:05 +0000)
HIJING/hipyset1_35/pywidt_hijing.F

index becbb6a..9692637 100644 (file)
@@ -361,6 +361,9 @@ C...H0 -> Z0 + Z0, W+ + W-
     
       ELSEIF(KFLA.EQ.32) THEN   
 C...Z'0:    
+C....  this line added by A.M.
+         API = 0.
+C....         
         IF(MINT(61).EQ.1) THEN  
           EI=KCHG(IABS(MINT(15)),1)/3.  
           AI=SIGN(1.,EI)