Commit b2afa104 authored by Frank Freimuth's avatar Frank Freimuth

Update wann_updown.F

parent 34a58106
......@@ -255,11 +255,11 @@ c..wf-hamiltonian in real space (hopping in the same unit cell)
complex,allocatable :: ubeffdg(:,:,:)
complex,allocatable :: dbeffug(:,:,:)
complex,allocatable :: dbeffdg(:,:,:)
complex,allocatable :: ubeffulog(:,:,:)
complex,allocatable :: dbeffulog(:,:,:)
complex,allocatable :: ulobeffug(:,:,:)
complex,allocatable :: ulobeffdg(:,:,:)
complex,allocatable :: ulobeffulog(:,:,:)
complex,allocatable :: ubeffulog(:,:,:,:)
complex,allocatable :: dbeffulog(:,:,:,:)
complex,allocatable :: ulobeffug(:,:,:,:)
complex,allocatable :: ulobeffdg(:,:,:,:)
complex,allocatable :: ulobeffulog(:,:,:,:,:)
integer :: spinloop1,spinloop2,ilop
TYPE(t_usdus) :: usdus
......
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