Skip to content
Snippets Groups Projects
Commit 6b17d047 authored by Ulrich Schwickerath's avatar Ulrich Schwickerath
Browse files

print out event, run and ecm information

parent 693b46d9
No related branches found
No related tags found
1 merge request!2print ECM per event
Show whitespace changes
Inline Side-by-side
Showing
with 1 addition and 0 deletions
dump/dump.car
+ 1
− 0
View file @ 6b17d047
......@@ -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
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please to comment