Skip to content

Commit c84b0d6

Browse files
authored
Update stdlib_experimental_optval.md
fix whitespace
1 parent f6b730f commit c84b0d6

File tree

1 file changed

+5
-5
lines changed

1 file changed

+5
-5
lines changed

src/stdlib_experimental_optval.md

+5-5
Original file line numberDiff line numberDiff line change
@@ -31,16 +31,16 @@ If `x` is PRESENT, the result is `x`, otherwise the result is `default`.
3131
```fortran
3232
program demo_optval
3333
use stdlib_experimental_optval, only: optval
34-
implicit none
35-
print *, root(64.0)
34+
implicit none
35+
print *, root(64.0)
3636
! 8.0
3737
print *, root(64.0, 3)
3838
! 4.0
3939
contains
4040
real function root(x, n)
41-
real, intent(in) :: x
42-
integer, intent(in), optional :: n
43-
root = x**(1.0/optval(n, 2))
41+
real, intent(in) :: x
42+
integer, intent(in), optional :: n
43+
root = x**(1.0/optval(n, 2))
4444
end function root
4545
end program demo_optval
4646
```

0 commit comments

Comments
 (0)