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