diff --git a/code/homogenization.f90 b/code/homogenization.f90 index 4db642814..412bf692e 100644 --- a/code/homogenization.f90 +++ b/code/homogenization.f90 @@ -412,9 +412,9 @@ subroutine materialpoint_stressAndItsTangent(& #ifndef _OPENMP if (debug_verbosity > 2 .and. ((e == debug_e .and. i == debug_i) .or. .not. debug_selectiveDebugger)) then - write(6,'(a,x,f10.8,/)') '<< HOMOG >> cutback step in materialpoint_stressAndItsTangent with& - new materialpoint_subStep:',& - materialpoint_subStep(i,e) + write(6,'(a,x,f10.8,/)') & + '<< HOMOG >> cutback step in materialpoint_stressAndItsTangent with new materialpoint_subStep:',& + materialpoint_subStep(i,e) endif #endif