whitespace adjustments

src/phase_mechanical_plastic_dislotungsten.f90

@@ -378,6 +378,7 @@ module subroutine dislotungsten_dependentState(ph,en)
   real(pReal), dimension(param(ph)%sum_N_sl) :: &
     dislocationSpacing
 
+
   associate(prm => param(ph), stt => state(ph),dst => dependentState(ph))
 
     dislocationSpacing = sqrt(matmul(prm%forestProjection,stt%rho_mob(:,en)+stt%rho_dip(:,en)))

src/phase_mechanical_plastic_dislotwin.f90

@@ -734,9 +734,7 @@ module subroutine dislotwin_dependentState(T,ph,en)
     x0
 
 
-  associate(prm => param(ph),&
+  associate(prm => param(ph), stt => state(ph), dst => dependentState(ph))
-            stt => state(ph),&
-            dst => dependentState(ph))
 
     sumf_tw = sum(stt%f_tw(1:prm%sum_N_tw,en))
     sumf_tr = sum(stt%f_tr(1:prm%sum_N_tr,en))
@@ -880,9 +878,7 @@ pure subroutine kinetics_sl(Mp,T,ph,en, &
 
   associate(prm => param(ph), stt => state(ph), dst => dependentState(ph))
 
-  do i = 1, prm%sum_N_sl
+  tau = [(math_tensordot(Mp,prm%P_sl(1:3,1:3,i)),i = 1, prm%sum_N_sl)]
-    tau(i) = math_tensordot(Mp,prm%P_sl(1:3,1:3,i))
-  enddo
 
   tau_eff = abs(tau)-dst%tau_pass(:,en)
 

src/phase_mechanical_plastic_isotropic.f90

@@ -170,6 +170,7 @@ module subroutine isotropic_LpAndItsTangent(Lp,dLp_dMp,Mp,ph,en)
   integer :: &
     k, l, m, n
 
+
   associate(prm => param(ph), stt => state(ph))
 
     Mp_dev = math_deviatoric33(Mp)
@@ -218,6 +219,7 @@ module subroutine plastic_isotropic_LiAndItsTangent(Li,dLi_dMi,Mi,ph,en)
   integer :: &
     k, l, m, n
 
+
   associate(prm => param(ph), stt => state(ph))
 
     tr=math_trace33(math_spherical33(Mi))

src/phase_mechanical_plastic_kinehardening.f90

@@ -280,8 +280,7 @@ module subroutine plastic_kinehardening_dotState(Mp,ph,en)
     dot_gamma_pos,dot_gamma_neg
 
 
-  associate(prm => param(ph), stt => state(ph),&
+  associate(prm => param(ph), stt => state(ph),dot => dotState(ph))
-            dot => dotState(ph))
 
     call kinetics(Mp,ph,en,dot_gamma_pos,dot_gamma_neg)
     dot%accshear(:,en) = abs(dot_gamma_pos+dot_gamma_neg)
@@ -328,7 +327,6 @@ module subroutine plastic_kinehardening_deltaState(Mp,ph,en)
                 sign(1.0_pReal,dot_gamma_pos+dot_gamma_neg), &                                      ! ...or have a defined
                 dEq0(dot_gamma_pos+dot_gamma_neg,1e-10_pReal))                                      ! current sense of shear direction
 
-
 !--------------------------------------------------------------------------------------------------
 ! switch in sense of shear?
   where(dNeq(sense,stt%sense(:,en),0.1_pReal))
@@ -412,6 +410,7 @@ pure subroutine kinetics(Mp,ph,en, &
     tau_neg
   integer :: i
 
+
   associate(prm => param(ph), stt => state(ph))
 
     do i = 1, prm%sum_N_sl
@@ -448,6 +447,7 @@ pure subroutine kinetics(Mp,ph,en, &
         ddot_gamma_dtau_neg = 0.0_pReal
       end where
     endif
+
   end associate
 
 end subroutine kinetics

src/phase_mechanical_plastic_phenopowerlaw.f90

@@ -344,10 +344,9 @@ module subroutine phenopowerlaw_dotState(Mp,ph,en)
     dot%gamma_sl(:,en) = abs(dot_gamma_sl_pos+dot_gamma_sl_neg)
     call kinetics_tw(Mp,ph,en,dot%gamma_tw(:,en))
 
-
     sumF = sum(stt%gamma_tw(:,en)/prm%gamma_char)
     xi_sl_sat_offset = prm%f_sat_sl_tw*sqrt(sumF)
-    right_SlipSlip = sign(abs(1.0_pReal-stt%xi_sl(:,en) / (prm%xi_inf_sl+xi_sl_sat_offset)) **prm%a_sl, &
+    right_SlipSlip = sign(abs(1.0_pReal-stt%xi_sl(:,en) / (prm%xi_inf_sl+xi_sl_sat_offset))**prm%a_sl, &
                           1.0_pReal-stt%xi_sl(:,en) / (prm%xi_inf_sl+xi_sl_sat_offset))
 
     dot%xi_sl(:,en) = prm%h_0_sl_sl * (1.0_pReal + prm%c_1*sumF** prm%c_2) * (1.0_pReal + prm%h_int) &
@@ -462,6 +461,7 @@ pure subroutine kinetics_sl(Mp,ph,en, &
         ddot_gamma_dtau_sl_neg = 0.0_pReal
       end where
     endif
+
   end associate
 
 end subroutine kinetics_sl
@@ -492,11 +492,10 @@ pure subroutine kinetics_tw(Mp,ph,en,&
     tau_tw
   integer :: i
 
+
   associate(prm => param(ph), stt => state(ph))
 
-  do i = 1, prm%sum_N_tw
+    tau_tw = [(math_tensordot(Mp,prm%P_tw(1:3,1:3,i)),i=1,prm%sum_N_tw)]
-    tau_tw(i)  = math_tensordot(Mp,prm%P_tw(1:3,1:3,i))
-  enddo
 
     where(tau_tw > 0.0_pReal)
       dot_gamma_tw = (1.0_pReal-sum(stt%gamma_tw(:,en)/prm%gamma_char)) &                           ! only twin in untwinned volume fraction