From 0118fefe6e22226c2e0c3964fa724965482ce396 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 10 Mar 2019 08:43:36 +0100 Subject: [PATCH] wrong type --- src/plastic_dislotwin.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/plastic_dislotwin.f90 b/src/plastic_dislotwin.f90 index 6976e2096..d353e3e0e 100644 --- a/src/plastic_dislotwin.f90 +++ b/src/plastic_dislotwin.f90 @@ -1147,7 +1147,7 @@ pure subroutine kinetics_slip(Mp,Temperature,instance,of, & real(pReal), dimension(param(instance)%totalNslip) :: & dgdot_dtau - real, dimension(param(instance)%totalNslip) :: & + real(pReal), dimension(param(instance)%totalNslip) :: & tau, & stressRatio, & StressRatio_p, &