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

do no rely on IO functions 

should become part of the marc specific code
This commit is contained in:
Martin Diehl 2020-01-22 08:55:39 +01:00
parent 0c4790d468
commit 2c942de45d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/FEsolving.f90
View File

@ -40,21 +40,21 @@ subroutine FE_init
#if defined(Marc4DAMASK) #if defined(Marc4DAMASK)
block block
integer, parameter :: FILEUNIT = 222
character(len=pStringLen) :: line character(len=pStringLen) :: line
integer :: myStat,fileUnit
integer, allocatable, dimension(:) :: chunkPos integer, allocatable, dimension(:) :: chunkPos
call IO_open_inputFile(FILEUNIT) open(newunit=fileUnit, file=trim(getSolverJobName()//INPUTFILEEXTENSION), &
rewind(FILEUNIT) status='old', position='rewind', action='read',iostat=myStat)
do do
read (FILEUNIT,'(A)',END=100) line read (fileUnit,'(A)',END=100) line
chunkPos = IO_stringPos(line) chunkPos = IO_stringPos(line)
if(IO_lc(IO_stringValue(line,chunkPos,1)) == 'solver') then if(IO_lc(IO_stringValue(line,chunkPos,1)) == 'solver') then
read (FILEUNIT,'(A)',END=100) line ! next line read (fileUnit,'(A)',END=100) line ! next line
chunkPos = IO_stringPos(line) chunkPos = IO_stringPos(line)
symmetricSolver = (IO_intValue(line,chunkPos,2) /= 1) symmetricSolver = (IO_intValue(line,chunkPos,2) /= 1)
endif endif
enddo enddo
100 close(FILEUNIT) 100 close(fileUnit)
end block end block
#endif #endif