From 4bd52fd35de71db34d4957117eb98126c10b372d Mon Sep 17 00:00:00 2001 From: sfilippone Date: Mon, 27 Jul 2026 14:26:25 +0200 Subject: [PATCH] Fix misplaced end interface in MMIO_MOD --- util/psb_i_mmio_mod.F90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/util/psb_i_mmio_mod.F90 b/util/psb_i_mmio_mod.F90 index 57fb503f3..4a03fae28 100644 --- a/util/psb_i_mmio_mod.F90 +++ b/util/psb_i_mmio_mod.F90 @@ -87,8 +87,8 @@ module psb_i_mmio_mod integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine mm_lvet2_read - end interface mm_array_read #endif + end interface mm_array_read interface mm_array_write subroutine mm_ivet2_write(b, header, info, iunit, filename) @@ -146,8 +146,9 @@ module psb_i_mmio_mod integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine mm_lvect_write - end interface mm_array_write #endif + end interface mm_array_write + interface mm_vet_write procedure mm_ivet1_write, mm_ivet2_write end interface