Analysis Software
Documentation for sPHENIX simulation software
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
pyhifram.f
Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file pyhifram.f
1 
2 C*********************************************************************
3 
4  SUBROUTINE pyhifram(IFRAME)
5 
6 C...Performs transformations between different coordinate frames.
7  common/ludat1/mstu(200),paru(200),mstj(200),parj(200)
8  SAVE /ludat1/
9  common/pyhipars/mstp(200),parp(200),msti(200),pari(200)
10  SAVE /pyhipars/
11  common/pyhiint1/mint(400),vint(400)
12  SAVE /pyhiint1/
13 
14  IF(iframe.LT.1.OR.iframe.GT.2) THEN
15  WRITE(mstu(11),1000) iframe,mint(6)
16  RETURN
17  ENDIF
18  IF(iframe.EQ.mint(6)) RETURN
19 
20  IF(mint(6).EQ.1) THEN
21 C...Transform from fixed target or user specified frame to
22 C...CM-frame of incoming particles.
23  CALL lurobo(0.,0.,-vint(8),-vint(9),-vint(10))
24  CALL lurobo(0.,-vint(7),0.,0.,0.)
25  CALL lurobo(-vint(6),0.,0.,0.,0.)
26  mint(6)=2
27 
28  ELSE
29 C...Transform from particle CM-frame to fixed target or user specified
30 C...frame.
31  CALL lurobo(vint(6),vint(7),vint(8),vint(9),vint(10))
32  mint(6)=1
33  ENDIF
34  msti(6)=mint(6)
35 
36  1000 FORMAT(1x,'Error: illegal values in subroutine PYHIFRAM.',1x,
37  &'No transformation performed.'/1x,'IFRAME =',1x,i5,'; MINT(6) =',
38  &1x,i5)
39 
40  RETURN
41  END