From 78eed33d6d39fd0d2fe0bfb1012d7c3d1f761461 Mon Sep 17 00:00:00 2001
From: Christoph	Kords <c.kords@mpie.de>
Date: Mon, 30 Mar 2009 14:54:05 +0000
Subject: [PATCH] changed "tickrate" to type integer(8) for microsecond
 resolution

---
 trunk/debug.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/trunk/debug.f90 b/trunk/debug.f90
index 5d06f2600..8ef4c23eb 100644
--- a/trunk/debug.f90
+++ b/trunk/debug.f90
@@ -28,7 +28,7 @@
  implicit none
 
  integer(pInt) i,integral
- integer(pInt) tickrate
+ integer(8) tickrate
 
  write(6,*)
  write(6,*) 'DEBUG Info'
@@ -56,7 +56,7 @@
  write(6,*)
  
  integral = 0_pInt
- write(6,*)	'distribution_InnerLoop :'
+ write(6,*)	'distribution_InnerLoop :'
  do i=1,nInner
    if (debug_InnerLoopDistribution(i) /= 0) then
      integral = integral + i*debug_InnerLoopDistribution(i)