Philippe 26/06/2024: minor: MODE_ALLOCBUFFER_ll: rename some internal subroutines

src/LIB/SURCOUCHE/src/mode_allocbuff.f90

@@ -18,11 +18,11 @@ PRIVATE
 
 INTERFACE ALLOCBUFFER_ll
   MODULE PROCEDURE                                                                                              &
-    ALLOCBUFFER_X1, ALLOCBUFFER_NEW_X1, ALLOCBUFFER_X2, ALLOCBUFFER_NEW_X2, ALLOCBUFFER_X3, ALLOCBUFFER_NEW_X3, &
-    ALLOCBUFFER_X4, ALLOCBUFFER_NEW_X4, ALLOCBUFFER_X5, ALLOCBUFFER_NEW_X5, ALLOCBUFFER_X6, ALLOCBUFFER_NEW_X6, &
-    ALLOCBUFFER_N1, ALLOCBUFFER_NEW_N1, ALLOCBUFFER_N2, ALLOCBUFFER_NEW_N2, ALLOCBUFFER_N3, ALLOCBUFFER_NEW_N3, &
-    ALLOCBUFFER_N4, ALLOCBUFFER_NEW_N4,                                                                         &
-    ALLOCBUFFER_L1, ALLOCBUFFER_NEW_L1
+    ALLOCBUFFER_X1, ALLOCBUFFER_NOPTR_X1, ALLOCBUFFER_X2, ALLOCBUFFER_NOPTR_X2, ALLOCBUFFER_X3, ALLOCBUFFER_NOPTR_X3, &
+    ALLOCBUFFER_X4, ALLOCBUFFER_NOPTR_X4, ALLOCBUFFER_X5, ALLOCBUFFER_NOPTR_X5, ALLOCBUFFER_X6, ALLOCBUFFER_NOPTR_X6, &
+    ALLOCBUFFER_N1, ALLOCBUFFER_NOPTR_N1, ALLOCBUFFER_N2, ALLOCBUFFER_NOPTR_N2, ALLOCBUFFER_N3, ALLOCBUFFER_NOPTR_N3, &
+    ALLOCBUFFER_N4, ALLOCBUFFER_NOPTR_N4,                                                                         &
+    ALLOCBUFFER_L1, ALLOCBUFFER_NOPTR_L1
 END INTERFACE
 
 PUBLIC :: ALLOCBUFFER_ll
@@ -54,7 +54,7 @@ CASE default
 END SELECT
 END SUBROUTINE ALLOCBUFFER_N1
 
