DPMJET/flukapro/(CURPRO)

   1 *$ CREATE CURPRO.ADD
   2 *COPY CURPRO
   3 *
   4 *=== curpro ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     CURrent PROjectile parameters                                    *
   9 *                                                                      *
  10 *     Created on 28 january 1992   by    Alfredo Ferrari & Paola Sala  *
  11 *                                                   Infn - Milan       *
  12 *                                                                      *
  13 *     Last change on 29-jan-92     by    Alfredo Ferrari               *
  14 *                                                                      *
  15 *     Included in the following routines:                              *
  16 *                                                                      *
  17 *                    BIMSEL                                            *
  18 *                    NWISEL                                            *
  19 *                    FORNUC                                            *
  20 *                                                                      *
  21 *----------------------------------------------------------------------*
  22 *
  23       COMMON / CURPRO / XCRRNT, YCRRNT, ZCRRNT, CXCRRN, CYCRRN, CZCRRN,
  24      &                  RCRRNT, VCRRNT, PCRRNT, ECRNNT
  25