Changeset 5747

Timestamp:

Jul 1, 2025, 5:54:33 PM (4 weeks ago)

Author:

dcugnet

Message:

Add the "duplicate" function.

File:

• LMDZ6/trunk/libf/misc/strings_mod.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/misc/strings_mod.f90

@@ -6 +6 @@
   PUBLIC :: maxlen, init_printout, msg, get_in, lunout, prt_level
   PUBLIC :: strLower, strHead, strStack,  strCount, strReduce,  strClean, strIdx
-  PUBLIC :: strUpper, strTail, strStackm, strParse, strReplace, strFind, find, cat
+  PUBLIC :: strUpper, strTail, strStackm, strParse, strReplace, strFind, find, duplicate, cat
   PUBLIC :: dispTable, dispOutliers, dispNameList
   PUBLIC :: is_numeric, bool2str, int2str, real2str, dble2str
@@ -27 +27 @@
   INTERFACE strFind;      MODULE PROCEDURE strFind_1, strFind_m;                 END INTERFACE strFind
   INTERFACE find;         MODULE PROCEDURE strFind_1, strFind_m, intFind_1, intFind_m, booFind; END INTERFACE find
+  INTERFACE duplicate;    MODULE PROCEDURE dupl_s, dupl_i, dupl_r, dupl_l; END INTERFACE duplicate
   INTERFACE dispOutliers; MODULE PROCEDURE dispOutliers_1, dispOutliers_2; END INTERFACE dispOutliers
   INTERFACE reduceExpr;   MODULE PROCEDURE   reduceExpr_1,   reduceExpr_m; END INTERFACE reduceExpr
@@ -449 +450 @@
   IF(PRESENT(n)) n = SIZE(out(:), DIM=1)
 END FUNCTION booFind
+!==============================================================================================================================
+
+
+!==============================================================================================================================
+!=== DUPLICATE A VECTOR "v(:)" "n" times ======================================================================================
+!==============================================================================================================================
+SUBROUTINE dupl_s(v, n, vdup)
+  CHARACTER(LEN=*),                   INTENT(IN)  :: v(:)
+  INTEGER,                            INTENT(IN)  :: n
+  CHARACTER(LEN=maxlen), ALLOCATABLE, INTENT(OUT) :: vdup(:)
+!------------------------------------------------------------------------------------------------------------------------------
+  INTEGER :: nv, i
+  nv = SIZE(v)
+  ALLOCATE(vdup(n*nv))
+  DO i = 1, n; vdup(1+(i-1)*nv:i*nv) = v; END DO
+END SUBROUTINE dupl_s
+!==============================================================================================================================
+SUBROUTINE dupl_i(v, n, vdup)
+  INTEGER,              INTENT(IN)  :: v(:)
+  INTEGER,              INTENT(IN)  :: n
+  INTEGER, ALLOCATABLE, INTENT(OUT) :: vdup(:)
+!------------------------------------------------------------------------------------------------------------------------------
+  INTEGER :: nv, i
+  nv = SIZE(v)
+  ALLOCATE(vdup(n*nv))
+  DO i = 1, n; vdup(1+(i-1)*nv:i*nv) = v; END DO
+END SUBROUTINE dupl_i
+!==============================================================================================================================
+SUBROUTINE dupl_r(v, n, vdup)
+  REAL,                 INTENT(IN)  :: v(:)
+  INTEGER,              INTENT(IN)  :: n
+  REAL,    ALLOCATABLE, INTENT(OUT) :: vdup(:)
+!------------------------------------------------------------------------------------------------------------------------------
+  INTEGER :: nv, i
+  nv = SIZE(v)
+  ALLOCATE(vdup(n*nv))
+  DO i = 1, n; vdup(1+(i-1)*nv:i*nv) = v; END DO
+END SUBROUTINE dupl_r
+!==============================================================================================================================
+SUBROUTINE dupl_l(v, n, vdup)
+  LOGICAL,              INTENT(IN)  :: v(:)
+  INTEGER,              INTENT(IN)  :: n
+  LOGICAL, ALLOCATABLE, INTENT(OUT) :: vdup(:)
+!------------------------------------------------------------------------------------------------------------------------------
+  INTEGER :: nv, i
+  nv = SIZE(v)
+  ALLOCATE(vdup(n*nv))
+  DO i = 1, n; vdup(1+(i-1)*nv:i*nv) = v; END DO
+END SUBROUTINE dupl_l
 !==============================================================================================================================