Need space for more calls to timer().

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

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

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/