Commit 45814d81 authored by Gregor Michalicek's avatar Gregor Michalicek

Made inpgen more tolerant to spaces in front or after element names

parent cca18f32
......@@ -20,7 +20,7 @@
z_namat = -1
DO n = 0, size(namat_const)-1
IF ( ele == namat_const(n) ) THEN
IF (TRIM(ADJUSTL(ele)) == TRIM(ADJUSTL(namat_const(n)))) THEN
z_namat = n
EXIT
ENDIF
......
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