This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (EMFSTK)
1 *$ CREATE EMFSTK.ADD
2 *COPY EMFSTK
3 *
4 *=== Emfstk ===========================================================*
5 *
6 *----------------------------------------------------------------------*
7 *                                                                      *
8 *     Common emfstk (EMF STacK) for EMF                                *
9 *                                                                      *
10 *     Last change on  08-oct-97    by    Alfredo Ferrari               *
11 *                                                                      *
12 *----------------------------------------------------------------------*
13 *
14       PARAMETER ( IDMEMF = MESTCK )
15       COMMON /EMFSTK/ E      (IDMEMF), X      (IDMEMF), Y      (IDMEMF),
16      &                Z      (IDMEMF), U      (IDMEMF), V      (IDMEMF),
17      &                W      (IDMEMF), DNEAR  (IDMEMF), UPOL   (IDMEMF),
18      &                VPOL   (IDMEMF), WPOL   (IDMEMF), USNRML (IDMEMF),
19      &                VSNRML (IDMEMF), WSNRML (IDMEMF), WT     (IDMEMF),
20      &                AGEMF  (IDMEMF), ESPARK (MKBMX1,IDMEMF),
21      &                IESPAK (MKBMX2,IDMEMF),           IQ     (IDMEMF),
22      &                IR     (IDMEMF), IRLATT (IDMEMF), NHPEMF (IDMEMF),
23      &                LLOEMF (IDMEMF), LOUEMF (IDMEMF), NP    , NPSTRT
24