diff --git a/src/grid/DAMASK_grid.f90 b/src/grid/DAMASK_grid.f90 index cdc62ea77..3400c375a 100644 --- a/src/grid/DAMASK_grid.f90 +++ b/src/grid/DAMASK_grid.f90 @@ -353,8 +353,7 @@ program DAMASK_spectral write(fileUnit) 'startingIncrement:', interface_restartInc ! start with writing out the previous inc write(fileUnit) 'eoh' close(fileUnit) ! end of header - open(newunit=statUnit,file=trim(getSolverJobName())//& - '.sta',form='FORMATTED',status='REPLACE') + open(newunit=statUnit,file=trim(getSolverJobName())//'.sta',form='FORMATTED',status='REPLACE') write(statUnit,'(a)') 'Increment Time CutbackLevel Converged IterationsNeeded' ! statistics file if (iand(debug_level(debug_spectral),debug_levelBasic) /= 0) & write(6,'(/,a)') ' header of result and statistics file written out' diff --git a/src/mesh/DAMASK_FEM.f90 b/src/mesh/DAMASK_FEM.f90 index 5c4c5c21c..3602bd068 100644 --- a/src/mesh/DAMASK_FEM.f90 +++ b/src/mesh/DAMASK_FEM.f90 @@ -261,6 +261,8 @@ program DAMASK_FEM end select enddo + open(newunit=statUnit,file=trim(getSolverJobName())//'.sta',form='FORMATTED',status='REPLACE') + write(statUnit,'(a)') 'Increment Time CutbackLevel Converged IterationsNeeded' ! statistics file loadCaseLooping: do currentLoadCase = 1, size(loadCases) time0 = time ! load case start time