3 C*********************************************************************
5 SUBROUTINE PYFRAM_HIJING(IFRAME)
7 C...Performs transformations between different coordinate frames.
8 #include "ludat1_hijing.inc"
9 #include "pypars_hijing.inc"
10 #include "pyint1_hijing.inc"
12 IF(IFRAME.LT.1.OR.IFRAME.GT.2) THEN
13 WRITE(MSTU(11),1000) IFRAME,MINT(6)
16 IF(IFRAME.EQ.MINT(6)) RETURN
19 C...Transform from fixed target or user specified frame to
20 C...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.)
27 C...Transform from particle CM-frame to fixed target or user specified
29 CALL LUROBO_HIJING(VINT(6),VINT(7),VINT(8),VINT(9),VINT(10))
34 1000 FORMAT(1X,'Error: illegal values in subroutine PYFRAM_HIJING.',1X,
35 &'No transformation performed.'/1X,'IFRAME =',1X,I5,'; MINT(6) =',