From d504108a3357ba5fb5c907b0db8537b482ffbe51 Mon Sep 17 00:00:00 2001
From: Kevin Gasperich <kgasperich@gmail.com>
Date: Thu, 12 Mar 2020 18:21:50 -0500
Subject: [PATCH] testing

---
 src/utils_complex/dump_kcon.irp.f | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 src/utils_complex/dump_kcon.irp.f

diff --git a/src/utils_complex/dump_kcon.irp.f b/src/utils_complex/dump_kcon.irp.f
new file mode 100644
index 00000000..9f74a0c0
--- /dev/null
+++ 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