Some function moved to AliZDC
[u/mrichter/AliRoot.git] / GEANT321 / erdecks / erxyzc.F
CommitLineData
fe4da5cc 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
13C.
14C. ******************************************************************
15C. * *
16C. * Print track and volume parameters at current point *
17C. * *
18C. * ==>Called by : <USER,EUSTEP> *
19C. * Author R.Brun ********* *
20C. * *
21C. ******************************************************************
22C.
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)
50C
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