print ECM per event

dump/dump.car

@@ -315,7 +315,7 @@ CCC  +        IHAD4 .NE. 0 ) NEED = 1
 +CDE, PSCEMF.
 +CDE, PSCHPC.
 +CDE, PSCSTC.
-+CDE, PSCHAC.
++CDE, PSCHAC.      
 
 *
       INTEGER I, IERR
@@ -327,6 +327,7 @@ CCC  +        IHAD4 .NE. 0 ) NEED = 1
 *---  Dump event information as plain text
       PRINT *, "--------------------------"
       WRITE(*,98)      "CHECK: EVENT   :",IIIRUN,":",IIIEVT
+      WRITE(*,97)     "CHECK: ECM     :",ECMAS
       WRITE(*, 99)     "CHECK: TRACKS  :", NVECP
       DO I=1, NVECP
          WRITE(*, 99)  "CHECK: TRACK NR:", I
@@ -338,6 +339,7 @@ CCC  +        IHAD4 .NE. 0 ) NEED = 1
          WRITE(*, 100) "CHECK: HAC     :", QHAC(8,I)
          WRITE(*, 100) "CHECK: STC     :", QSTIC(1,I)
       ENDDO
+ 97   FORMAT(A,F10.2)
  98   FORMAT(A,I10,A,I10)
  99   FORMAT(A,I10)
  100  FORMAT(A,F12.6)
@@ -4480,6 +4482,7 @@ CCC      ENDDO
 *
       NPHOC = 0
       I     = 0
+      print*, "RUN, EVENT, ECM", IIIRUN, IIIEVT, 2.*EBEAM
       CALL uzeror(QPHOC,1,LENPHC*NPCMAX)
 *
       IF ( ISVER .GE. 103 ) THEN