Commit b6dd8ec4 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix: dimension testing in radsra wrong for different atoms with multiple jri

parent 8f5252ec
...@@ -32,7 +32,7 @@ C .. Local Scalars .. ...@@ -32,7 +32,7 @@ C .. Local Scalars ..
INTEGER i,it INTEGER i,it
C .. C ..
C .. Local Arrays .. C .. Local Arrays ..
REAL pp(size(vr)),qp(size(vr)) REAL pp(jri),qp(jri)
C .. C ..
C .. Data statements .. C .. Data statements ..
REAL,PARAMETER :: eps=1.e-06 REAL,PARAMETER :: eps=1.e-06
...@@ -40,13 +40,9 @@ C .. ...@@ -40,13 +40,9 @@ C ..
cin = 1.0/c cin = 1.0/c
cin2 = cin*cin cin2 = cin*cin
IF (jri>size(vr)) CALL juDFT_error IF (jri>SIZE(vr).OR.jri>SIZE(p)) CALL juDFT_error
+ ("BUG: data dimension in radsra too small",calledby + ("BUG: data dimension in radsra too small",calledby ="radsra")
+ ="radsra")
IF (size(p)<size(vr).or.size(p)<size(vr)) CALL juDFT_error
+ ("BUG: data dimension in radsra differ",calledby
+ ="radsra")
c---> set up initial conditions c---> set up initial conditions
fl1 = l* (l+1) fl1 = l* (l+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