implemented generic clip function

Author: aman-godara

src/CMakeLists.txt

@@ -22,6 +22,7 @@ set(fppFiles
     stdlib_quadrature_trapz.fypp
     stdlib_quadrature_simps.fypp
     stdlib_stats_distribution_PRNG.fypp
+    stdlib_math.fypp
 )
 
 

src/Makefile.manual

@@ -18,6 +18,7 @@ SRCFYPP =\
         stdlib_stats_moment_mask.fypp \
         stdlib_stats_moment_scalar.fypp \
         stdlib_stats_var.fypp \
+		stdlib_math.fypp \
 	stdlib_stats_distribution_PRNG.fypp
 
 SRC = f18estop.f90 \

src/stdlib_math.fypp

@@ -0,0 +1,33 @@
+#:include "common.fypp"
+
+#:set INT_KINDS_TYPES = [("int8", "integer"), ("int16", "integer"), ("int32", "integer"), ("int64", "integer")]
+#:set REAL_KINDS_TYPES = [("sp", "real"), ("dp", "real"), ("qp", "real")]
+
+#:set IR_KINDS_TYPES = INT_KINDS_TYPES + REAL_KINDS_TYPES
+module stdlib_math
+    use stdlib_kinds, only: int8, int16, int32, int64, sp, dp, qp
+
+    implicit none
+    private
+    public :: clip
+
+
+    interface clip
+    #:for k1, t1 in IR_KINDS_TYPES
+        module procedure clip_${t1}$_${k1}$
+    #:endfor
+    end interface clip
+
+
+    contains
+        #:for k1, t1 in IR_KINDS_TYPES
+        elemental function clip_${t1}$_${k1}$(x, xmin, xmax) result(res)
+            ${t1}$(${k1}$), intent(in) :: x
+            ${t1}$(${k1}$), intent(in) :: xmin
+            ${t1}$(${k1}$), intent(in) :: xmax
+            ${t1}$(${k1}$) :: res
+            res = max(min(x, xmax), xmin)
+        end function clip_${t1}$_${k1}$
+        #:endfor
+
+end module stdlib_math