DPMJET/flukapro/(XSEPAR)

   1 *$ CREATE XSEPAR.ADD
   2 *COPY XSEPAR
   3 *
   4 *=== xsepar ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     Xsec Parameters for neutrons and protons:                        *
   9 *                                                                      *
  10 *     Created on  20 september 1991  by  Alfredo Ferrari & Paola Sala  *
  11 *                                                   Infn - Milan       *
  12 *                                                                      *
  13 *     Last change on 03-jul-96     by    Alfredo Ferrari               *
  14 *                                                                      *
  15 *     Included in the following routines:                              *
  16 *                                                                      *
  17 *                        BERRTP                                        *
  18 *                        XSENEU                                        *
  19 *                        XSEPRO                                        *
  20 *                        XSINEU                                        *
  21 *                        XSIPRO                                        *
  22 *                        PREPRE                                        *
  23 *                                                                      *
  24 *----------------------------------------------------------------------*
  25 *
  26 *  Deuteron atomic weight:
  27       PARAMETER ( ATMDEU = ( AMDEUT + AMELCT - 13.6D-09 ) / AMUGEV  )
  28       COMMON / XSEPAR / AANXSE (100), BBNXSE (100), CCNXSE (100),
  29      &                  DDNXSE (100), EENXSE (100), ZZNXSE (100),
  30      &                  EMNXSE (100), XMNXSE (100),
  31      &                  AAPXSE (100), BBPXSE (100), CCPXSE (100),
  32      &                  DDPXSE (100), EEPXSE (100), FFPXSE (100),
  33      &                  ZZPXSE (100), EMPXSE (100), XMPXSE (100)
  34