DPMJET/flukapro/(ELSSCT)

   1 *$ CREATE ELSSCT.ADD
   2 *COPY ELSSCT
   3 *
   4 *=== elssct ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     p/n ELaStic SCaTtering informations:                             *
   9 *                                                                      *
  10 *     Created on 15-september-1993 by   Alfredo Ferrari & Paola Sala   *
  11 *                                              INFN - MIlan            *
  12 *                                                                      *
  13 *     Last change  on  16-sep-93   by   Alfredo Ferrari, INFN-Milan    *
  14 *                                                                      *
  15 *----------------------------------------------------------------------*
  16 *
  17       PARAMETER ( R0ELNE = 1.4 D+00 )
  18       PARAMETER ( R0ELPI = 1.3 D+00 )
  19       PARAMETER ( N0ELSC = 152 )
  20       PARAMETER ( D0ELSC = 0.005D+00 )
  21       PARAMETER ( ELSI0M = ZERZER )
  22       PARAMETER ( ELSI0X = ( N0ELSC - 2 ) * D0ELSC )
  23       PARAMETER ( N1ELSC = 153 )
  24       PARAMETER ( D1ELSC = 0.0015D+00 )
  25       PARAMETER ( ELSI1M = ELSI0X - D1ELSC )
  26       PARAMETER ( ELSI1X = ( N1ELSC - 2 ) * D1ELSC + ELSI1M )
  27       PARAMETER ( N2ELSC = 152 )
  28       PARAMETER ( D2ELSC = 0.000166D+00 )
  29       PARAMETER ( ELSI2M = ELSI1X - D2ELSC )
  30       PARAMETER ( ELSI2X = ( N2ELSC - 1 ) * D2ELSC + ELSI2M )
  31       PARAMETER ( ELSIMX = ONEONE - 0.01D+00 * ELSI2X )
  32       COMMON / ELSSCT / R0ELSC (NALLWP), XELJ00 (N0ELSC),
  33      &                  XELJ01 (N1ELSC), XELJ02 (N2ELSC),
  34      &                  XELJ10 (N0ELSC), XELJ11 (N1ELSC),
  35      &                  XELJ12 (N2ELSC), ANRMJ0, AJ0DMP,
  36      &                  XJ0MAX
  37