fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 04:12:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix misplaced end interface in MMIO_MOD

Browse Source
This commit is contained in:
sfilippone
2026-07-27 14:26:25 +02:00
parent 2c49a200af
commit 4bd52fd35d
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
util/psb_i_mmio_mod.F90
+3 -2
View File
@@ -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