From c7faf40d345ee880a8d35f10283d3425b4d2cc12 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Wed, 4 Feb 2015 15:05:39 +0000
Subject: [PATCH] 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
---
 lib/Makefile.jtsdk | 2 +-
 lib/timer.f90      | 9 +++++----
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/lib/Makefile.jtsdk b/lib/Makefile.jtsdk
index cde1126db..77876fdb7 100644
--- a/lib/Makefile.jtsdk
+++ b/lib/Makefile.jtsdk
@@ -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
diff --git a/lib/timer.f90 b/lib/timer.f90
index 227f44066..046e2fc55 100644
--- a/lib/timer.f90
+++ b/lib/timer.f90
@@ -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/