*
*=== curpro ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     CURrent PROjectile parameters                                    *
*                                                                      *
*     Created on 28 January 1992   by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Included in the following routines:                              *
*                                                                      *
*                    BIMSEL                                            *
*                    NWISEL                                            *
*                    FORNUC                                            *
*                                                                      *
*----------------------------------------------------------------------*
*
      COMMON / CURPRO / XCRRNT, YCRRNT, ZCRRNT, CXCRRN, CYCRRN, CZCRRN,
     &                  RCRRNT, VCRRNT, PCRRNT, ECRNNT
      SAVE / CURPRO /