diff --git a/code/DAMASK_spectral_driver.f90 b/code/DAMASK_spectral_driver.f90 index a2368d63b..f92260e15 100644 --- a/code/DAMASK_spectral_driver.f90 +++ b/code/DAMASK_spectral_driver.f90 @@ -339,14 +339,18 @@ program DAMASK_spectral_Driver if (appendToOutFile) then ! after restart, append to existing results file open(newunit=resUnit,file=trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//& '.spectralOut',form='UNFORMATTED', position='APPEND', status='OLD') + ! '.spectralOut',access='STREAM', position='APPEND', status='OLD') open(newunit=statUnit,file=trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//& '.sta',form='FORMATTED', position='APPEND', status='OLD') else ! open new files ... open(newunit=resUnit,file=trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//& '.spectralOut',form='UNFORMATTED',status='REPLACE') + ! '.spectralOut',access='STREAM',status='REPLACE') write(resUnit) 'load', trim(loadCaseFile) ! ... and write header write(resUnit) 'workingdir', trim(getSolverWorkingDirectoryName()) write(resUnit) 'geometry', trim(geometryFile) + !write(resUnit) 'grid', res + !write(resUnit) 'size', geomdim write(resUnit) 'resolution', res write(resUnit) 'dimension', geomdim write(resUnit) 'materialpoint_sizeResults', materialpoint_sizeResults