From e8cd7cef94f4dd5daeb338bba4c3a429ec59319d Mon Sep 17 00:00:00 2001
From: Franz	Roters <f.roters@mpie.de>
Date: Thu, 27 Nov 2008 15:11:44 +0000
Subject: [PATCH] fixed a small bug: text about finding symmetric solver was
 always written to out-file

---
 trunk/FEsolving.f90 | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/trunk/FEsolving.f90 b/trunk/FEsolving.f90
index d97b55ace..e53541de1 100644
--- a/trunk/FEsolving.f90
+++ b/trunk/FEsolving.f90
@@ -36,11 +36,13 @@
    if( IO_lc(IO_stringValue(line,pos,1)) == 'solver' ) then
      read (unit,610,END=630) line  ! Garbage line
      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)
-     write (6,*)
-     write (6,*) 'Symmetric solver detected. d-Matrix will be symmetrized!'
+        write (6,*)
+        write (6,*) 'Symmetric solver detected. d-Matrix will be symmetrized!'
 !$OMP END CRITICAL (write2out)
+     endif
    endif
  enddo