Commit 4a45add3 authored by Daniel Wortmann's avatar Daniel Wortmann

Added environment variable juDFT that can hold command line arguments

parent 07fcfc3e
......@@ -17,6 +17,11 @@
CALL get_command_argument(i,str)
IF(adjustl(str)==adjustl(arg)) ok=.true.
ENDDO
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
END FUNCTION
SUBROUTINE juDFT_init()
......
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