implemented generic clip function in stdlib_math.fypp file

Author: aman-godara

src/stdlib_math.fypp

@@ -0,0 +1,36 @@
+#: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
+    #:set RName = rname('clip', t1, k1)
+        module function ${RName}$(x, xmin, xmax) result(res)
+            ${t1}$(${k1}$), intent(in) :: x
+            ${t1}$(${k1}$), intent(in) :: xmin
+            ${t1}$(${k1}$), intent(in) :: xmax
+            ${t1}$(${k1}$) :: res
+        end function ${RName}$
+    #:endfor
+    end interface clip
+
+
+    contains
+        #:for k1, t1 in IR_KINDS_TYPES
+        #:set RName = rname('clip', t1, k1)
+        elemental function ${RName}$(x, xmin, xmax) result(res)
+            res = max(min(x, xmax), xmin)
+        end function ${RName}$
+        #:endfor
+
+end module stdlib_math