Commit df43c4e8 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix from Gregor, we counted wrong in elements.f

parent 12c8019f
......@@ -19,7 +19,7 @@
& ele(1:1) = achar( iachar(ele(1:1))-adiff )
z_namat = -1
DO n = 0, size(namat_const)
DO n = 0, size(namat_const)-1
IF ( ele == namat_const(n) ) THEN
z_namat = n
EXIT
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment