From 97f74af4a3f162b9dd0223cbbb02e33f62a04e0f Mon Sep 17 00:00:00 2001 From: fca Date: Fri, 9 Jul 1999 13:46:27 +0000 Subject: [PATCH] Better printing for MAXSTEP --- GEANT321/gtrak/gpcxyz.F | 5 ++++- GEANT321/gtrak/gtrack.F | 15 +++++++-------- 2 files changed, 11 insertions(+), 9 deletions(-) diff --git a/GEANT321/gtrak/gpcxyz.F b/GEANT321/gtrak/gpcxyz.F index 5de55bf8ec0..e466cc0ede7 100644 --- a/GEANT321/gtrak/gpcxyz.F +++ b/GEANT321/gtrak/gpcxyz.F @@ -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', diff --git a/GEANT321/gtrak/gtrack.F b/GEANT321/gtrak/gtrack.F index 70bb2f589aa..0499be49a56 100644 --- a/GEANT321/gtrak/gtrack.F +++ b/GEANT321/gtrak/gtrack.F @@ -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 * -- 2.39.3