revert debug printout (nothing wrong showed up)

root-project · Jun 27, 2024 · 4f15d91 · 4f15d91
1 parent 4d9d059
commit 4f15d91
Showing 1 changed file with 1 addition and 5 deletions.
diff --git 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