From b5055c8f07e97d40529e523e4d6065b32d0ef4f1 Mon Sep 17 00:00:00 2001 From: Yggdrasil Date: Tue, 5 May 2026 11:24:53 +0200 Subject: [PATCH] Fixed a bug in gread. --- event2_merge.f | 5 +++-- gbook.f | 3 ++- 2 files changed, 5 insertions(+), 3 deletions(-) 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')