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

3
event2_merge.f
View File

@ -1,8 +1,9 @@
C----------------------------------------------------------------------- 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 --- DESIGNED TO BE USED IN CONJUNCTION WITH EERAD2 V0.4
C C
C VERSION 0.0 - 28th April 2026 C VERSION 0.0 - 28th April 2026
C VERSION 0.1 - 5th May 2026 - Added log binning.
C C
C WRITTEN BY G. CHIURATO C WRITTEN BY G. CHIURATO
C C

3
gbook.f
View File

@ -1031,11 +1031,12 @@ C-----------------------------------------------------------------------
PARAMETER (NSIZE=200000, NMAX=2000) PARAMETER (NSIZE=200000, NMAX=2000)
COMMON /GBOOK/ A(NSIZE) COMMON /GBOOK/ A(NSIZE)
INTEGER NX, IOS, ID, IDERR INTEGER NX, IOS, ID, IDERR, LH
LOGICAL INDATA LOGICAL INDATA
INDATA = .FALSE. INDATA = .FALSE.
IDERR = 0 IDERR = 0
LH = 0
OPEN(10, FILE=FILE, STATUS='OLD') OPEN(10, FILE=FILE, STATUS='OLD')