From ca2a8d0a0358b8b112d223ac9e344a53c60efc7a Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 23 Sep 2013 09:01:46 +0000 Subject: [PATCH] fixed typos in Abaqus related functions --- code/IO.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/IO.f90 b/code/IO.f90 index 0a9f8a93a..c8ca56390 100644 --- a/code/IO.f90 +++ b/code/IO.f90 @@ -306,7 +306,7 @@ subroutine IO_open_inputFile(myUnit,modelName) integer(pInt) :: fileType fileType = 1_pInt ! assume .pes - path = trim(getSolverWorkingDirectoryName())//trim(modelModel)//inputFileExtension(fileType) ! attempt .pes, if it exists: it should be used + path = trim(getSolverWorkingDirectoryName())//trim(modelName)//inputFileExtension(fileType) ! attempt .pes, if it exists: it should be used open(myUnit+1,status='old',iostat=myStat,file=path) if(myStat /= 0_pInt) then ! if .pes does not work / exist; use conventional extension, i.e.".inp" fileType = 2_pInt @@ -1257,7 +1257,7 @@ integer(pInt) function IO_countContinuousIntValues(myUnit) enddo l = 1_pInt - do while (trim(line) /= IO_EOF and l <= c) ! ToDo: is this correct + do while (trim(line) /= IO_EOF .and. l <= c) ! ToDo: is this correct l = l + 1_pInt line = IO_read(myUnit) myPos = IO_stringPos(line,MAXNCHUNKS)