cohérence des nomenclatures

LoicMarechal · Feb 26, 2024 · 9a55e83 · 9a55e83
1 parent 1a7c56f
commit 9a55e83
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 12 deletions.
diff --git 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
@@ -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