Commit 7a600f2a authored by Daniel Wortmann's avatar Daniel Wortmann

Second try to remove inpXML switch :-)

parent 1ebf0a40
...@@ -72,7 +72,7 @@ MODULE m_fleur_help ...@@ -72,7 +72,7 @@ MODULE m_fleur_help
PUBLIC fleur_help PUBLIC fleur_help
CONTAINS CONTAINS
SUBROUTINE check_arguments() SUBROUTINE check_arguments()
USE m_judft USE m_judft_stop
IMPLICIT NONE IMPLICIT NONE
INTEGER :: i,n INTEGER :: i,n
CHARACTER(len=200):: str CHARACTER(len=200):: str
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
jt::copyfile("files/inp.xml",$workdir); jt::copyfile("files/inp.xml",$workdir);
jt::copyfile("files/enpara",$workdir); jt::copyfile("files/enpara",$workdir);
jt::testrun("$executable -xmlInput",$workdir); jt::testrun("$executable ",$workdir);
#now test output #now test output
$result=jt::test_grepexists("$workdir/out","it= 1 is completed"); $result=jt::test_grepexists("$workdir/out","it= 1 is completed");
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
jt::copyfile("files/inp.xml",$workdir); jt::copyfile("files/inp.xml",$workdir);
jt::copyfile("files/enpara",$workdir); jt::copyfile("files/enpara",$workdir);
jt::testrun("$executable -xmlInput",$workdir); jt::testrun("$executable ",$workdir);
#now test output #now test output
$result=jt::test_fileexists("$workdir/band.1"); $result=jt::test_fileexists("$workdir/band.1");
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
jt::copyfile("files/inp.xml",$workdir); jt::copyfile("files/inp.xml",$workdir);
jt::copyfile("files/enpara",$workdir); jt::copyfile("files/enpara",$workdir);
jt::testrun("$executable -xmlInput",$workdir); jt::testrun("$executable ",$workdir);
#now test output #now test output
$result=jt::test_grepexists("$workdir/out","it= 1 is completed"); $result=jt::test_grepexists("$workdir/out","it= 1 is completed");
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
jt::copyfile("files/inp.xml",$workdir); jt::copyfile("files/inp.xml",$workdir);
jt::copyfile("files/enpara",$workdir); jt::copyfile("files/enpara",$workdir);
jt::testrun("$executable -xmlInput",$workdir); jt::testrun("$executable ",$workdir);
#now test output #now test output
$result=jt::test_grepexists("$workdir/out","it= 1 is completed"); $result=jt::test_grepexists("$workdir/out","it= 1 is completed");
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
jt::copyfile("files/inp.xml",$workdir); jt::copyfile("files/inp.xml",$workdir);
jt::copyfile("files/enpara",$workdir); jt::copyfile("files/enpara",$workdir);
jt::testrun("$executable -xmlInput",$workdir); jt::testrun("$executable ",$workdir);
#now test output #now test output
$result=jt::test_fileexists("$workdir/DOS.1"); $result=jt::test_fileexists("$workdir/DOS.1");
......
...@@ -5,7 +5,7 @@ jt::copyfile("files/inp.xml",$workdir); ...@@ -5,7 +5,7 @@ jt::copyfile("files/inp.xml",$workdir);
jt::copyfile("files/enpara",$workdir); jt::copyfile("files/enpara",$workdir);
jt::copyfile("files/sym.out",$workdir); jt::copyfile("files/sym.out",$workdir);
jt::testrun("$executable -xmlInput",$workdir); jt::testrun("$executable ",$workdir);
#now test output #now test output
$result=jt::test_grepexists("$workdir/out","it= *1 *is completed"); $result=jt::test_grepexists("$workdir/out","it= *1 *is completed");
......
...@@ -4,7 +4,7 @@ jt::copyfile("files/enpara",$workdir); ...@@ -4,7 +4,7 @@ jt::copyfile("files/enpara",$workdir);
jt::copyfile("files/inp.xml",$workdir); jt::copyfile("files/inp.xml",$workdir);
jt::copyfile("files/sym.out",$workdir); jt::copyfile("files/sym.out",$workdir);
jt::testrun("$executable -xmlInput",$workdir); jt::testrun("$executable ",$workdir);
#now test output #now test output
$result=jt::test_grepexists("$workdir/out","it= 1 is completed"); $result=jt::test_grepexists("$workdir/out","it= 1 is completed");
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
jt::copyfile("files/inp.xml",$workdir); jt::copyfile("files/inp.xml",$workdir);
jt::copyfile("files/sym.out",$workdir); jt::copyfile("files/sym.out",$workdir);
jt::testrun("$executable -xmlInput",$workdir); jt::testrun("$executable ",$workdir);
#now test output #now test output
$result=jt::test_fileexists("$workdir/out"); $result=jt::test_fileexists("$workdir/out");
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
jt::copyfile("files/inp.xml",$workdir); jt::copyfile("files/inp.xml",$workdir);
jt::copyfile("files/sym.out",$workdir); jt::copyfile("files/sym.out",$workdir);
jt::testrun("$executable -xmlInput",$workdir); jt::testrun("$executable ",$workdir);
#now test output #now test output
$result=jt::test_fileexists("$workdir/out"); $result=jt::test_fileexists("$workdir/out");
......
...@@ -4,7 +4,7 @@ jt::copyfile("files/inp.xml",$workdir); ...@@ -4,7 +4,7 @@ jt::copyfile("files/inp.xml",$workdir);
jt::copyfile("files/sym.out",$workdir); jt::copyfile("files/sym.out",$workdir);
jt::copyfile("files/enpara",$workdir); jt::copyfile("files/enpara",$workdir);
jt::testrun("$executable -xmlInput",$workdir); jt::testrun("$executable ",$workdir);
#now test output #now test output
$result=jt::test_fileexists("$workdir/out"); $result=jt::test_fileexists("$workdir/out");
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
jt::copyfile("files/inp.xml",$workdir); jt::copyfile("files/inp.xml",$workdir);
jt::copyfile("files/sym.out",$workdir); jt::copyfile("files/sym.out",$workdir);
jt::testrun("$executable -xmlInput",$workdir); jt::testrun("$executable ",$workdir);
#now test output #now test output
$result=jt::test_fileexists("$workdir/out"); $result=jt::test_fileexists("$workdir/out");
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
jt::copyfile("files/inp.xml",$workdir); jt::copyfile("files/inp.xml",$workdir);
jt::copyfile("files/sym.out",$workdir); jt::copyfile("files/sym.out",$workdir);
jt::testrun("$executable -xmlInput",$workdir); jt::testrun("$executable ",$workdir);
#now test output #now test output
$result=jt::test_grepexists("$workdir/out","it= 9 is completed"); $result=jt::test_grepexists("$workdir/out","it= 9 is completed");
......
...@@ -4,7 +4,7 @@ jt::copyfile("files/inp.xml",$workdir); ...@@ -4,7 +4,7 @@ jt::copyfile("files/inp.xml",$workdir);
jt::copyfile("files/sym.out",$workdir); jt::copyfile("files/sym.out",$workdir);
jt::copyfile("files/enpara",$workdir); jt::copyfile("files/enpara",$workdir);
jt::testrun("$executable -xmlInput",$workdir); jt::testrun("$executable ",$workdir);
#now test output #now test output
$result=jt::test_grepexists("$workdir/out","it= 1 is completed"); $result=jt::test_grepexists("$workdir/out","it= 1 is completed");
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
jt::copyfile("files/inp.xml",$workdir); jt::copyfile("files/inp.xml",$workdir);
jt::copyfile("files/sym.out",$workdir); jt::copyfile("files/sym.out",$workdir);
jt::testrun("$executable -xmlInput",$workdir); jt::testrun("$executable ",$workdir);
#now test output #now test output
$result=jt::test_grepexists("$workdir/out","it= 1 is completed"); $result=jt::test_grepexists("$workdir/out","it= 1 is completed");
......
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