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