vectorized

There seems to be a bug in the interaction matrix, there should be no
transpose. However, the transpose recovers the old behavior (up to
machine precision)

src/constitutive_plastic_nonlocal.f90

@@ -706,9 +706,8 @@ module subroutine plastic_nonlocal_dependentState(F, Fp, ip, el)
     myInteractionMatrix = prm%interactionSlipSlip
   endif
 
-  forall (s = 1:ns) dst%tau_pass(s,of) = prm%mu * prm%burgers(s) &
-                                       * sqrt(dot_product(sum(abs(rho),2), myInteractionMatrix(:,s)))
-
+  dst%tau_pass(:,of) = prm%mu * prm%burgers &
+                     * sqrt(matmul(transpose(myInteractionMatrix),sum(abs(rho),2)))                 ! ToDo: MD the transpose seems wrong here (cf other laws)
 
 !*** calculate the dislocation stress of the neighboring excess dislocation densities
 !*** zero for material points of local plasticity