diff --git a/event2_merge.f b/event2_merge.f index 908ad18..c6e618a 100644 --- a/event2_merge.f +++ b/event2_merge.f @@ -1,8 +1,9 @@ C----------------------------------------------------------------------- -C --- HISTOGRAM MERGING UTILITY, VERSION 0.0 +C --- HISTOGRAM MERGING UTILITY, VERSION 0.1 C --- DESIGNED TO BE USED IN CONJUNCTION WITH EERAD2 V0.4 C C VERSION 0.0 - 28th April 2026 +C VERSION 0.1 - 5th May 2026 - Added log binning. C C WRITTEN BY G. CHIURATO C @@ -70,7 +71,7 @@ C --- NEED TO USE UNIT 20 TO AVOID CONFLICT WITH UNIT 10 USED BY GREAD C --- READ FIRST HIST AND SAVE BIN NUMBER AND TITLE READ(20, '(A)', END=20) LINE CALL GREAD(LINE) - CALL GPROP1(ID, NX, XMIN, XMAX,LH) + CALL GPROP1(ID, NX, XMIN, XMAX, LH) C --- TODO: IN THIS WAY THE MERGED HIST HAS THE SAME NAME AS THE LAST C OPENED HIST. NEED TO CHANGE THIS TO SOMETHING DIFFERENT CALL GTITLE(ID, TITLE, LENTIT) diff --git a/gbook.f b/gbook.f index ae34bc8..0ee3c1c 100644 --- a/gbook.f +++ b/gbook.f @@ -1031,11 +1031,12 @@ C----------------------------------------------------------------------- PARAMETER (NSIZE=200000, NMAX=2000) COMMON /GBOOK/ A(NSIZE) - INTEGER NX, IOS, ID, IDERR + INTEGER NX, IOS, ID, IDERR, LH LOGICAL INDATA INDATA = .FALSE. IDERR = 0 + LH = 0 OPEN(10, FILE=FILE, STATUS='OLD')