mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-12 02:38:31 +02:00
testing
This commit is contained in:
parent
25181963f8
commit
d504108a33
21
src/utils_complex/dump_kcon.irp.f
Normal file
21
src/utils_complex/dump_kcon.irp.f
Normal 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
|
Loading…
Reference in New Issue
Block a user