Commit 3b6f9f2d authored by Matthias Redies's avatar Matthias Redies

fix 05d9a3b1

parent fb019632
......@@ -26,7 +26,7 @@ CONTAINS
INTEGER i,ispin,msh
REAL, ALLOCATABLE :: drr(:,:),ddrr(:,:)
REAL :: vx(size(rad),jspins)
REAL :: vx(size(vxc,1),jspins)
msh = size(rad)
ALLOCATE ( drr(msh,jspins),ddrr(msh,jspins))
......
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