diff --git a/code/DAMASK_marc.f90 b/code/DAMASK_marc.f90
index 24235ff56..d8c58989f 100644
--- a/code/DAMASK_marc.f90
+++ b/code/DAMASK_marc.f90
@@ -286,7 +286,7 @@ subroutine hypela2(&
 
 !$ call omp_set_num_threads(DAMASK_NumThreadsInt)                         ! set number of threads for parallel execution set by DAMASK_NUM_THREADS
 
- if (lovl == 4) then                                                      ! Marc requires stiffness in separate call
+ if (lovl == 4) then                                                      ! Marc requires stiffness in separate call (lovl == 4)
    if ( timinc < theDelta .and. theInc == inc ) then                      ! first after cutback
      computationMode = 7                                                  !  --> restore tangent and return it
    else
diff --git a/code/crystallite.f90 b/code/crystallite.f90
index b46fae4d4..a046df1d9 100644
--- a/code/crystallite.f90
+++ b/code/crystallite.f90
@@ -1514,7 +1514,7 @@ do n = 1_pInt,5_pInt
   ! --- dot state and RK dot state---
 #ifndef _OPENMP
   if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt) then
-    write(6,'(a,1x,i1)') '<< CRYST >> RUNGE KUTTA STEP',n+1_pInt
+    write(6,'(a,1x,i1)') '<< CRYST >> Runge--Kutta step',n+1_pInt
   endif
 #endif
   !$OMP DO
diff --git a/code/material.f90 b/code/material.f90
index 00319c49d..32c2c9acc 100644
--- a/code/material.f90
+++ b/code/material.f90
@@ -867,14 +867,14 @@ subroutine material_populateGrains
        enddo  ! constituent
 
 ! ----------------------------------------------------------------------------
-       if (.not. microstructure_elemhomo(micro)) then                           ! unless element homogeneous, reshuffle grains
-         do i=1_pInt,myNgrains-1_pInt                                                     ! walk thru grains
+       if (.not. microstructure_elemhomo(micro)) then                         ! unless element homogeneous, reshuffle grains
+         do i=1_pInt,myNgrains-1_pInt                                         ! walk thru grains
            call random_number(rnd)
-           t = nint(rnd*(myNgrains-i)+i+0.5_pReal,pInt)                         ! select a grain in remaining list
-           m                       = phaseOfGrain(t)                            ! exchange current with random
+           t = nint(rnd*(myNgrains-i)+i+0.5_pReal,pInt)                       ! select a grain in remaining list
+           m                       = phaseOfGrain(t)                          ! exchange current with random
            phaseOfGrain(t)         = phaseOfGrain(i)
            phaseOfGrain(i)         = m
-           m                       = textureOfGrain(t)                          ! exchange current with random
+           m                       = textureOfGrain(t)                        ! exchange current with random
            textureOfGrain(t)       = textureOfGrain(i)
            textureOfGrain(i)       = m
            orientation             = orientationOfGrain(:,t)
@@ -888,8 +888,8 @@ subroutine material_populateGrains
 ! ----------------------------------------------------------------------------
        grain = 0_pInt
        do hme = 1_pInt, Nelems(homog,micro)
-       e = elemsOfHomogMicro(hme,homog,micro)                                 ! only perform calculations for elements with homog, micro combinations which is indexed in cpElemsindex
-       t = FE_geomtype(mesh_element(2,e))
+         e = elemsOfHomogMicro(hme,homog,micro)                               ! only perform calculations for elements with homog, micro combinations which is indexed in cpElemsindex
+         t = FE_geomtype(mesh_element(2,e))
          if (microstructure_elemhomo(micro)) then                             ! homogeneous distribution of grains over each element's IPs
            forall (i = 1_pInt:FE_Nips(t), g = 1_pInt:dGrains)                 ! loop over IPs and grains
              material_volume(g,i,e)        = volumeOfGrain(grain+g)