checking for existing file

This commit is contained in:
Martin Diehl 2018-07-16 20:08:31 +02:00
parent a1ad18c88a
commit fb1265db3d
1 changed files with 2 additions and 0 deletions

View File

@ -125,6 +125,8 @@ subroutine config_init()
if(jobSpecificConfig) then
fileContent = IO_recursiveRead(trim(getSolverJobName())//'.'//material_localFileExt)
else
inquire(file='material.config',exist=jobSpecificConfig)
if(.not. jobSpecificConfig) call IO_error(0_pInt)
fileContent = IO_recursiveRead('material.config')
endif