Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=wp), | intent(in) | :: | l | Low-bound for values |
||
real(kind=wp), | intent(in) | :: | h | High-bound for values |
||
integer, | intent(in), | optional | :: | N | Number of values (default 20) |
Return an array of evenly-spaced values
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public | :: | Nl | ||||
integer, | public | :: | i |
function linspace(l,h,N) result(o)
!! Return an array of evenly-spaced values
real(wp),intent(in)::l
!! Low-bound for values
real(wp),intent(in)::h
!! High-bound for values
integer,intent(in),optional::N
!! Number of values (default 20)
real(wp),dimension(:),allocatable::o
integer::Nl,i
Nl = 20
if(present(N)) Nl = N
o = [( (h-l)*real(i-1,wp)/real(Nl-1,wp)+l , i=1 , Nl )]
end function linspace