From eb0d2b7e2448ea09c7bedd0a0fe3d284971af0e2 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Wed, 23 Oct 2013 11:23:41 +0000 Subject: [PATCH] fixed bug that (sometimes, always?) prevented reading in of debug.config, when variable 'line' was still '#EOF#' from former IO_read... --- code/debug.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/debug.f90 b/code/debug.f90 index f8be27a68..35d29b436 100644 --- a/code/debug.f90 +++ b/code/debug.f90 @@ -175,7 +175,7 @@ subroutine debug_init !-------------------------------------------------------------------------------------------------- ! try to open the config file - + line = '' fileExists: if(IO_open_file_stat(fileunit,debug_configFile)) then do while (trim(line) /= '#EOF#') ! read thru sections of phase part line = IO_read(fileunit) @@ -253,7 +253,7 @@ subroutine debug_init if (debug_level(i) == 0) & debug_level(i) = ior(debug_level(i), debug_level(debug_MAXNTYPE + 2_pInt)) ! fill undefined debug types with levels specified by "other" - debug_level(i) = ior(debug_level(i), debug_level(debug_MAXNTYPE + 1_pInt)) ! fill all debug types with levels specified by "all" + debug_level(i) = ior(debug_level(i), debug_level(debug_MAXNTYPE + 1_pInt)) ! fill all debug types with levels specified by "all" enddo if (iand(debug_level(debug_debug),debug_LEVELBASIC) /= 0) &