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

fixed a small bug: text about finding symmetric solver was always written to out-file

This commit is contained in:
Franz Roters 2008-11-27 15:11:44 +00:00
parent 824cec5ca1
commit e8cd7cef94
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
trunk/FEsolving.f90
View File

@ -36,12 +36,14 @@
if( IO_lc(IO_stringValue(line,pos,1)) == 'solver' ) then if( IO_lc(IO_stringValue(line,pos,1)) == 'solver' ) then
read (unit,610,END=630) line ! Garbage line read (unit,610,END=630) line ! Garbage line
pos = IO_stringPos(line,2) ! limit to 64 nodes max (plus ID, type) pos = IO_stringPos(line,2) ! limit to 64 nodes max (plus ID, type)
if(IO_intValue(line,pos,2) /= 1_pInt) symmetricSolver = .true. if(IO_intValue(line,pos,2) /= 1_pInt) then
symmetricSolver = .true.
!$OMP CRITICAL (write2out) !$OMP CRITICAL (write2out)
write (6,*) write (6,*)
write (6,*) 'Symmetric solver detected. d-Matrix will be symmetrized!' write (6,*) 'Symmetric solver detected. d-Matrix will be symmetrized!'
!$OMP END CRITICAL (write2out) !$OMP END CRITICAL (write2out)
endif endif
endif
enddo enddo
630 return 630 return