mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-02-03 09:44:24 -05:00
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:
parent
91b909b581
commit
c7faf40d34
@ -14,7 +14,7 @@ FC = c:/JTSDK/Qt5/Tools/mingw48_32/bin/gfortran
|
||||
CXX = c:/JTSDK/Qt5/Tools/mingw48_32/bin/g++
|
||||
|
||||
FFLAGS = -O3 -Wall -Wno-conversion -fno-second-underscore -DWIN32
|
||||
CFLAGS = -I. -mno-stack-arg-probe -DWIN32
|
||||
CFLAGS = -I. -DWIN32
|
||||
|
||||
# Default rules
|
||||
%.o: %.c
|
||||
|
@ -9,16 +9,17 @@ subroutine timer(dname,k)
|
||||
!$ end function
|
||||
!$ end interface
|
||||
|
||||
parameter (MAXCALL=100)
|
||||
character*8 dname
|
||||
!$ character thread
|
||||
character*11 tname,ename
|
||||
character*16 sname
|
||||
character*11, save :: space
|
||||
integer, save :: level, nmax
|
||||
character*11, save :: name(50)
|
||||
logical, save :: on(50)
|
||||
real, save :: ut(50),ut0(50),dut(50)
|
||||
integer, save :: ncall(50),nlevel(50),nparent(50)
|
||||
character*11, save :: name(MAXCALL)
|
||||
logical, save :: on(MAXCALL)
|
||||
real, save :: ut(MAXCALL),ut0(MAXCALL),dut(MAXCALL)
|
||||
integer, save :: ncall(MAXCALL),nlevel(MAXCALL),nparent(MAXCALL)
|
||||
integer, save :: onlevel(0:10)
|
||||
common/tracer/ limtrace,lu
|
||||
data eps/0.000001/,ntrace/0/
|
||||
|
Loading…
Reference in New Issue
Block a user