Analysis Software
Documentation for
sPHENIX
simulation software
Home page
Related Pages
Modules
Namespaces
Classes
Files
Examples
External Links
File List
File Members
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
(1
x
,
'Error: illegal values in subroutine PYHIFRAM.'
,1
x
,
37
&
'No transformation performed.'
/1
x
,
'IFRAME ='
,1
x
,
i5
,
'; MINT(6) ='
,
38
&1
x
,
i5
)
39
40
RETURN
41
END
coresoftware
blob
master
generators
hijing
src
pyhifram.f
Built by
Jin Huang
. updated:
Sat Feb 17 2024 22:17:59
using
1.8.2 with
sPHENIX GitHub integration