From b2a3c9235b628f365713d3e61c7b9d553ee7be60 Mon Sep 17 00:00:00 2001
From: Martin	Diehl <m.diehl@mpie.de>
Date: Wed, 8 May 2013 09:23:47 +0000
Subject: [PATCH] fixed some warnings issued by gfortran (type conversion, not
 needed use statements)

---
 code/constitutive.f90          | 19 +++++--------------
 code/constitutive_nonlocal.f90 |  2 +-
 2 files changed, 6 insertions(+), 15 deletions(-)

diff --git a/code/constitutive.f90 b/code/constitutive.f90
index 8f4d97735..12c4243ff 100644
--- a/code/constitutive.f90
+++ b/code/constitutive.f90
@@ -98,10 +98,7 @@ subroutine constitutive_init
    mesh_maxNips, &
    mesh_NcpElems, &
    mesh_element, &
-   mesh_ipNeighborhood, &
-   mesh_maxNipNeighbors, &
    FE_Nips, &
-   FE_NipNeighbors, &
    FE_geomtype
  use material, only: &
    material_phase, &
@@ -153,10 +150,9 @@ subroutine constitutive_init
  call constitutive_nonlocal_init(fileunit)  
  close(fileunit)
  
- write(6,*)
- write(6,*) '<<<+-  constitutive init  -+>>>'
- write(6,*) '$Id$'
- write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
+ write(6,'(/,a)')   '<<<+-  constitutive init  -+>>>'
+ write(6,'(a)')     '$Id$'
+ write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"
  
 !--------------------------------------------------------------------------------------------------
@@ -765,8 +761,7 @@ subroutine constitutive_collectDotState(Tstar_v, Fe, Fp, Temperature, subdt, sub
    debug_levelBasic
  use mesh, only: &
    mesh_NcpElems, &
-   mesh_maxNips, &
-   mesh_maxNipNeighbors
+   mesh_maxNips
  use material, only: &
    phase_plasticity, &
    material_phase, &
@@ -862,13 +857,9 @@ subroutine constitutive_collectDeltaState(Tstar_v, Temperature, g, i, e)
    debug_level, &
    debug_constitutive, &
    debug_levelBasic
- use mesh, only: &
-   mesh_NcpElems, &
-   mesh_maxNips
  use material, only: &
    phase_plasticity, &
-   material_phase, &
-   homogenization_maxNgrains
+   material_phase
  use constitutive_none, only: &
    constitutive_none_deltaState, &
    constitutive_none_label
diff --git a/code/constitutive_nonlocal.f90 b/code/constitutive_nonlocal.f90
index 172a90f2d..be31b423a 100644
--- a/code/constitutive_nonlocal.f90
+++ b/code/constitutive_nonlocal.f90
@@ -1438,7 +1438,7 @@ if (.not. phase_localPlasticity(phase) .and. constitutive_nonlocal_shortRangeStr
     rhoExcessGradient_over_rho = 0.0_pReal
     forall (c = 1_pInt:2_pInt) &
       rhoTotal(c) = (sum(abs(rhoSgl(s,[2*c-1,2*c,2*c+3,2*c+4]))) + rhoDip(s,c) + sum(neighboring_rhoTotal(c,s,:))) &
-                  / (1_pInt + nRealNeighbors)
+                  / real(1_pInt + nRealNeighbors,pReal)
     forall (c = 1_pInt:2_pInt, rhoTotal(c) > 0.0_pReal) &
       rhoExcessGradient_over_rho(c) = rhoExcessGradient(c) / rhoTotal(c)