From 4d393518ac180ed35210038c0abcb08eb846a379 Mon Sep 17 00:00:00 2001
From: Arka Lahiri <a.lahiri@mpie.de>
Date: Wed, 9 May 2018 16:54:06 +0200
Subject: [PATCH] did only compile with BUILD_TYPE=DEBUG

---
 src/constitutive.f90 | 19 -------------------
 src/crystallite.f90  | 28 ++++++----------------------
 2 files changed, 6 insertions(+), 41 deletions(-)

diff --git a/src/constitutive.f90 b/src/constitutive.f90
index 27e81e03e..bcb895a71 100644
--- a/src/constitutive.f90
+++ b/src/constitutive.f90
@@ -948,15 +948,6 @@ subroutine constitutive_collectDotState(Tstar_v, FeArray, FpArray, subdt, subfra
    end select sourceType
  enddo SourceLoop
 
- if (iand(debug_level(debug_constitutive), debug_levelBasic) /= 0_pInt) then
-   call system_clock(count=tock,count_rate=tickrate,count_max=maxticks)
-   !$OMP CRITICAL (debugTimingDotState)
-   !debug_cumDotStateCalls = debug_cumDotStateCalls + 1_pInt
-   !debug_cumDotStateTicks = debug_cumDotStateTicks + tock-tick
-   !$OMP FLUSH (debug_cumDotStateTicks)
-   !if (tock < tick) debug_cumDotStateTicks  = debug_cumDotStateTicks + maxticks
-   !$OMP END CRITICAL (debugTimingDotState)
- endif
 end subroutine constitutive_collectDotState
 
 !--------------------------------------------------------------------------------------------------
@@ -1032,16 +1023,6 @@ subroutine constitutive_collectDeltaState(Tstar_v, Fe, ipc, ip, el)
    end select sourceType
  enddo SourceLoop
 
- if (iand(debug_level(debug_constitutive), debug_levelBasic) /= 0_pInt) then
-   call system_clock(count=tock,count_rate=tickrate,count_max=maxticks)
-   !$OMP CRITICAL (debugTimingDeltaState)
-     !debug_cumDeltaStateCalls = debug_cumDeltaStateCalls + 1_pInt
-     !debug_cumDeltaStateTicks = debug_cumDeltaStateTicks + tock-tick
-     !$OMP FLUSH (debug_cumDeltaStateTicks)
-     !if (tock < tick) debug_cumDeltaStateTicks  = debug_cumDeltaStateTicks + maxticks
-   !$OMP END CRITICAL (debugTimingDeltaState)
- endif
-
 end subroutine constitutive_collectDeltaState
 
 
diff --git a/src/crystallite.f90 b/src/crystallite.f90
index a28c8f208..b73d11b17 100644
--- a/src/crystallite.f90
+++ b/src/crystallite.f90
@@ -3239,19 +3239,16 @@ logical function crystallite_integrateStress(&
                          subStepSizeLp, &
                          subStepSizeLi
  use debug, only:        debug_level, &
-                         debug_crystallite, &
-                         debug_levelBasic, &
-                         debug_levelExtensive, &
-                         debug_levelSelective, &
 #ifdef DEBUG
                          debug_e, &
                          debug_i, &
-                         debug_g!, &
+                         debug_g, &
 #endif
-                         !debug_cumLpCalls, &
-                         !debug_cumLpTicks, &
-                         !debug_StressLoopLpDistribution, &
-                         !debug_StressLoopLiDistribution
+                         debug_crystallite, &
+                         debug_levelBasic, &
+                         debug_levelExtensive, &
+                         debug_levelSelective
+
  use constitutive, only: constitutive_LpAndItsTangent, &
                          constitutive_LiAndItsTangent, &
                          constitutive_TandItsTangent
@@ -3457,9 +3454,6 @@ logical function crystallite_integrateStress(&
 
      !* calculate plastic velocity gradient and its tangent from constitutive law
 
-     if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) &
-       call system_clock(count=tick,count_rate=tickrate,count_max=maxticks)
-
 #ifdef DEBUG
      if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt &
          .and. ((el == debug_e .and. ip == debug_i .and. ipc == debug_g) &
@@ -3474,16 +3468,6 @@ logical function crystallite_integrateStress(&
      call constitutive_LpAndItsTangent(Lp_constitutive, dLp_dT3333, dLp_dFi3333, &
                                        Tstar_v, Fi_new, ipc, ip, el)
 
-     if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
-       call system_clock(count=tock,count_rate=tickrate,count_max=maxticks)
-       !$OMP CRITICAL (debugTimingLpTangent)
-         !debug_cumLpCalls = debug_cumLpCalls + 1_pInt
-         !debug_cumLpTicks = debug_cumLpTicks + tock-tick
-         !$OMP FLUSH (debug_cumLpTicks)
-         !if (tock < tick) debug_cumLpTicks = debug_cumLpTicks + maxticks
-       !$OMP END CRITICAL (debugTimingLpTangent)
-     endif
-
 #ifdef DEBUG
      if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt &
          .and. ((el == debug_e .and. ip == debug_i .and. ipc == debug_g) &