From e8719cb6b8d37d42d305755286218730de15a422 Mon Sep 17 00:00:00 2001
From: Franz	Roters <f.roters@mpie.de>
Date: Thu, 29 Apr 2010 09:43:31 +0000
Subject: [PATCH] Table driven input works wirh 2010! That leaves DDM to do for
 tomorrow ;-)

---
 code/mesh.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/code/mesh.f90 b/code/mesh.f90
index 370fdb7fe..ecc6b074d 100644
--- a/code/mesh.f90
+++ b/code/mesh.f90
@@ -1062,7 +1062,7 @@ candidate: do i=1,minN  ! iterate over lonelyNode's shared elements
    read (unit,610,END=620) line
    pos = IO_stringPos(line,maxNchunks)
 
-   if ( IO_lc(IO_stringValue(line,pos,1)) == 'table' .and. pos(1) == 6) then
+   if ( IO_lc(IO_stringValue(line,pos,1)) == 'table' .and. pos(1) .GT. 5) then
      initialcondTableStyle = IO_intValue(line,pos,4)
      hypoelasticTableStyle = IO_intValue(line,pos,5)
      exit