Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / HIJING / hipyset1_35 / pyfram_hijing.F
CommitLineData
e74335a4 1* $Id$
2
3C*********************************************************************
4
5 SUBROUTINE PYFRAM_HIJING(IFRAME)
6
7C...Performs transformations between different coordinate frames.
8#include "ludat1_hijing.inc"
9#include "pypars_hijing.inc"
10#include "pyint1_hijing.inc"
11
12 IF(IFRAME.LT.1.OR.IFRAME.GT.2) THEN
13 WRITE(MSTU(11),1000) IFRAME,MINT(6)
14 RETURN
15 ENDIF
16 IF(IFRAME.EQ.MINT(6)) RETURN
17
18 IF(MINT(6).EQ.1) THEN
19C...Transform from fixed target or user specified frame to
20C...CM-frame of incoming particles.
21 CALL LUROBO_HIJING(0.,0.,-VINT(8),-VINT(9),-VINT(10))
22 CALL LUROBO_HIJING(0.,-VINT(7),0.,0.,0.)
23 CALL LUROBO_HIJING(-VINT(6),0.,0.,0.,0.)
24 MINT(6)=2
25
26 ELSE
27C...Transform from particle CM-frame to fixed target or user specified
28C...frame.
29 CALL LUROBO_HIJING(VINT(6),VINT(7),VINT(8),VINT(9),VINT(10))
30 MINT(6)=1
31 ENDIF
32 MSTI(6)=MINT(6)
33
34 1000 FORMAT(1X,'Error: illegal values in subroutine PYFRAM_HIJING.',1X,
35 &'No transformation performed.'/1X,'IFRAME =',1X,I5,'; MINT(6) =',
36 &1X,I5)
37
38 RETURN
39 END