Back to home page

sPhenix code displayed by LXR

 
 

    


File indexing completed on 2025-08-05 08:15:42

0001     
0002 C*********************************************************************  
0003     
0004       SUBROUTINE PYHIKCUT(MCUT)   
0005     
0006 C...Dummy routine, which the user can replace in order to make cuts on  
0007 C...the kinematics on the parton level before the matrix elements are   
0008 C...evaluated and the event is generated. The cross-section estimates   
0009 C...will automatically take these cuts into account, so the given   
0010 C...values are for the allowed phase space region only. MCUT=0 means    
0011 C...that the event has passed the cuts, MCUT=1 that it has failed.  
0012       COMMON/PYHIPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) 
0013       SAVE /PYHIPARS/ 
0014     
0015       MCUT=0    
0016     
0017       RETURN    
0018       END