DPMJET/flukapro/(SPCSMP)

   1 *$ CREATE SPCSMP.ADD
   2 *COPY SPCSMP
   3 *
   4 *=== spcsmp ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     SPeCtrum SaMPling:                                               *
   9 *                                                                      *
  10 *     Created on   29 may 1996     by    Alfredo Ferrari & Paola Sala  *
  11 *                                                   Infn - Milan       *
  12 *                                                                      *
  13 *     Last change on 05-feb-99     by    Alfredo Ferrari               *
  14 *                                                                      *
  15 *     Description of variables:                                        *
  16 *                                                                      *
  17 *      Xspcsm(it) = cross section used for spectrum sampling on indi-  *
  18 *                   vidual nucleons (1=p,2=n)                          *
  19 *          Lspcsm = logical flag indicating whether spectrum sampling  *
  20 *                   is activated                                       *
  21 *          Lspcrs = logical flag indicating that spectrum re-sampling  *
  22 *                   is requested                                       *
  23 *                                                                      *
  24 *----------------------------------------------------------------------*
  25 *
  26       LOGICAL LSPCSM, LSPCRS
  27 *
  28       COMMON / SPCSMP / XSPCSM (2), LSPCSM, LSPCRS
  29