diff --git a/dump/dump.car b/dump/dump.car index 8c500773c3210b82417eae306a4d2804894961a3..724598529e5535a52edda8c7e241f93ecb0edd3c 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) @@ -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