Commit 82adabf3 authored by Gregor Michalicek's avatar Gregor Michalicek

Fixed bug in usage of juDFT environment variable

The problem was that -hdf_cdn was interpreted as -h.
parent 07a56289
......@@ -31,7 +31,7 @@ CONTAINS
IF (ok) RETURN
!Test for environment variable as well
CALL GET_ENVIRONMENT_VARIABLE("juDFT",str,status=i)
IF (i==0) ok=INDEX(str,ADJUSTL(arg))>0
IF (i==0) ok=INDEX(str//' ',TRIM(ADJUSTL(arg))//' ')>0
END FUNCTION juDFT_was_argument
......
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