Commit 4f84d0a8 authored by Gregor Michalicek's avatar Gregor Michalicek

Probably corrected a bug in hlomat call.

I compared the calls to hlomat to those of an old
reference fleur version and realized that depending on the
call some array indices were different. I corrected them such
that they correspond to the old version. None of the test
cases seems to be affected by this so maybe a test case should
be written that is sensitive to these calls.

To me the discrepancies to the old reference fleur version
looked like a copy&paste error when the calls were rewritten
with the new types. Therefore I corrected it.
parent ab1fe0c1
......@@ -266,7 +266,7 @@ CONTAINS
ab_dim,iintsp,jintsp,chi11,chi22,chi21,&
iilos,locols,nkvecprevats,bb)
CALL hlomat(atoms,isp,jd,n_size,n_rank,&
n,na,lapw,ar(:,0:,1),br(:,0:,1),ai(:,0:,1),bi(:,0:,1),&
n,na,lapw,ar(:,0:,jintsp),br(:,0:,jintsp),ai(:,0:,jintsp),bi(:,0:,jintsp),&
el(:,n,isp),alo,blo,clo,usdus, noco,iintsp,jintsp,chi11,chi22,chi21,&
iiloh,locolh,nkvecprevath,tlmplm,aa)
ENDDO
......
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