From 7c101cdc31f43ebe903338c4a5d3887f90fd178a Mon Sep 17 00:00:00 2001 From: Tias Maiti Date: Thu, 23 Jul 2015 19:22:03 +0000 Subject: [PATCH] fixed issues causing compilation errors --- code/kinematics_thermal_expansion.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/code/kinematics_thermal_expansion.f90 b/code/kinematics_thermal_expansion.f90 index a53ef1dc6..1e2560890 100644 --- a/code/kinematics_thermal_expansion.f90 +++ b/code/kinematics_thermal_expansion.f90 @@ -166,7 +166,7 @@ use math, only: & lattice_referenceTemperature implicit none - integer(pInt) :: & + integer(pInt), intent(in) :: & ipc, & !< grain number ip, & !< integration point number el !< element number @@ -206,7 +206,7 @@ subroutine kinematics_thermal_expansion_LiAndItsTangent(Li, dLi_dTstar3333, ipc, real(pReal), intent(out), dimension(3,3) :: & Li !< thermal velocity gradient real(pReal), intent(out), dimension(3,3,3,3) :: & - dLi_dTstar3333 = 0.0_pReal !< derivative of Li with respect to Tstar (4th-order tensor defined to be zero) + dLi_dTstar3333 !< derivative of Li with respect to Tstar (4th-order tensor defined to be zero) integer(pInt) :: & phase, & homog, offset @@ -216,6 +216,7 @@ subroutine kinematics_thermal_expansion_LiAndItsTangent(Li, dLi_dTstar3333, ipc, offset = thermalMapping(homog)%p(ip,el) Li = temperatureRate(homog)%p(offset) * lattice_thermalExpansion33(1:3,1:3,phase) + dLi_dTstar3333 = 0.0_pReal end subroutine kinematics_thermal_expansion_LiAndItsTangent