From f15bd7bc3dca5d7be1d1b26c4dce37130385be22 Mon Sep 17 00:00:00 2001
From: sfilippone <salvatore.filippone@uniroma2.it>
Date: Mon, 27 Jul 2026 16:11:04 +0200
Subject: [PATCH] Fix missing interface when LPK4

---
 util/psb_i_mmio_mod.F90 | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/util/psb_i_mmio_mod.F90 b/util/psb_i_mmio_mod.F90
index 4a03fae28..a44eeb3be 100644
--- a/util/psb_i_mmio_mod.F90
+++ b/util/psb_i_mmio_mod.F90
@@ -109,6 +109,24 @@ module psb_i_mmio_mod
       integer(psb_ipk_), optional, intent(in)          :: iunit
       character(len=*), optional, intent(in) :: filename
     end subroutine mm_ivet1_write
+    subroutine mm_ivect_write(b, header, info, iunit, filename)   
+      import :: psb_ipk_,psb_i_vect_type
+      implicit none
+      type(psb_i_vect_type), intent(inout)  :: b
+      character(len=*), intent(in) :: header
+      integer(psb_ipk_), intent(out)        :: info
+      integer(psb_ipk_), optional, intent(in)          :: iunit
+      character(len=*), optional, intent(in) :: filename
+    end subroutine mm_ivect_write
+    subroutine mm_lvect_write(b, header, info, iunit, filename)   
+      import :: psb_ipk_,psb_l_vect_type
+      implicit none
+      type(psb_l_vect_type), intent(inout)  :: b
+      character(len=*), intent(in) :: header
+      integer(psb_ipk_), intent(out)        :: info
+      integer(psb_ipk_), optional, intent(in)          :: iunit
+      character(len=*), optional, intent(in) :: filename
+    end subroutine mm_lvect_write
 #if defined(PSB_IPK4) && defined(PSB_LPK8) 
     subroutine mm_lvet2_write(b, header, info, iunit, filename)   
       import :: psb_ipk_, psb_lpk_
@@ -128,24 +146,6 @@ module psb_i_mmio_mod
       integer(psb_ipk_), optional, intent(in)          :: iunit
       character(len=*), optional, intent(in) :: filename
     end subroutine mm_lvet1_write
-    subroutine mm_ivect_write(b, header, info, iunit, filename)   
-      import :: psb_ipk_,psb_i_vect_type
-      implicit none
-      type(psb_i_vect_type), intent(inout)  :: b
-      character(len=*), intent(in) :: header
-      integer(psb_ipk_), intent(out)        :: info
-      integer(psb_ipk_), optional, intent(in)          :: iunit
-      character(len=*), optional, intent(in) :: filename
-    end subroutine mm_ivect_write
-    subroutine mm_lvect_write(b, header, info, iunit, filename)   
-      import :: psb_ipk_,psb_l_vect_type
-      implicit none
-      type(psb_l_vect_type), intent(inout)  :: b
-      character(len=*), intent(in) :: header
-      integer(psb_ipk_), intent(out)        :: info
-      integer(psb_ipk_), optional, intent(in)          :: iunit
-      character(len=*), optional, intent(in) :: filename
-    end subroutine mm_lvect_write
 #endif
   end interface mm_array_write