Commit 8ca35011 authored by Frank Freimuth's avatar Frank Freimuth

Update wann_write_uHu.F

parent c706e43f
......@@ -62,6 +62,8 @@ c uHu = uHu_in
#endif
endif
header='Elements uHu at k+b1 and k+b2'
c******************************************************
c Write mmnk matrix to file.
c******************************************************
......@@ -137,10 +139,12 @@ c******************************************************
! write (305) conjg(uHu_in)
write (305) uHu_in(:,:,ikpt_b2,ikpt_b,ikpt)
endif
close (305)
enddo
enddo
enddo
close(305)
endif
......
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