w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-12 07:06:17 -05:00
Code Issues Packages Projects Releases Wiki Activity

Need space for more calls to timer().

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4929 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2015-02-04 15:05:39 +00:00
parent 91b909b581
commit c7faf40d34
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Makefile.jtsdk
View File

@ -14,7 +14,7 @@ FC = c:/JTSDK/Qt5/Tools/mingw48_32/bin/gfortran
CXX = c:/JTSDK/Qt5/Tools/mingw48_32/bin/g++ CXX = c:/JTSDK/Qt5/Tools/mingw48_32/bin/g++
FFLAGS = -O3 -Wall -Wno-conversion -fno-second-underscore -DWIN32 FFLAGS = -O3 -Wall -Wno-conversion -fno-second-underscore -DWIN32
CFLAGS = -I. -mno-stack-arg-probe -DWIN32 CFLAGS = -I. -DWIN32
# Default rules # Default rules
%.o: %.c %.o: %.c

9
lib/timer.f90
View File

@ -9,16 +9,17 @@ subroutine timer(dname,k)
!$ end function !$ end function
!$ end interface !$ end interface
parameter (MAXCALL=100)
character*8 dname character*8 dname
!$ character thread !$ character thread
character*11 tname,ename character*11 tname,ename
character*16 sname character*16 sname
character*11, save :: space character*11, save :: space
integer, save :: level, nmax integer, save :: level, nmax
character*11, save :: name(50) character*11, save :: name(MAXCALL)
logical, save :: on(50) logical, save :: on(MAXCALL)
real, save :: ut(50),ut0(50),dut(50) real, save :: ut(MAXCALL),ut0(MAXCALL),dut(MAXCALL)
integer, save :: ncall(50),nlevel(50),nparent(50) integer, save :: ncall(MAXCALL),nlevel(MAXCALL),nparent(MAXCALL)
integer, save :: onlevel(0:10) integer, save :: onlevel(0:10)
common/tracer/ limtrace,lu common/tracer/ limtrace,lu
data eps/0.000001/,ntrace/0/ data eps/0.000001/,ntrace/0/