testing

2024-11-07 14:03:37 +01:00 · 2020-03-12 18:21:50 -05:00 · 2020-03-12 18:21:50 -05:00 · d504108a33
commit d504108a33
parent 25181963f8
1 changed files with 21 additions and 0 deletions
--- a/src/utils_complex/dump_kcon.irp.f
+++ b/src/utils_complex/dump_kcon.irp.f
@ -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