Commit 0275ea35 authored by Alexander Neukirchen's avatar Alexander Neukirchen

ctests work; b_xc exists

parent 3718050c
......@@ -63,8 +63,11 @@ CONTAINS
CALL vTot%resetPotDen()
CALL vCoul%resetPotDen()
CALL vx%resetPotDen()
CALL xcB%resetPotden()
ALLOCATE(vx%pw_w,mold=vTot%pw)
ALLOCATE(xcB%pw_w,mold=vTot%pw)
vx%pw_w = 0.0
xcB%pw_w = 0.0
#ifndef CPP_OLDINTEL
ALLOCATE(vTot%pw_w,mold=vTot%pw)
#else
......
......@@ -69,7 +69,6 @@ CONTAINS
IF (ifft3.NE.SIZE(den%theta_pw)) CALL judft_error("Wrong size of angles")
ifft2 = SIZE(den%phi_vacxy,1)
xcB%pw_w(:,:)=0.0
xcB%vacxy(:,:,:,:)=0.0
xcB%vacz(:,:,:)=0.0
......
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