TEvtGen/PHOTOS/phospi.F

   1       FUNCTION PHOSPI(IDHEP)
   2 C.----------------------------------------------------------------------
   3 C.
   4 C.    PHOTOS:   PHOton radiation  in decays function for SPIn determina-
   5 C.              tion
   6 C.
   7 C.    Purpose:  Calculate  the spin  of particle  with  code IDHEP.  The
   8 C.              code  of the particle  is  defined  by the Particle Data
   9 C.              Group in Phys. Lett. B204 (1988) 1.
  10 C.
  11 C.    Input Parameter:   IDHEP
  12 C.
  13 C.    Output Parameter:  Funtion  value = spin  of  particle  with  code
  14 C.                       IDHEP
  15 C.
  16 C.    Author(s):  E. Barberio and B. van Eijk     Created at:  29/11/89
  17 C.                                                Last update: 02/01/90
  18 C.
  19 C.----------------------------------------------------------------------
  20       IMPLICIT NONE
  21       REAL*8 PHOSPI
  22       INTEGER IDHEP,IDABS
  23 C--
  24 C--   Array 'SPIN' contains the spin  of  the first 100 particles accor-
  25 C--   ding to the PDG particle code...
  26       REAL*8 SPIN(100)
  27       DATA SPIN/ 8*.5D0, 1.D0, 0.D0, 8*.5D0, 2*0.D0, 4*1.D0, 76*0.D0/
  28       IDABS=ABS(IDHEP)
  29 C--
  30 C--   Spin of quark, lepton, boson etc....
  31       IF (IDABS.LE.100) THEN
  32         PHOSPI=SPIN(IDABS)
  33       ELSE
  34 C--
  35 C--   ...other particles, however...
  36         PHOSPI=(MOD(IDABS,10)-1.D0)/2.D0
  37 C--
  38 C--   ...K_short and K_long are special !!
  39         PHOSPI=MAX(PHOSPI,0.D0)
  40       ENDIF
  41       RETURN
  42       END