223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fixed some warnings issued by gfortran (type conversion, not needed use statements)

This commit is contained in:
Martin Diehl 2013-05-08 09:23:47 +00:00
parent a345fc2e19
commit b2a3c9235b
2 changed files with 6 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
code/constitutive.f90
View File

@ -98,10 +98,7 @@ subroutine constitutive_init
mesh_maxNips, & mesh_maxNips, &
mesh_NcpElems, & mesh_NcpElems, &
mesh_element, & mesh_element, &
mesh_ipNeighborhood, &
mesh_maxNipNeighbors, &
FE_Nips, & FE_Nips, &
FE_NipNeighbors, &
FE_geomtype FE_geomtype
use material, only: & use material, only: &
material_phase, & material_phase, &
@ -153,10 +150,9 @@ subroutine constitutive_init
call constitutive_nonlocal_init(fileunit) call constitutive_nonlocal_init(fileunit)
close(fileunit) close(fileunit)
write(6,*) write(6,'(/,a)') '<<<+- constitutive init -+>>>'
write(6,*) '<<<+- constitutive init -+>>>' write(6,'(a)') '$Id$'
write(6,*) '$Id$' write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90" #include "compilation_info.f90"
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
@ -765,8 +761,7 @@ subroutine constitutive_collectDotState(Tstar_v, Fe, Fp, Temperature, subdt, sub
debug_levelBasic debug_levelBasic
use mesh, only: & use mesh, only: &
mesh_NcpElems, & mesh_NcpElems, &
mesh_maxNips, & mesh_maxNips
mesh_maxNipNeighbors
use material, only: & use material, only: &
phase_plasticity, & phase_plasticity, &
material_phase, & material_phase, &
@ -862,13 +857,9 @@ subroutine constitutive_collectDeltaState(Tstar_v, Temperature, g, i, e)
debug_level, & debug_level, &
debug_constitutive, & debug_constitutive, &
debug_levelBasic debug_levelBasic
use mesh, only: &
mesh_NcpElems, &
mesh_maxNips
use material, only: & use material, only: &
phase_plasticity, & phase_plasticity, &
material_phase, & material_phase
homogenization_maxNgrains
use constitutive_none, only: & use constitutive_none, only: &
constitutive_none_deltaState, & constitutive_none_deltaState, &
constitutive_none_label constitutive_none_label

2
code/constitutive_nonlocal.f90
View File

@ -1438,7 +1438,7 @@ if (.not. phase_localPlasticity(phase) .and. constitutive_nonlocal_shortRangeStr
rhoExcessGradient_over_rho = 0.0_pReal rhoExcessGradient_over_rho = 0.0_pReal
forall (c = 1_pInt:2_pInt) & 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,:))) & 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) & forall (c = 1_pInt:2_pInt, rhoTotal(c) > 0.0_pReal) &
rhoExcessGradient_over_rho(c) = rhoExcessGradient(c) / rhoTotal(c) rhoExcessGradient_over_rho(c) = rhoExcessGradient(c) / rhoTotal(c)