From c0210659b6bfde80bbbe417a1beb3c6125d992c8 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 22 Sep 2019 15:56:37 -0700 Subject: [PATCH] statUnit was not opened, stat file was written to STDERR --- src/grid/DAMASK_grid.f90 | 3 +-- src/mesh/DAMASK_FEM.f90 | 2 ++ 2 files changed, 3 insertions(+), 2 deletions(-) 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