Better printing for MAXSTEP
authorfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 9 Jul 1999 13:46:27 +0000 (13:46 +0000)
committerfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 9 Jul 1999 13:46:27 +0000 (13:46 +0000)
GEANT321/gtrak/gpcxyz.F
GEANT321/gtrak/gtrack.F

index 5de55bf8ec0b2fd3c54e36763e9b5fed7bff0d05..e466cc0ede7ecb30ee250db98037486ff1531cd6 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1.1.1  1999/05/18 15:55:21  fca
+* AliRoot sources
+*
 * Revision 1.1.1.1  1995/10/24 10:21:41  cernlib
 * Geant
 *
@@ -80,7 +83,7 @@ C
          GOTO 30
       ENDIF
 C
- 1000 FORMAT(' =====> TRACK ',I4,' STACK NR',I4,' NTMULT=',I5,5X,
+ 1000 FORMAT(' =====> TRACK ',I4,' STACK NR',I4,' NTMULT=',I10,5X,
      +5A4,5X,'TOFG =',F10.3,' NS')
  1100 FORMAT('       X          Y          Z          R   ',
      +'  NAME  NUMBER',
index 70bb2f589aad5c9d71b42d7e64728a041c622705..0499be49a56d5b13493dd27e5593d1d7b140d1cd 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1.1.1  1999/05/18 15:55:21  fca
+* AliRoot sources
+*
 * Revision 1.1.1.1  1995/10/24 10:21:44  cernlib
 * Geant
 *
@@ -260,17 +263,13 @@ C.    ------------------------------------------------------------------
             LMEC(NMEC) = 30
             WRITE(CHMAIL,10200) MAXNST
             CALL GMAIL(1,0)
-            WRITE(CHMAIL,10250) IEVENT,IDEVT,(NRNDM(I),I = 1,2)
-            CALL GMAIL(0,0)
-            WRITE(CHMAIL,10300)ITRA,ISTAK,NTMULT,(NAPART(I),I=1,5),
-     +      TOFG*1.E9
+            CALL GPCXYZ
+            WRITE(CHMAIL,10250) IEVENT,IDEVT,(NRNDM(I),I=1,2),TOFG*1.E9
             CALL GMAIL(0,1)
 10200       FORMAT(' *** GTRACK *** More than ',I6,
      +             ' steps, tracking abandoned!')
-10250       FORMAT('                IEVENT=',I7,' IDEVT=',I7,
-     +             ' Random Seeds = ',I10,2X,I10)
-10300       FORMAT('                Track ',I5,' stack ',I5,' NTMULT ',
-     +             I5,1X,5A4,1X,'Time of flight ',F10.3,' ns')
+10250       FORMAT(' IEVENT ',I7,' IDEVT ',I7,' Random Seeds ',I10,2X
+     $           ,I10,' Time of flight ',F10.3,' ns')
          ENDIF
       ENDIF
 *