w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-06 11:55:15 -04:00
Code Issues Packages Projects Releases Wiki Activity

Better to set nflatten=0 here, for command-line speed tests.

Browse Source 
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 e35f8cc555
commit a6a31362ab
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/jt9.f90
View File

@ -91,7 +91,7 @@ program jt9
limtrace=0 limtrace=0
lu=12 lu=12
nflatten=1 nflatten=0
do iarg = offset + 1, offset + remain do iarg = offset + 1, offset + remain
call get_command_argument (iarg, optarg, arglen) call get_command_argument (iarg, optarg, arglen)

4
lib/timer.f90
View File

@ -27,8 +27,8 @@ subroutine timer(dname,k)
data limtrace/0/,lu/-1/ data limtrace/0/,lu/-1/
!$omp threadprivate(level,space,onlevel) !$omp threadprivate(level,space,onlevel)
! currently this module is broken if called from multiple threads ! ! currently this module is broken if called from multiple threads
!$ return ! diable if usinh OpenMP ! !$ return ! diable if usinh OpenMP
tname=dname tname=dname
!$ write(thread,'(i1)') omp_get_thread_num() !$ write(thread,'(i1)') omp_get_thread_num()