From fb937fd3b516c2640cea33e73d66c6bddbc5abd1 Mon Sep 17 00:00:00 2001 From: Olivier Couet Date: Mon, 24 Jun 2024 15:05:12 +0200 Subject: [PATCH 1/4] Hopefully, fix the long-standing problem with h2root --- main/src/h2root.cxx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/main/src/h2root.cxx b/main/src/h2root.cxx index b374c16c2ffaf..423c7e8c76554 100644 --- a/main/src/h2root.cxx +++ b/main/src/h2root.cxx @@ -312,7 +312,7 @@ int main(int argc, char **argv) int lun = 10; #ifndef WIN32 - hropen(lun,PASSCHAR("example"),PASSCHAR(file_in),PASSCHAR("px"),record_size,ier,7,strlen(file_in),2); + hropen(lun,PASSCHAR("example"),PASSCHAR(file_in),PASSCHAR("pxc"),record_size,ier,7,strlen(file_in),2); #else hropen(lun,PASSCHAR("example"),PASSCHAR(file_in),PASSCHAR("px"),record_size,ier); #endif From 4d9d0597cf4c41de106a51dd5d351b2e76e78a0b Mon Sep 17 00:00:00 2001 From: Olivier Couet Date: Thu, 27 Jun 2024 11:22:01 +0200 Subject: [PATCH 2/4] somme debug printouts --- misc/minicern/src/hbook.f | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index 522c731686169..f9f155d97f24f 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -371,8 +371,13 @@ SUBROUTINE HRFILE(LUN,CHDIR,CHOPT) HFNAME(NCHTOP)='Global memory - '//CHDIR ENDIF ENDIF - 10 CHMAIL='//'//CHTOP(NCHTOP) + 10 print*, "In HROPEN CHMAIL = ", CHMAIL + print*, "In HROPEN NCHTOP = ", NCHTOP + print*, "In HROPEN CHTOP(NCHTOP) = ", CHTOP(NCHTOP) + CHMAIL='//'//CHTOP(NCHTOP) + print*, "In HROPEN CHMAIL = ", CHMAIL CALL HCDIR(CHMAIL,' ') + 99 RETURN END From 4f15d91866038136b6bfda3f58fcd3165b9b4ae1 Mon Sep 17 00:00:00 2001 From: Olivier Couet Date: Thu, 27 Jun 2024 12:44:05 +0200 Subject: [PATCH 3/4] revert debug printout (nothing wrong showed up) --- misc/minicern/src/hbook.f | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index f9f155d97f24f..1b1cc257594f9 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -371,11 +371,7 @@ SUBROUTINE HRFILE(LUN,CHDIR,CHOPT) HFNAME(NCHTOP)='Global memory - '//CHDIR ENDIF ENDIF - 10 print*, "In HROPEN CHMAIL = ", CHMAIL - print*, "In HROPEN NCHTOP = ", NCHTOP - print*, "In HROPEN CHTOP(NCHTOP) = ", CHTOP(NCHTOP) - CHMAIL='//'//CHTOP(NCHTOP) - print*, "In HROPEN CHMAIL = ", CHMAIL + 10 CHMAIL='//'//CHTOP(NCHTOP) CALL HCDIR(CHMAIL,' ') 99 RETURN From e0527581a0ef3ba410a9347aa405182d6b6bf161 Mon Sep 17 00:00:00 2001 From: Olivier Couet Date: Thu, 19 Dec 2024 11:03:38 +0100 Subject: [PATCH 4/4] remove extra white line --- misc/minicern/src/hbook.f | 1 - 1 file changed, 1 deletion(-) diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index 1b1cc257594f9..522c731686169 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -373,7 +373,6 @@ SUBROUTINE HRFILE(LUN,CHDIR,CHOPT) ENDIF 10 CHMAIL='//'//CHTOP(NCHTOP) CALL HCDIR(CHMAIL,' ') - 99 RETURN END