From 21c29422be79c974ab261769f83aae0456230fc5 Mon Sep 17 00:00:00 2001
From: Compiler-max <max.merte@gmail.com>
Date: Fri, 24 May 2019 15:34:31 +0200
Subject: [PATCH 1/2] FEATURE added cmplx 6D tensor

---
 src/npy.F90 | 31 ++++++++++++++++++++++++++++---
 1 file changed, 28 insertions(+), 3 deletions(-)

diff --git a/src/npy.F90 b/src/npy.F90
index db2e1dd..3077aba 100644
--- a/src/npy.F90
+++ b/src/npy.F90
@@ -481,6 +481,31 @@ Subroutine  write_cmplx_sgn_vec(filename, vec)
     End Subroutine write_cmplx_sgn_vec
 
 
+    Subroutine  write_cmplx_dbl_6dT(filename, tensor)
+        Implicit None
+        character(len=*), intent(in)     :: filename
+        complex(8), intent(in)           :: tensor(:,:,:,:,:,:)
+        character(len=*), parameter      :: var_type =  "<c16"
+        integer(4)                       :: header_len, i,j, k
+
+        header_len =  len(dict_str(var_type, shape(tensor)))
+        
+        open(unit=p_un, file=filename, form="unformatted",&
+             access="stream")
+        write (p_un) magic_num, magic_str, major, minor
+        if(Big_Endian()) then
+            write (*,*) "6D tensors not implemented on BigEndian"
+            write (*,*) "write in issue if you need it"
+            stop 7
+        else
+            write (p_un) header_len
+        endif
+
+        write (p_un) dict_str(var_type, shape(tensor))
+        write (p_un) tensor
+        close(unit=p_un)
+    End Subroutine write_cmplx_dbl_5dT
+
     Subroutine  write_cmplx_dbl_5dT(filename, tensor)
         Implicit None
         character(len=*), intent(in)     :: filename
@@ -494,7 +519,7 @@ Subroutine  write_cmplx_dbl_5dT(filename, tensor)
              access="stream")
         write (p_un) magic_num, magic_str, major, minor
         if(Big_Endian()) then
-            write (*,*) "3D tensors not implemented on BigEndian"
+            write (*,*) "5D tensors not implemented on BigEndian"
             write (*,*) "write in issue if you need it"
             stop 7
         else
@@ -519,7 +544,7 @@ Subroutine  write_cmplx_dbl_4dT(filename, tensor)
              access="stream")
         write (p_un) magic_num, magic_str, major, minor
         if(Big_Endian()) then
-            write (*,*) "3D tensors not implemented on BigEndian"
+            write (*,*) "4D tensors not implemented on BigEndian"
             write (*,*) "write in issue if you need it"
             stop 7
         else
@@ -778,7 +803,7 @@ Subroutine  write_dbl_5dT(filename, tensor5)
              access="stream")
         write (p_un) magic_num, magic_str, major, minor
         if(Big_Endian()) then
-            write (*,*) "4D tensors not implemented on BigEndian"
+            write (*,*) "5D tensors not implemented on BigEndian"
             write (*,*) "write in issue if you need it"
             stop 7
         else

From 657f74a9443826a142b477b2083993f15413b5df Mon Sep 17 00:00:00 2001
From: Compiler-max <max.merte@gmail.com>
Date: Fri, 24 May 2019 15:49:30 +0200
Subject: [PATCH 2/2] BUGFIX added cmplx 6D to interface & corrected syntax for
 cmplx_6D

---
 src/npy.F90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/npy.F90 b/src/npy.F90
index 3077aba..f51f992 100644
--- a/src/npy.F90
+++ b/src/npy.F90
@@ -24,7 +24,8 @@ module  m_npy
                          write_dbl_5dT,&
                          write_cmplx_dbl_3dT,&
                          write_cmplx_dbl_4dT,&
-                         write_cmplx_dbl_5dT
+                         write_cmplx_dbl_5dT,&
+                         write_cmplx_dbl_6dT
 
 
     end interface save_npy
@@ -504,7 +505,7 @@ Subroutine  write_cmplx_dbl_6dT(filename, tensor)
         write (p_un) dict_str(var_type, shape(tensor))
         write (p_un) tensor
         close(unit=p_un)
-    End Subroutine write_cmplx_dbl_5dT
+    End Subroutine write_cmplx_dbl_6dT
 
     Subroutine  write_cmplx_dbl_5dT(filename, tensor)
         Implicit None