checking for existing file

2018-07-16 20:08:31 +02:00 · 2018-07-16 20:08:31 +02:00 · fb1265db3d
parent a1ad18c88a
commit fb1265db3d
1 changed files with 2 additions and 0 deletions
--- a/src/config.f90
+++ b/src/config.f90
@ -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