File tree Expand file tree Collapse file tree 2 files changed +4
-5
lines changed Expand file tree Collapse file tree 2 files changed +4
-5
lines changed Original file line number Diff line number Diff line change @@ -52,8 +52,8 @@ The output is a scalar of `type` and `kind` same as to that of the arguments.
5252Here inputs are of type ` integer ` and kind ` int32 `
5353``` fortran
5454program demo_clip_integer
55- use stdlib_math
56- use stdlib_kinds
55+ use stdlib_math, only: clip
56+ use stdlib_kinds, only: int32
5757 implicit none
5858 integer(int32) :: x
5959 integer(int32) :: xmin
@@ -77,8 +77,8 @@ end program demo_clip_integer
7777Here inputs are of type ` real ` and kind ` sp `
7878``` fortran
7979program demo_clip_real
80- use stdlib_math
81- use stdlib_kinds
80+ use stdlib_math, only: clip
81+ use stdlib_kinds, only: sp
8282 implicit none
8383 real(sp) :: x
8484 real(sp) :: xmin
Original file line number Diff line number Diff line change @@ -25,6 +25,5 @@ contains
2525
2626 res = max(min(x, xmax), xmin)
2727 end function clip_${k1}$
28-
2928 #:endfor
3029end module stdlib_math
You can’t perform that action at this time.
0 commit comments