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

fix 05d9a3b1

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