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

Update wann_write_uHu.F

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