style adjustments

src/phase_mechanical_plastic_dislotungsten.f90

@@ -148,7 +148,7 @@ module function plastic_dislotungsten_init() result(myPlasticity)
       else
         prm%P_nS_pos = prm%P_sl
         prm%P_nS_neg = prm%P_sl
-      endif
+      end if
 
       prm%h_sl_sl = lattice_interaction_SlipBySlip(N_sl,pl%get_as1dFloat('h_sl-sl'), &
                                                    phase_lattice(ph))
@@ -209,13 +209,13 @@ module function plastic_dislotungsten_init() result(myPlasticity)
       if (any(prm%f_at         <= 0.0_pReal)) extmsg = trim(extmsg)//' f_at or b_sl'
 
     else slipActive
-      rho_mob_0= emptyRealArray; rho_dip_0 = emptyRealArray
+      rho_mob_0 = emptyRealArray; rho_dip_0 = emptyRealArray
       allocate(prm%b_sl,prm%d_caron,prm%i_sl,prm%f_at,prm%tau_Peierls, &
                prm%Q_s,prm%v_0,prm%p,prm%q,prm%B,prm%h,prm%w,prm%omega, &
                source = emptyRealArray)
       allocate(prm%forestProjection(0,0))
       allocate(prm%h_sl_sl         (0,0))
-    endif slipActive
+    end if slipActive
 
 !--------------------------------------------------------------------------------------------------
 ! allocate state arrays
@@ -258,7 +258,7 @@ module function plastic_dislotungsten_init() result(myPlasticity)
 !  exit if any parameter is out of range
     if (extmsg /= '') call IO_error(211,ext_msg=trim(extmsg)//'(dislotungsten)')
 
-  enddo
+  end do
 
 end function plastic_dislotungsten_init
 
@@ -287,6 +287,7 @@ pure module subroutine dislotungsten_LpAndItsTangent(Lp,dLp_dMp, &
     dot_gamma_pos,dot_gamma_neg, &
     ddot_gamma_dtau_pos,ddot_gamma_dtau_neg
 
+
   Lp = 0.0_pReal
   dLp_dMp = 0.0_pReal
 
@@ -299,7 +300,7 @@ pure module subroutine dislotungsten_LpAndItsTangent(Lp,dLp_dMp, &
         dLp_dMp(k,l,m,n) = dLp_dMp(k,l,m,n) &
                          + ddot_gamma_dtau_pos(i) * prm%P_sl(k,l,i) * prm%P_nS_pos(m,n,i) &
                          + ddot_gamma_dtau_neg(i) * prm%P_sl(k,l,i) * prm%P_nS_neg(m,n,i)
-  enddo
+    end do
 
   end associate
 
@@ -328,6 +329,7 @@ module subroutine dislotungsten_dotState(Mp,T,ph,en)
     dot_rho_dip_climb, &
     d_hat
 
+
   associate(prm => param(ph), stt => state(ph), dot => dotState(ph), dst => dependentState(ph))
 
     call kinetics(Mp,T,ph,en,&
@@ -423,7 +425,7 @@ module subroutine plastic_dislotungsten_results(ph,group)
                                     'threshold stress for slip','Pa',prm%systems_sl)
       end select
 
-    enddo
+    end do
 
   end associate
 
@@ -456,6 +458,7 @@ pure subroutine kinetics(Mp,T,ph,en, &
     ddot_gamma_dtau_neg, &
     tau_pos_out, &
     tau_neg_out
+
   real(pReal), dimension(param(ph)%sum_N_sl) :: &
     StressRatio, &
     StressRatio_p,StressRatio_pminus1, &
@@ -464,13 +467,13 @@ pure subroutine kinetics(Mp,T,ph,en, &
     t_n, t_k, dtk,dtn
   integer :: j
 
+
   associate(prm => param(ph), stt => state(ph), dst => dependentState(ph))
 
     do j = 1, prm%sum_N_sl
       tau_pos(j) = math_tensordot(Mp,prm%P_nS_pos(1:3,1:3,j))
       tau_neg(j) = math_tensordot(Mp,prm%P_nS_neg(1:3,1:3,j))
-  enddo
-
+    end do
 
     if (present(tau_pos_out)) tau_pos_out = tau_pos
     if (present(tau_neg_out)) tau_neg_out = tau_neg
@@ -506,7 +509,7 @@ pure subroutine kinetics(Mp,T,ph,en, &
         else where significantPositiveTau2
           ddot_gamma_dtau_pos = 0.0_pReal
         end where significantPositiveTau2
-  endif
+      end if
 
       significantNegativeTau: where(abs(tau_neg)-dst%tau_pass(:,en) > tol_math_check)
         StressRatio = (abs(tau_neg)-dst%tau_pass(:,en))/prm%tau_Peierls