pyhifram.f

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file pyhifram.f

    
C*********************************************************************  
    
      SUBROUTINE pyhifram(IFRAME) 
    
C...Performs transformations between different coordinate frames.   
      common/ludat1/mstu(200),paru(200),mstj(200),parj(200) 
      SAVE /ludat1/ 
      common/pyhipars/mstp(200),parp(200),msti(200),pari(200) 
      SAVE /pyhipars/ 
      common/pyhiint1/mint(400),vint(400) 
      SAVE /pyhiint1/ 
    
      IF(iframe.LT.1.OR.iframe.GT.2) THEN   
        WRITE(mstu(11),1000) iframe,mint(6) 
        RETURN  
      ENDIF 
      IF(iframe.EQ.mint(6)) RETURN  
    
      IF(mint(6).EQ.1) THEN 
C...Transform from fixed target or user specified frame to  
C...CM-frame of incoming particles. 
        CALL lurobo(0.,0.,-vint(8),-vint(9),-vint(10))  
        CALL lurobo(0.,-vint(7),0.,0.,0.)   
        CALL lurobo(-vint(6),0.,0.,0.,0.)   
        mint(6)=2   
    
      ELSE  
C...Transform from particle CM-frame to fixed target or user specified  
C...frame.  
        CALL lurobo(vint(6),vint(7),vint(8),vint(9),vint(10))   
        mint(6)=1   
      ENDIF 
      msti(6)=mint(6)   
    
 1000 FORMAT(1x,'Error: illegal values in subroutine PYHIFRAM.',1x,   
     &'No transformation performed.'/1x,'IFRAME =',1x,i5,'; MINT(6) =', 
     &1x,i5)    
    
      RETURN    
      END