Commit 238fc39a authored by Gregor Michalicek's avatar Gregor Michalicek

Make Cwann test work again:

Two changes:

1. Specify Wannier90 1.2 in the wann_inp file.
2. Adapt some array copy to the actual dimensions. ...this was a problem in the debug version.
parent 33d257d4
wan90version 2
wan90version 1.2
projgen
endjobs
wan90version 2
wan90version 1.2
byindex 1 8
matrixmmn
prepwan90
......
......@@ -707,7 +707,8 @@ c*********************************************************
allocate ( vr(atoms%jmtd,atoms%ntype,DIMENSION%jspd) )
allocate ( vso(atoms%jmtd,atoms%nat,2) )
vz = vTot%vacz
vz = 0.0
vz(:,:,:SIZE(vTot%vacz,3)) = vTot%vacz(:,:,:)
do jspin = 1,input%jspins
do n = 1, atoms%ntype
......
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