wrong assignmen (scalar to vector)

2019-03-19 14:56:36 +01:00 · 2019-03-19 14:56:36 +01:00 · 5f53147e96
parent 8a07ff4617
commit 5f53147e96
1 changed files with 2 additions and 2 deletions
--- a/src/plastic_dislotwin.f90
+++ b/src/plastic_dislotwin.f90
@ -921,7 +921,7 @@ subroutine plastic_dislotwin_dependentState(temperature,instance,of)


 forall (i = 1:prm%totalNslip) &
-   lambda_sl_sl_inv = &
+   lambda_sl_sl_inv(i) = &
     sqrt(dot_product((stt%rhoEdge(1:prm%totalNslip,of)+stt%rhoEdgeDip(1:prm%totalNslip,of)),&
                      prm%forestProjection(1:prm%totalNslip,i)))/prm%CLambdaSlip(i) ! change order and use matmul