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

added hints on offending positions when parsing material.config

This commit is contained in:
Philip Eisenlohr 2013-02-15 08:26:38 +00:00
parent c1cf446774
commit b57d001e71
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
code/IO.f90
View File

@ -918,11 +918,12 @@ end function IO_stringPos
function IO_stringValue(line,positions,myPos,silent) function IO_stringValue(line,positions,myPos,silent)
implicit none implicit none
character(len=*), intent(in) :: line
integer(pInt), dimension(:), intent(in) :: positions integer(pInt), dimension(:), intent(in) :: positions
integer(pInt), intent(in) :: myPos integer(pInt), intent(in) :: myPos
character(len=1+positions(myPos*2+1)-positions(myPos*2)) :: IO_stringValue
character(len=*), intent(in) :: line
logical, optional,intent(in) :: silent logical, optional,intent(in) :: silent
character(len=16), parameter :: myName = 'IO_stringValue: '
character(len=1+positions(myPos*2+1)-positions(myPos*2)) :: IO_stringValue
logical :: warn logical :: warn
if (.not. present(silent)) then if (.not. present(silent)) then
@ -933,7 +934,7 @@ function IO_stringValue(line,positions,myPos,silent)
IO_stringValue = '' IO_stringValue = ''
if (myPos > positions(1) .or. myPos < 1_pInt) then ! trying to access non-present value if (myPos > positions(1) .or. myPos < 1_pInt) then ! trying to access non-present value
if (warn) call IO_warning(201, e=myPos, ext_msg = 'IO_stringValue: '//trim(line)) if (warn) call IO_warning(201,e=myPos,ext_msg=myName//trim(line))
else else
IO_stringValue = line(positions(myPos*2):positions(myPos*2+1)) IO_stringValue = line(positions(myPos*2):positions(myPos*2+1))
endif endif
@ -972,7 +973,7 @@ real(pReal) function IO_floatValue (line,positions,myPos)
IO_floatValue = 0.0_pReal IO_floatValue = 0.0_pReal
if (myPos > positions(1) .or. myPos < 1_pInt) then ! trying to access non-present value if (myPos > positions(1) .or. myPos < 1_pInt) then ! trying to access non-present value
call IO_warning(201,ext_msg=myName//trim(line)) call IO_warning(201,e=myPos,ext_msg=myName//trim(line))
else else
IO_floatValue = IO_verifyFloatValue(line(positions(myPos*2):positions(myPos*2+1)),& IO_floatValue = IO_verifyFloatValue(line(positions(myPos*2):positions(myPos*2+1)),&
validCharacters,myName) validCharacters,myName)
@ -1046,7 +1047,7 @@ integer(pInt) function IO_intValue(line,positions,myPos)
IO_intValue = 0_pInt IO_intValue = 0_pInt
if (myPos > positions(1) .or. myPos < 1_pInt) then ! trying to access non-present value if (myPos > positions(1) .or. myPos < 1_pInt) then ! trying to access non-present value
call IO_warning(201,ext_msg=myName//trim(line)) call IO_warning(201,e=myPos,ext_msg=myName//trim(line))
else else
IO_intValue = IO_verifyIntValue(line(positions(myPos*2):positions(myPos*2+1)),& IO_intValue = IO_verifyIntValue(line(positions(myPos*2):positions(myPos*2+1)),&
validCharacters,myName) validCharacters,myName)