HIJING/hipyset1_35/pyfram_hijing.F

   1 * $Id$
   2
   3 C*********************************************************************
   4
   5       SUBROUTINE PYFRAM_HIJING(IFRAME)
   6
   7 C...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
  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.)
  24         MINT(6)=2
  25
  26       ELSE
  27 C...Transform from particle CM-frame to fixed target or user specified
  28 C...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