[u/mrichter/AliRoot.git] / DPMJET / flukapro / (USER)

*$ CREATE USER.ADD
*COPY USER
*
*=== user =============================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Common User   for EMF                                            *
*                                                                      *
*                                     Last change: A. Ferrari 3-24-94  *
*                                                                      *
*        Lemagn = flag for magnetic field (set by Emfgeo)              *
*                                                                      *
*        Xemf   = x-coordinate of the end point in the magnetic field  *
*        Yemf   = y-coordinate of the end point in the magnetic field  *
*        Zemf   = z-coordinate of the end point in the magnetic field  *
*                                                                      *
*        Uemf   = u-cosine of the end point in the magnetic field      *
*        Vemf   = v-cosine of the end point in the magnetic field      *
*        Wemf   = w-cosine of the end point in the magnetic field      *
*                                                                      *
*        dedxem = current de/dx for electrons/positrons                *
*        demelf = energy loss/gain in EM fields                        *
*                                                                      *
*        Intrck = flag for tracking initialization: it must be set to  *
*                 zero every time the trajectory direction has changed *
*                 from the previous call to Emfgeo                     *
*                                                                      *
*----------------------------------------------------------------------*
*
      COMMON / USER / XEMF  , YEMF  , ZEMF  , UEMF  , VEMF  , WEMF  ,
     &                DEDXEM, DEMELF, LEMAGN, INTRCK
      LOGICAL LEMAGN
Commit	Line	Data
d30b8254	1	*$ CREATE USER.ADD
	2	*COPY USER
	3	*
	4	=== user =============================================================
	5	*
	6	----------------------------------------------------------------------
	7	* *
	8	* Common User for EMF *
	9	* *
	10	* Last change: A. Ferrari 3-24-94 *
	11	* *
	12	* Lemagn = flag for magnetic field (set by Emfgeo) *
	13	* *
	14	* Xemf = x-coordinate of the end point in the magnetic field *
	15	* Yemf = y-coordinate of the end point in the magnetic field *
	16	* Zemf = z-coordinate of the end point in the magnetic field *
	17	* *
	18	* Uemf = u-cosine of the end point in the magnetic field *
	19	* Vemf = v-cosine of the end point in the magnetic field *
	20	* Wemf = w-cosine of the end point in the magnetic field *
	21	* *
	22	* dedxem = current de/dx for electrons/positrons *
	23	* demelf = energy loss/gain in EM fields *
	24	* *
	25	* Intrck = flag for tracking initialization: it must be set to *
	26	* zero every time the trajectory direction has changed *
	27	* from the previous call to Emfgeo *
	28	* *
	29	----------------------------------------------------------------------
	30	*
	31	COMMON / USER / XEMF , YEMF , ZEMF , UEMF , VEMF , WEMF ,
	32	& DEDXEM, DEMELF, LEMAGN, INTRCK
	33	LOGICAL LEMAGN
	34