hijing/src/pyhifram.f

0001
0002 C*********************************************************************
0003
0004       SUBROUTINE PYHIFRAM(IFRAME)
0005
0006 C...Performs transformations between different coordinate frames.
0007       COMMON/LUDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
0008       SAVE /LUDAT1/
0009       COMMON/PYHIPARS/MSTP(200),PARP(200),MSTI(200),PARI(200)
0010       SAVE /PYHIPARS/
0011       COMMON/PYHIINT1/MINT(400),VINT(400)
0012       SAVE /PYHIINT1/
0013
0014       IF(IFRAME.LT.1.OR.IFRAME.GT.2) THEN
0015         WRITE(MSTU(11),1000) IFRAME,MINT(6)
0016         RETURN
0017       ENDIF
0018       IF(IFRAME.EQ.MINT(6)) RETURN
0019
0020       IF(MINT(6).EQ.1) THEN
0021 C...Transform from fixed target or user specified frame to
0022 C...CM-frame of incoming particles.
0023         CALL LUROBO(0.,0.,-VINT(8),-VINT(9),-VINT(10))
0024         CALL LUROBO(0.,-VINT(7),0.,0.,0.)
0025         CALL LUROBO(-VINT(6),0.,0.,0.,0.)
0026         MINT(6)=2
0027
0028       ELSE
0029 C...Transform from particle CM-frame to fixed target or user specified
0030 C...frame.
0031         CALL LUROBO(VINT(6),VINT(7),VINT(8),VINT(9),VINT(10))
0032         MINT(6)=1
0033       ENDIF
0034       MSTI(6)=MINT(6)
0035
0036  1000 FORMAT(1X,'Error: illegal values in subroutine PYHIFRAM.',1X,
0037      &'No transformation performed.'/1X,'IFRAME =',1X,I5,'; MINT(6) =',
0038      &1X,I5)
0039
0040       RETURN
0041       END