DPMJET/flukapro/(DEPNUC)

   1 *$ CREATE DEPNUC.ADD
   2 *COPY DEPNUC
   3 *                                                                      *
   4 *=== depnuc ===========================================================*
   5 *                                                                      *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     DEPleted NUCleus:                                                *
   9 *                                                                      *
  10 *     Created on    05 may 1990    by    Alfredo Ferrari & Paola Sala  *
  11 *                                                   Infn - Milan       *
  12 *                                                                      *
  13 *     Last change on 02-may-95     by    Alfredo Ferrari               *
  14 *                                                                      *
  15 *         Llastn = flag for the situation where just two residual      *
  16 *                  target nucleons are left                            *
  17 *         Llast1 = flag for the situation where just one residual      *
  18 *                  target nucleon is left                              *
  19 *                                                                      *
  20 *----------------------------------------------------------------------*
  21 *
  22       LOGICAL LLASTN, LLAST1
  23       COMMON /DEPNUC/    EKLAST, AMLAST, PXLAST, PYLAST, PZLAST,
  24      &                   EKINC , AMINC , PXXINC, PYYINC, PZZINC,
  25      &                   KTLAST, KTINC , LLASTN, LLAST1
  26