-SUBROUTINE ALLOCBUFFER_NEW_N1( LTAB_OUT, LTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_N1( LTAB_OUT, LTAB_IN, HDIR )
   !
   INTEGER, DIMENSION(:), ALLOCATABLE, INTENT(OUT) :: LTAB_OUT
   INTEGER, DIMENSION(:),              INTENT(IN)  :: LTAB_IN
@@ -72,7 +72,7 @@ SUBROUTINE ALLOCBUFFER_NEW_N1( LTAB_OUT, LTAB_IN, HDIR )
   CASE default
     ALLOCATE( LTAB_OUT, MOLD = LTAB_IN )
   END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_N1
+END SUBROUTINE ALLOCBUFFER_NOPTR_N1
 
 SUBROUTINE ALLOCBUFFER_N2(KTAB_P,KTAB,HDIR,OALLOC)
 USE MODD_IO, ONLY: LPACK, L2D
@@ -108,7 +108,7 @@ CASE default
 END SELECT
 END SUBROUTINE ALLOCBUFFER_N2
 
-SUBROUTINE ALLOCBUFFER_NEW_N2( KTAB_OUT, KTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_N2( KTAB_OUT, KTAB_IN, HDIR )
   USE MODD_IO, ONLY: LPACK, L2D
   !
   INTEGER, DIMENSION(:,:), ALLOCATABLE, INTENT(OUT) :: KTAB_OUT
@@ -135,7 +135,7 @@ SUBROUTINE ALLOCBUFFER_NEW_N2( KTAB_OUT, KTAB_IN, HDIR )
   CASE default
     ALLOCATE( KTAB_OUT, MOLD = KTAB_IN )
   END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_N2
+END SUBROUTINE ALLOCBUFFER_NOPTR_N2
 
 SUBROUTINE ALLOCBUFFER_N3(KTAB_P,KTAB,HDIR,OALLOC)
 USE MODD_IO, ONLY: LPACK, L2D
@@ -171,7 +171,7 @@ CASE default
 END SELECT
 END SUBROUTINE ALLOCBUFFER_N3
 
-SUBROUTINE ALLOCBUFFER_NEW_N3( KTAB_OUT, KTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_N3( KTAB_OUT, KTAB_IN, HDIR )
   USE MODD_IO, ONLY: LPACK, L2D
   !
   INTEGER, DIMENSION(:,:,:), ALLOCATABLE, INTENT(OUT) :: KTAB_OUT
@@ -198,7 +198,7 @@ SUBROUTINE ALLOCBUFFER_NEW_N3( KTAB_OUT, KTAB_IN, HDIR )
   CASE default
     ALLOCATE( KTAB_OUT, MOLD = KTAB_IN )
   END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_N3
+END SUBROUTINE ALLOCBUFFER_NOPTR_N3
 
 SUBROUTINE ALLOCBUFFER_N4(KTAB_P,KTAB,HDIR,OALLOC)
 USE MODD_IO, ONLY: LPACK, L2D
@@ -236,7 +236,7 @@ CASE default
 END SELECT
 END SUBROUTINE ALLOCBUFFER_N4
 
-SUBROUTINE ALLOCBUFFER_NEW_N4( KTAB_OUT, KTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_N4( KTAB_OUT, KTAB_IN, HDIR )
   USE MODD_IO, ONLY: LPACK, L2D
   !
   INTEGER, DIMENSION(:,:,:,:), ALLOCATABLE, INTENT(OUT) :: KTAB_OUT
@@ -263,7 +263,7 @@ SUBROUTINE ALLOCBUFFER_NEW_N4( KTAB_OUT, KTAB_IN, HDIR )
   CASE default
     ALLOCATE( KTAB_OUT, MOLD = KTAB_IN )
   END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_N4
+END SUBROUTINE ALLOCBUFFER_NOPTR_N4
 
 SUBROUTINE ALLOCBUFFER_L1(LTAB_P,LTAB,HDIR,OALLOC)
 !
@@ -289,7 +289,7 @@ CASE default
 END SELECT
 END SUBROUTINE ALLOCBUFFER_L1
 
-SUBROUTINE ALLOCBUFFER_NEW_L1( LTAB_OUT, LTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_L1( LTAB_OUT, LTAB_IN, HDIR )
   !
   LOGICAL, DIMENSION(:), ALLOCATABLE, INTENT(OUT) :: LTAB_OUT
   LOGICAL, DIMENSION(:),              INTENT(IN)  :: LTAB_IN
@@ -307,7 +307,7 @@ SUBROUTINE ALLOCBUFFER_NEW_L1( LTAB_OUT, LTAB_IN, HDIR )
   CASE default
     ALLOCATE( LTAB_OUT, MOLD = LTAB_IN )
   END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_L1
+END SUBROUTINE ALLOCBUFFER_NOPTR_L1
 
 SUBROUTINE ALLOCBUFFER_X1(PTAB_P,PTAB,HDIR,OALLOC, KIMAX_ll, KJMAX_ll)
 !
@@ -345,7 +345,7 @@ CASE default
 END SELECT
 END SUBROUTINE ALLOCBUFFER_X1
 
-SUBROUTINE ALLOCBUFFER_NEW_X1( PTAB_OUT, PTAB_IN, HDIR, KIMAX_ll, KJMAX_ll )
+SUBROUTINE ALLOCBUFFER_NOPTR_X1( PTAB_OUT, PTAB_IN, HDIR, KIMAX_ll, KJMAX_ll )
   !
   REAL, DIMENSION(:), ALLOCATABLE, INTENT(OUT) :: PTAB_OUT
   REAL, DIMENSION(:),              INTENT(IN)  :: PTAB_IN
@@ -375,7 +375,7 @@ SUBROUTINE ALLOCBUFFER_NEW_X1( PTAB_OUT, PTAB_IN, HDIR, KIMAX_ll, KJMAX_ll )
   CASE default
     ALLOCATE( PTAB_OUT, MOLD = PTAB_IN )
   END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_X1
+END SUBROUTINE ALLOCBUFFER_NOPTR_X1
 
 SUBROUTINE ALLOCBUFFER_X2(PTAB_P,PTAB,HDIR,OALLOC, KIMAX_ll, KJMAX_ll)
 USE MODD_IO, ONLY: LPACK, L2D
@@ -427,7 +427,7 @@ CASE default
 END SELECT
 END SUBROUTINE ALLOCBUFFER_X2
 
-SUBROUTINE ALLOCBUFFER_NEW_X2( PTAB_OUT, PTAB_IN, HDIR, KIMAX_ll, KJMAX_ll )
+SUBROUTINE ALLOCBUFFER_NOPTR_X2( PTAB_OUT, PTAB_IN, HDIR, KIMAX_ll, KJMAX_ll )
   USE MODD_IO, ONLY: LPACK, L2D
   !
   REAL, DIMENSION(:,:), ALLOCATABLE, INTENT(OUT) :: PTAB_OUT
@@ -470,7 +470,7 @@ SUBROUTINE ALLOCBUFFER_NEW_X2( PTAB_OUT, PTAB_IN, HDIR, KIMAX_ll, KJMAX_ll )
   CASE default
     ALLOCATE( PTAB_OUT, MOLD = PTAB_IN )
   END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_X2
+END SUBROUTINE ALLOCBUFFER_NOPTR_X2
 
 SUBROUTINE ALLOCBUFFER_X3(PTAB_P,PTAB,HDIR,OALLOC)
 USE MODD_IO, ONLY: LPACK, L2D
@@ -506,7 +506,7 @@ CASE default
 END SELECT
 END SUBROUTINE ALLOCBUFFER_X3
 
-SUBROUTINE ALLOCBUFFER_NEW_X3( PTAB_OUT, PTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_X3( PTAB_OUT, PTAB_IN, HDIR )
   USE MODD_IO, ONLY: LPACK, L2D
   !
   REAL, DIMENSION(:,:,:), ALLOCATABLE, INTENT(OUT) :: PTAB_OUT
@@ -532,7 +532,7 @@ SUBROUTINE ALLOCBUFFER_NEW_X3( PTAB_OUT, PTAB_IN, HDIR )
   CASE default
     ALLOCATE( PTAB_OUT, MOLD = PTAB_IN )
   END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_X3
+END SUBROUTINE ALLOCBUFFER_NOPTR_X3
 
 SUBROUTINE ALLOCBUFFER_X4(PTAB_P,PTAB,HDIR,OALLOC)
 USE MODD_IO, ONLY: LPACK, L2D
@@ -570,7 +570,7 @@ CASE default
 END SELECT
 END SUBROUTINE ALLOCBUFFER_X4
 
-SUBROUTINE ALLOCBUFFER_NEW_X4( PTAB_OUT, PTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_X4( PTAB_OUT, PTAB_IN, HDIR )
   USE MODD_IO, ONLY: LPACK, L2D
   !
   REAL, DIMENSION(:,:,:,:), ALLOCATABLE, INTENT(OUT) :: PTAB_OUT
@@ -596,7 +596,7 @@ SUBROUTINE ALLOCBUFFER_NEW_X4( PTAB_OUT, PTAB_IN, HDIR )
   CASE default
     ALLOCATE( PTAB_OUT, MOLD = PTAB_IN )
   END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_X4
+END SUBROUTINE ALLOCBUFFER_NOPTR_X4
 
 SUBROUTINE ALLOCBUFFER_X5(PTAB_P,PTAB,HDIR,OALLOC)
 USE MODD_IO, ONLY: LPACK, L2D
@@ -636,7 +636,7 @@ CASE default
 END SELECT
 END SUBROUTINE ALLOCBUFFER_X5
 
-SUBROUTINE ALLOCBUFFER_NEW_X5( PTAB_OUT, PTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_X5( PTAB_OUT, PTAB_IN, HDIR )
   USE MODD_IO, ONLY: LPACK, L2D
   !
   REAL, DIMENSION(:,:,:,:,:), ALLOCATABLE, INTENT(OUT) :: PTAB_OUT
@@ -662,7 +662,7 @@ SUBROUTINE ALLOCBUFFER_NEW_X5( PTAB_OUT, PTAB_IN, HDIR )
   CASE default
     ALLOCATE( PTAB_OUT, MOLD = PTAB_IN )
   END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_X5
+END SUBROUTINE ALLOCBUFFER_NOPTR_X5
 
 SUBROUTINE ALLOCBUFFER_X6(PTAB_P,PTAB,HDIR,OALLOC)
 USE MODD_IO, ONLY: LPACK, L2D
@@ -702,7 +702,7 @@ CASE default
 END SELECT
 END SUBROUTINE ALLOCBUFFER_X6
 
-SUBROUTINE ALLOCBUFFER_NEW_X6( PTAB_OUT, PTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_X6( PTAB_OUT, PTAB_IN, HDIR )
   USE MODD_IO, ONLY: LPACK, L2D
   !
   REAL, DIMENSION(:,:,:,:,:,:), ALLOCATABLE, INTENT(OUT) :: PTAB_OUT
@@ -728,6 +728,6 @@ SUBROUTINE ALLOCBUFFER_NEW_X6( PTAB_OUT, PTAB_IN, HDIR )
   CASE default
     ALLOCATE( PTAB_OUT, MOLD = PTAB_IN )
   END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_X6
+END SUBROUTINE ALLOCBUFFER_NOPTR_X6
 
 END MODULE MODE_ALLOCBUFFER_ll