From 9a55e837c61f7597b96ce6de4d023473d29c6aaf Mon Sep 17 00:00:00 2001
From: Christophe Peyret <christophe.peyret@onera.fr>
Date: Mon, 26 Feb 2024 22:13:25 +0100
Subject: [PATCH] =?UTF-8?q?coh=C3=A9rence=20des=20nomenclatures?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 examples/test_libmeshb_HO.f90 |  8 ++++----
 sources/libmeshb7_mod.f90     | 16 ++++++++--------
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/examples/test_libmeshb_HO.f90 b/examples/test_libmeshb_HO.f90
index 609c85b..25a43f3 100644
--- a/examples/test_libmeshb_HO.f90
+++ b/examples/test_libmeshb_HO.f90
@@ -110,7 +110,7 @@ program test_libmeshb_HO_f90
         &   ad0=1                  ,&
         &   ad1=nNode              ,&
         &   Tab=OrdTab(:,1:nNode)   )
-                
+        
         print '("Input  Mesh Order")'
         do i=1,size(OrdTab,2)
           print '(3x,"uv(",i2.2,")=",2(i2,1x))',i,OrdTab(1:2,i)
@@ -146,9 +146,9 @@ program test_libmeshb_HO_f90
     allocate(TriTab(1:6,1:NmbTri))
     allocate(TriRef(    1:NmbTri))
     
-    !>  04 07 03         !>        03   04 07 03
-    !>  08 09 06  =>     !>     09 06 + 08 09   
-    !>  01 05 02         !>  01 05 02   01      
+    !>  04 07 03          03   04 07 03
+    !>  08 09 06 =>    09 06 + 08 09   
+    !>  01 05 02    01 05 02   01      
     
     !>  03 
     !>  06 05
diff --git a/sources/libmeshb7_mod.f90 b/sources/libmeshb7_mod.f90
index a8aedcf..4fa2c46 100644
--- a/sources/libmeshb7_mod.f90
+++ b/sources/libmeshb7_mod.f90
@@ -313,9 +313,9 @@ module libmeshb7
   
   interface     GmfSetBlockF90
    !module procedure GmfGetBlockF90_00
-    module procedure GmfSetBlockF90_01 !> nodes    + ref
-    module procedure GmfSetBlockF90_02 !> vertices + ref
-    module procedure GmfSetBlockF90_03 !> solutions     
+    module procedure GmfSetBlockF90_01    !> nodes    + ref
+    module procedure GmfSetBlockF90_02    !> vertices + ref
+    module procedure GmfSetBlockF90_02Bis !> solutions     
   end interface GmfSetBlockF90
   
 contains
@@ -806,7 +806,7 @@ function     GmfSetBlockF90_02(unit, GmfKey, ad0, ad1, Tab, Ref) result(res)
     return
   end function GmfSetBlockF90_02
   
-  function     GmfSetBlockF90_03(unit, GmfKey, ad0, ad1, Tab) result(res)
+  function     GmfSetBlockF90_02Bis(unit, GmfKey, ad0, ad1, Tab) result(res)
     !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
     integer(int64), intent(in)    :: unit
     integer(int32), intent(in)    :: GmfKey
@@ -823,9 +823,9 @@ function     GmfSetBlockF90_03(unit, GmfKey, ad0, ad1, Tab) result(res)
     !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
     Nmb=ad1-ad0+1
     
-    print '("GmfSetBlockF90_03 (ad0,ad1)=(",i0,",",i0,") Nmb=",i0)',ad0,ad1,Nmb
-    print '("GmfSetBlockF90_03 size(Tab)=",i0,"x",i0)',size(Tab,1),size(Tab,2)
-    print '("GmfSetBlockF90_03 size(Ref)=  ",i0)',size(Ref)
+    print '("GmfSetBlockF90_02Bis (ad0,ad1)=(",i0,",",i0,") Nmb=",i0)',ad0,ad1,Nmb
+    print '("GmfSetBlockF90_02Bis size(Tab)=",i0,"x",i0)',size(Tab,1),size(Tab,2)
+    print '("GmfSetBlockF90_02Bis size(Ref)=  ",i0)',size(Ref)
     
     res=GmfSetBlockF77(unit       ,&
     &                  GmfKey     ,&
@@ -841,6 +841,6 @@ function     GmfSetBlockF90_03(unit, GmfKey, ad0, ad1, Tab) result(res)
     &                  Ref(    1)  )
     !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
     return
-  end function GmfSetBlockF90_03
+  end function GmfSetBlockF90_02Bis
 
 end module libmeshb7
\ No newline at end of file