Commit cf6cd542 authored by Gregor Michalicek's avatar Gregor Michalicek

Some code cleanup, nothing relevant

parent 6c5e7f6c
......@@ -42,8 +42,8 @@ CONTAINS
TYPE(t_tlmplm),INTENT(INOUT) :: tlmplm
LOGICAL,INTENT(IN) :: l_real
REAL, OPTIONAL,ALLOCATABLE,INTENT (INOUT) :: aa_r(:)!(matsize)
COMPLEX, OPTIONAL,ALLOCATABLE,INTENT (INOUT) :: aa_c(:)
REAL, OPTIONAL,INTENT (INOUT) :: aa_r(:)!(matsize)
COMPLEX, OPTIONAL,INTENT (INOUT) :: aa_c(:)
! ..
! .. Local Scalars ..
COMPLEX axx,bxx,cxx,dtd,dtu,dtulo,ulotd,ulotu,ulotulo,utd,utu, utulo,chihlp
......
......@@ -13,8 +13,8 @@ module m_hsmt_hlptomat
implicit none
integer, intent(in) :: nlotot,nv(:),sub_comm
complex, intent(in) :: chi11,chi21,chi22
complex, allocatable,intent(inout) :: aahlp(:)
complex, intent(inout) :: aa(:)
complex, intent(inout) :: aahlp(:)
complex, intent(inout) :: aa(:)
complex, optional,intent(inout) :: bb(:),bbhlp(:)
integer :: ii,ij,ki,kj,n_rank,n_size
......
......@@ -5,6 +5,6 @@ $test_stages=1;
$test_desc=<<EOF
Simple test of Fleur with two steps:
1.Generate a starting density
2.Run 20 iterations and compare convergence, fermi-energy & total energy
2.Run 4 noco iterations and compare convergence, fermi-energy & total energy
EOF
;
......@@ -3,11 +3,11 @@
jt::copyfile("files/inp.xml",$workdir);
jt::copyfile("files/sym.out",$workdir);
jt::testrun("$executable -xmlInput",$workdir);
jt::testrun($executable,$workdir);
#now test output
$result=jt::test_fileexists("$workdir/out");
$result+=jt::test_fileexists("$workdir/cdn1");
$result+=min(jt::test_fileexists("$workdir/cdn1"),jt::test_fileexists("$workdir/cdn.hdf"));
$result+=jt::test_grepexists("$workdir/out","total charge");
$result+=jt::test_grepnumber("$workdir/out","qfix","qfix= *([^ ]*)",1.0,0.00001);
......@@ -18,3 +18,4 @@ $result+=jt::test_grepnumber("$workdir/out","total energy=",".*= *([^ ]*)",-2545
$result+=jt::test_grepnumber("$workdir/out","mm 2",".*mm 2 *([^ ]*)",1.8,0.1);
jt::stageresult($workdir,$result,"1");
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