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

sanity check, something is going wrong with intel 16.0

This commit is contained in:
Martin Diehl 2018-06-26 07:38:03 +02:00
parent 300b2827b2
commit a91fa75a28
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/config.f90
View File

@ -111,7 +111,7 @@ subroutine config_init()
myDebug = debug_level(debug_material) myDebug = debug_level(debug_material)
write(6,'(/,a)') ' <<<+- material init -+>>>' write(6,'(/,a)') ' <<<+- config init -+>>>'
write(6,'(a15,a)') ' Current time: ',IO_timeStamp() write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
#include "compilation_info.f90" #include "compilation_info.f90"
@ -442,7 +442,7 @@ character(len=65536) function getString(this,key,defaultVal,raw)
logical :: found, & logical :: found, &
split split
if (present(defaultVal)) getString = defaultVal if (present(defaultVal)) getString = trim(defaultVal)
split = merge(.not. raw,.true.,present(raw)) split = merge(.not. raw,.true.,present(raw))
found = present(defaultVal) found = present(defaultVal)
@ -462,6 +462,7 @@ character(len=65536) function getString(this,key,defaultVal,raw)
end do end do
if (.not. found) call IO_error(140_pInt,ext_msg=key) if (.not. found) call IO_error(140_pInt,ext_msg=key)
if (present(defaultVal) .and. len_trim(getString)/=len_trim(defaultVal)) write(6,*) 'mist';flush(6)
end function getString end function getString