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
This commit is contained in:
Joe Taylor 2015-02-04 21:42:49 +00:00
parent 06c83c580d
commit 5de52a2516
2 changed files with 3 additions and 3 deletions

View File

@ -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)

View File

@ -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()