Commit 178945d8 authored by Frank Freimuth's avatar Frank Freimuth

Update wann_write_uHu.F

parent 24fa3575
......@@ -124,6 +124,7 @@ c******************************************************
open (305,file=spin12(jspin2)//trim(fending)//'.uHu'
> //trim(ftype),form='unformatted')
write (305) header
write (305) nbnd,fullnkpts,nntot !,nntot2
! write (305) bpt,gb
do ikpt = 1,fullnkpts
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