diff --git a/lib/jt9.f90 b/lib/jt9.f90 index 515eaad05..a40d30da6 100644 --- a/lib/jt9.f90 +++ b/lib/jt9.f90 @@ -91,7 +91,7 @@ program jt9 limtrace=0 lu=12 - nflatten=1 + nflatten=0 do iarg = offset + 1, offset + remain call get_command_argument (iarg, optarg, arglen) diff --git a/lib/timer.f90 b/lib/timer.f90 index 741467954..3534c87c3 100644 --- a/lib/timer.f90 +++ b/lib/timer.f90 @@ -27,8 +27,8 @@ subroutine timer(dname,k) data limtrace/0/,lu/-1/ !$omp threadprivate(level,space,onlevel) - ! currently this module is broken if called from multiple threads - !$ return ! diable if usinh OpenMP +! ! currently this module is broken if called from multiple threads +! !$ return ! diable if usinh OpenMP tname=dname !$ write(thread,'(i1)') omp_get_thread_num()