From dbed7056e5d96847b5ce23f6b03c319458973220 Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Mon, 20 Aug 2018 17:07:20 +0200
Subject: [PATCH] [skip sc] cleaning

---
 src/CPFEM2.f90        | 12 +-----------
 src/FEM_utilities.f90 |  3 +--
 2 files changed, 2 insertions(+), 13 deletions(-)

diff --git a/src/CPFEM2.f90 b/src/CPFEM2.f90
index 9f75bf8c6..89e65f5fd 100644
--- a/src/CPFEM2.f90
+++ b/src/CPFEM2.f90
@@ -196,7 +196,7 @@ end subroutine CPFEM_init
 
 
 !--------------------------------------------------------------------------------------------------
-!> @brief perform initialization at first call, update variables and call the actual material model
+!> @brief forwards data after successful increment
 !--------------------------------------------------------------------------------------------------
 subroutine CPFEM_age()
  use prec, only: &
@@ -212,16 +212,6 @@ subroutine CPFEM_age()
    debug_levelSelective
  use FEsolving, only: &
    restartWrite
- use math, only: &
-   math_identity2nd, &
-   math_mul33x33, &
-   math_det33, &
-   math_transpose33, &
-   math_I3, &
-   math_Mandel3333to66, &
-   math_Mandel66to3333, &
-   math_Mandel33to6, &
-   math_Mandel6to33
  use material, only: &
    plasticState, &
    sourceState, &
diff --git a/src/FEM_utilities.f90 b/src/FEM_utilities.f90
index 4947fb0c7..f911835ac 100644
--- a/src/FEM_utilities.f90
+++ b/src/FEM_utilities.f90
@@ -469,8 +469,7 @@ subroutine utilities_constitutiveResponse(timeinc,P_av,forwardData)
  real(pReal)   :: defgradDetMin, defgradDetMax, defgradDet
  PetscErrorCode :: ierr
 
- if (worldrank == 0) &
-   write(6,'(/,a)') ' ... evaluating constitutive response ......................................'
+ write(6,'(/,a)') ' ... evaluating constitutive response ......................................'
 
  age = .False.
  if (forwardData) then                                                                              ! aging results