This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / 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