From fed53a7e6068ddaaceaaa5094e34a0eac49fd1d5 Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Wed, 23 Feb 2011 12:33:51 +0000 Subject: [PATCH] in subroutine "mesh_marc_get_mpieOptions": need at least one additional string after keywords "$mpie" and "periodic", not two as it used to be --- code/mesh.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/mesh.f90 b/code/mesh.f90 index b1df62530..57d03d686 100644 --- a/code/mesh.f90 +++ b/code/mesh.f90 @@ -1332,7 +1332,7 @@ do if (IO_lc(IO_stringValue(line,pos,1)) == '$mpie') then ! found keyword for user defined input if (IO_lc(IO_stringValue(line,pos,2)) == 'periodic' & ! found keyword 'periodic' - .and. pos(1) > 3) then ! and there is at least one more chunk to read + .and. pos(1) > 2) then ! and there is at least one more chunk to read do chunk = 2,pos(1) ! loop through chunks (skipping the keyword) select case(IO_stringValue(line,pos,chunk)) ! chunk matches keyvalues x,y or z? case('x')