PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-14 18:13:51 +01:00
Code Releases Activity

testing

Browse Source
This commit is contained in:
Kevin Gasperich 2020-03-12 18:21:50 -05:00
parent 25181963f8
commit d504108a33
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/utils_complex/dump_kcon.irp.f Normal file
View File

@ -0,0 +1,21 @@
program dump_kcon
call run
end
subroutine run
use map_module
implicit none
integer ::i,j,k,l
provide kconserv
do i=1,kpt_num
do j=1,kpt_num
do k=1,kpt_num
l = kconserv(i,j,k)
print'(4(I4))',i,j,k,l
enddo
enddo
enddo
end