Skip to content

fleur
fleur
Commit cbb6c6c5 authored by Daniel Wortmann's avatar Daniel Wortmann
Browse files
Options

Bug in vmatgen for vacuum potential fixed.

parent 7fc65bd0
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
vgen/vmatgen.f90
View file @ cbb6c6c5
......@@ -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