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

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

@ -437,14 +437,12 @@ 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
gamma_hat = cmplx(0.0_pReal,0.0_pReal,pReal) ! for the singular point and any non invertible A gamma_hat = cmplx(0.0_pReal,0.0_pReal,pReal) ! for the singular point and any non invertible A