gchiurato
/
EVENT2
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed a bug in gread.

This commit is contained in:
Yggdrasil 2026-05-05 11:24:53 +02:00
parent 3a4b0fd29f
commit b5055c8f07
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
event2_merge.f
View File

@ -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)

3
gbook.f
View File

@ -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')