Commit 76239cd0 authored by Robin Hilgers's avatar Robin Hilgers

Quickfix in plotdop.f90

parent 22e17e2e
......@@ -285,8 +285,7 @@ SUBROUTINE plotdop(oneD,dimension,stars,vacuum,sphhar,atoms,&
DO i = 1, numInFiles
CALL outcdn(pt,nt,na,iv,iflag,jsp,sliceplot,stars,&
vacuum,sphhar,atoms,sym,cell,oneD,&
den(i)%pw,den(i)%vacxy,den(i)%mt,&
den(i)%vacz,xdnout(i))
den(i),xdnout(i))
END DO
IF (na.NE.0) THEN
......
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