fixed style and corrected copy and paste errors

src/grid/DAMASK_grid.f90

@@ -32,7 +32,7 @@ program DAMASK_grid
   implicit none
 
   type :: tLoadCase
-    type(tRotation)           :: rot                                                                !< rotation of BC
+    type(tRotation)          :: rot                                                                !< rotation of BC
     type(tBoundaryCondition) :: stress, &                                                           !< stress BC
                                 deformation                                                         !< deformation BC (dot_F, F, or L)
     real(pReal) ::              t, &                                                                !< length of increment

src/grid/grid_mech_FEM.f90

@@ -339,7 +339,7 @@ subroutine grid_mechanical_FEM_forward(cutBack,guess,Delta_t,Delta_t_old,t_remai
   type(tBoundaryCondition), intent(in) :: &
     stress_BC, &
     deformation_BC
-  type(tRotation),           intent(in) :: &
+  type(tRotation),          intent(in) :: &
     rotation_BC
   PetscErrorCode :: err_PETSc
   PetscScalar, pointer, dimension(:,:,:,:) :: &

src/math.f90

@@ -898,7 +898,7 @@ end function math_33toVoigt6_stress
 
 
 !--------------------------------------------------------------------------------------------------
-!> @brief Convert 3x3 stress tensor into 6 Voigt vector.
+!> @brief Convert 3x3 strain tensor into 6 Voigt vector.
 !--------------------------------------------------------------------------------------------------
 pure function math_33toVoigt6_strain(epsilon) result(epsilon_tilde)
 

src/phase_mechanical.f90

@@ -879,10 +879,10 @@ function integrateStateRK(F_0,F,subFp0,subFi0,subState0,Delta_t,co,ip,el,A,B,C,D
     plasticState(ph)%state(1:sizeDotState,en) = subState0 &
                                               + dotState * Delta_t
 
-    broken = integrateStress(F_0 + (F - F_0) * Delta_t * C(stage),subFp0,subFi0,Delta_t * C(stage),co,ip,el)
+    broken = integrateStress(F_0 + (F-F_0) * Delta_t*C(stage),subFp0,subFi0,Delta_t*C(stage),co,ip,el)
     if(broken) exit
 
-    dotState = plastic_dotState(Delta_t, co,ip,el,ph,en)
+    dotState = plastic_dotState(Delta_t*C(stage), co,ip,el,ph,en)
     if (any(IEEE_is_NaN(dotState))) exit
 
   enddo