style adjustments

- two empty lines after variables
- enddo, endif should have space

src/phase_mechanical_plastic.f90

@@ -261,6 +261,7 @@ module subroutine plastic_LpAndItsTangents(Lp, dLp_dS, dLp_dFi, &
   integer :: &
     i, j
 
+
   if (phase_plasticity(ph) == PLASTICITY_NONE_ID) then
     Lp      = 0.0_pReal
     dLp_dFi = 0.0_pReal
@@ -319,6 +320,7 @@ module function plastic_dotState(subdt,co,ip,el,ph,en) result(broken)
     Mp
   logical :: broken
 
+
   if (phase_plasticity(ph) /= PLASTICITY_NONE_ID) then
     Mp = matmul(matmul(transpose(phase_mechanical_Fi(ph)%data(1:3,1:3,en)),&
                        phase_mechanical_Fi(ph)%data(1:3,1:3,en)),phase_mechanical_S(ph)%data(1:3,1:3,en))