From a6a31362ab6ce1bfe9b8e64c81b01c82a571731e Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 4 Feb 2015 21:42:49 +0000 Subject: [PATCH] Better to set nflatten=0 here, for command-line speed tests. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4935 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/jt9.f90 | 2 +- lib/timer.f90 | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) 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()