From 6b17d047d444575143778518cb1ec33114dc7c3b Mon Sep 17 00:00:00 2001
From: Ulrich Schwickerath <Ulrich.Schwickerath@cern.ch>
Date: Fri, 7 Feb 2025 09:58:36 +0100
Subject: [PATCH 1/2] print out event, run and ecm information
---
dump/dump.car | 1 +
1 file changed, 1 insertion(+)
diff --git a/dump/dump.car b/dump/dump.car
index 8c50077..81ba477 100644
--- a/dump/dump.car
+++ b/dump/dump.car
@@ -4480,6 +4480,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
--
GitLab
From b4f7ecfcfafeebb35b768c78623fc63f43608802 Mon Sep 17 00:00:00 2001
From: Ulrich Schwickerath <ulrich.schwickerath@cern.ch>
Date: Fri, 7 Feb 2025 10:10:43 +0100
Subject: [PATCH 2/2] print ecm
---
dump/dump.car | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/dump/dump.car b/dump/dump.car
index 81ba477..7245985 100644
--- a/dump/dump.car
+++ b/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)
--
GitLab