Commit a0ca1b10 authored by Frank Freimuth's avatar Frank Freimuth

Update wann_convert_fleur_w90.F90

parent 8542764a
......@@ -520,10 +520,8 @@
else
oper_o(:,:,nkp,2)=ci*oper_o(:,:,nkp,1)
endif
oper_o(:,:,nkp,1)= oper_o(:,:,nkp,1)+
& transpose(conjg(oper_o(:,:,nkp,1)))
oper_o(:,:,nkp,2)= oper_o(:,:,nkp,2)+
& transpose(conjg(oper_o(:,:,nkp,2)))
oper_o(:,:,nkp,1)= oper_o(:,:,nkp,1)+transpose(conjg(oper_o(:,:,nkp,1)))
oper_o(:,:,nkp,2)= oper_o(:,:,nkp,2)+transpose(conjg(oper_o(:,:,nkp,2)))
endif
enddo
......
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