Commit 590e6a79 authored by Uliana Alekseeva's avatar Uliana Alekseeva

syntax of ylm4 usage slightly changed

parent 9f7799c8
......@@ -507,7 +507,7 @@ MODULE m_corespec_eval
orpref(1:nor) = (4.d0*pi_const)**2
if(.not.allocated(ylm)) allocate(ylm(0:lax*(lax+2),nor))
do ior = 1,nor
CALL ylm4(lax,orvec,ylm(0,ior))
CALL ylm4(lax,orvec,ylm(:,ior))
do la1 = lan,lax ; do mu1 = -la1,la1
lamu = la1*(la1+1)+mu1
write(98,'(3i5,2f12.8)') la1,mu1,lamu,ylm(lamu,ior)
......
......@@ -49,7 +49,7 @@
rg=matmul(kr(:,j),cell%bmat)
CALL ylm4(&
& atoms%lmaxd,rg,&
& ylm(1,j) )!keep
& ylm(:,j) )!keep
ENDDO
ylm = conjg( ylm )
......
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