223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

simpler logic

This commit is contained in:
Martin Diehl 2019-03-26 12:13:47 +01:00
parent a48a3101bb
commit bff03063e2
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/spectral_utilities.f90 Normal file → Executable file
View File

@ -437,13 +437,11 @@ subroutine utilities_updateGamma(C,saveReference)
logical :: err logical :: err
C_ref = C C_ref = C
if (saveReference) then if (saveReference .and. worldrank == 0) then
if (worldrank == 0) then write(6,'(/,a)') ' writing reference stiffness to file'
write(6,'(/,a)') ' writing reference stiffness to file' flush(6)
flush(6) fileUnit = IO_open_jobFile_binary('C_ref','w')
fileUnit = IO_open_jobFile_binary('C_ref','w') write(fileUnit) C_ref; close(fileUnit)
write(fileUnit) C_ref; close(fileUnit)
endif
endif endif
if(.not. num%memory_efficient) then if(.not. num%memory_efficient) then