Some function moved to AliZDC
[u/mrichter/AliRoot.git] / GEANT321 / erdecks / erxyzc.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1996/03/06 15:37:35  mclareni
6 * Add geane321 source directories
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.49  by  S.Giani
11 *-- Author :
12       SUBROUTINE ERXYZC
13 C.
14 C.    ******************************************************************
15 C.    *                                                                *
16 C.    *        Print track and volume parameters at current point      *
17 C.    *                                                                *
18 C.    *    ==>Called by : <USER,EUSTEP>                                *
19 C.    *       Author    R.Brun  *********                              *
20 C.    *                                                                *
21 C.    ******************************************************************
22 C.
23 #include "geant321/gckine.inc"
24 #include "geant321/gctrak.inc"
25 #include "geant321/gcvolu.inc"
26 #include "geant321/gcunit.inc"
27 #include "geant321/ertrio.inc"
28 *
29       DIMENSION MECNAM(20)
30       CHARACTER*4 KUN1,KUN2
31 *
32       DO 10 I=1,NMEC
33          MEC=LMEC(I)
34          MECNAM(I)=NAMEC(MEC)
35    10 CONTINUE
36 *
37       IF (SLENG.LE.0.) THEN
38          WRITE(CHMAIL,1000) (NAPART(I),I=1,5),NEPRED,CHOPTI
39          CALL GMAIL(0,0)
40          WRITE(CHMAIL,1100)
41          CALL GMAIL(0,0)
42       ENDIF
43 *
44       R = SQRT(VECT(1)**2+VECT(2)**2)
45       CALL GEVKEV (DESTEP,DESU,KUN1)
46       CALL GEVKEV (GEKIN ,GEKU,KUN2)
47       WRITE(CHMAIL,2000)(VECT(I),I=1,3),R,NAMES(NLEVEL),NUMBER(NLEVEL)
48      +      ,SLENG,STEP,DESU,KUN1,GEKU,KUN2,(MECNAM(I),I=1,NMEC)
49       CALL GMAIL(0,0)
50 C
51  1000 FORMAT(' =====> starting GEANE tracking for  ',5A4,' NEPRED =',I3,
52      +       '  with options : ',A8)
53  1100 FORMAT('      X         Y         Z         R      NAME  NUMBER',
54      +'   SLENG      STEP      DESTEP     GEKIN    MECHANISMS')
55  2000 FORMAT(1X,4F10.4,2X,A4,2X,I4,2X,2F10.4,F7.1,A4,F9.3,A4,2X,
56      +          6(A4,1X))
57 *
58       END