wrong type

This commit is contained in:
Martin Diehl 2019-03-10 08:43:36 +01:00
parent 96c4599dc7
commit 0118fefe6e
1 changed files with 1 additions and 1 deletions

View File

@ -1147,7 +1147,7 @@ pure subroutine kinetics_slip(Mp,Temperature,instance,of, &
real(pReal), dimension(param(instance)%totalNslip) :: & real(pReal), dimension(param(instance)%totalNslip) :: &
dgdot_dtau dgdot_dtau
real, dimension(param(instance)%totalNslip) :: & real(pReal), dimension(param(instance)%totalNslip) :: &
tau, & tau, &
stressRatio, & stressRatio, &
StressRatio_p, & StressRatio_p, &