From d05ebff400e58beab5b1557a1635e8eaa3fdf8c6 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 25 Apr 2013 14:03:54 +0000 Subject: [PATCH] introduce commented new output with stream (no markers at begin/end) and with grid/size instead of res/dim --- code/DAMASK_spectral_driver.f90 | 4 ++++ 1 file changed, 4 insertions(+) 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