diff --git a/trunk/CPFEM.f90 b/trunk/CPFEM.f90
index 6eb97da89..8e98725c1 100644
--- a/trunk/CPFEM.f90
+++ b/trunk/CPFEM.f90
@@ -137,7 +137,8 @@
      cp_en,&          ! Element number
      CPFEM_in)        ! Integration point number
 
- use prec, only: pReal,pInt,ijaco,nCutback
+ use prec, only: pReal,pInt,ijaco,nCutback
+ use math, only: math_pDecomposition,math_RtoEuler
  use IO,   only: IO_error
  use mesh, only: mesh_element
  use constitutive
@@ -158,7 +159,7 @@
 
  updateJaco = (mod(CPFEM_cn,ijaco)==0)   ! update consistent tangent every ijaco'th iteration
 
- CPFEM_stress_all(:,CPFEM_in,cp_en) = 0.0_pReal                ! average Cauchy stress
+ CPFEM_stress_all(:,CPFEM_in,cp_en) = 0.0_pReal                  ! average Cauchy stress
  if (updateJaco) CPFEM_jaco_old(:,:,CPFEM_in,cp_en) = 0.0_pReal  ! average consistent tangent
 
 ! -------------- grain loop -----------------
diff --git a/trunk/constitutive.f90 b/trunk/constitutive.f90
index d78122f8d..e51c89a1e 100644
--- a/trunk/constitutive.f90
+++ b/trunk/constitutive.f90
@@ -84,7 +84,7 @@ real(pReal), dimension(:,:,:,:), allocatable :: constitutive_state_new
 !************************************
 !*             Results              *
 !************************************
-integer(pInt), constitutive_maxNresults
+integer(pInt) constitutive_maxNresults
 integer(pInt), dimension(:,:,:), allocatable :: constitutive_Nresults
 real(pReal), dimension(:,:,:,:), allocatable :: constitutive_results