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

corrected integer initialized to reals

This commit is contained in:
Martin Diehl 2013-02-13 15:47:00 +00:00
parent 12b81a2b75
commit b78fafc3b5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/IO.f90
View File

@ -831,7 +831,7 @@ integer(pInt) function IO_verifyIntValue (line,validChars,myName)
character(len=len(trim(adjustl(line)))) :: trimmed character(len=len(trim(adjustl(line)))) :: trimmed
trimmed = trim(adjustl(line)) trimmed = trim(adjustl(line))
IO_verifyIntValue = 0.0_pReal IO_verifyIntValue = 0_pInt
invalidWhere = verify(trimmed,validChars) invalidWhere = verify(trimmed,validChars)
if (invalidWhere == 0_pInt) then if (invalidWhere == 0_pInt) then
@ -1043,7 +1043,7 @@ integer(pInt) function IO_intValue(line,positions,myPos)
character(len=13), parameter :: myName = 'IO_intValue: ' character(len=13), parameter :: myName = 'IO_intValue: '
character(len=12), parameter :: validCharacters = '0123456789+-' character(len=12), parameter :: validCharacters = '0123456789+-'
IO_intValue = 0.0_pReal 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,ext_msg=myName//trim(line))