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.
52
52
Here inputs are of type ` integer ` and kind ` int32 `
53
53
``` fortran
54
54
program demo_clip_integer
55
- use stdlib_math
56
- use stdlib_kinds
55
+ use stdlib_math, only: clip
56
+ use stdlib_kinds, only: int32
57
57
implicit none
58
58
integer(int32) :: x
59
59
integer(int32) :: xmin
@@ -77,8 +77,8 @@ end program demo_clip_integer
77
77
Here inputs are of type ` real ` and kind ` sp `
78
78
``` fortran
79
79
program demo_clip_real
80
- use stdlib_math
81
- use stdlib_kinds
80
+ use stdlib_math, only: clip
81
+ use stdlib_kinds, only: sp
82
82
implicit none
83
83
real(sp) :: x
84
84
real(sp) :: xmin
Original file line number Diff line number Diff line change @@ -25,6 +25,5 @@ contains
25
25
26
26
res = max(min(x, xmax), xmin)
27
27
end function clip_${k1}$
28
-
29
28
#:endfor
30
29
end module stdlib_math
You can’t perform that action at this time.
0 commit comments