Commit cbb6c6c5 authored by Daniel Wortmann's avatar Daniel Wortmann

Bug in vmatgen for vacuum potential fixed.

parent 7fc65bd0
......@@ -184,7 +184,7 @@ CONTAINS
! & %igf,odl%pgf,odi%nst2)
ELSE
CALL fft2d(stars, vvacxy(:,imz,ivac,ipot),fftwork,&
vTot%vacz(imz,ivac,ipot),vziw,vTot%vacxy(:,:,ivac,ipot), vacuum%nmzxyd,-1)
vTot%vacz(imz,ivac,ipot),vziw,vTot%vacxy(imz,1,ivac,ipot), vacuum%nmzxyd,-1)
END IF
ENDDO
ENDDO
......@@ -204,7 +204,7 @@ CONTAINS
! & %igf,odl%pgf,odi%nst2)
ELSE
CALL fft2d(stars, vvacxy(:,imz,ivac,3),vvacxy(:,imz,ivac,4),&
vTot%vacz(imz,ivac,3),vTot%vacz(imz,ivac,4),vTot%vacxy(:,:,ivac,3), vacuum%nmzxyd,-1)
vTot%vacz(imz,ivac,3),vTot%vacz(imz,ivac,4),vTot%vacxy(imz,1,ivac,3), vacuum%nmzxyd,-1)
END IF
ENDDO
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