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, &