linspace Function

public function linspace(l, h, N) result(o)

Arguments

Type IntentOptional AttributesName
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 Value real(kind=wp), dimension(:),allocatable

Description

Return an array of evenly-spaced values

Called By

proc~~linspace~~CalledByGraph proc~linspace linspace proc~dobar doBar proc~dobar->proc~linspace proc~surface surface proc~surface->proc~linspace proc~doplot doPlot proc~doplot->proc~linspace proc~docontour doContour proc~docontour->proc~linspace proc~contourf contourf proc~docontour->proc~contourf proc~dolegend doLegend proc~dolegend->proc~linspace proc~makelogo makeLogo proc~makelogo->proc~linspace program~animate_prg animate_prg program~animate_prg->proc~linspace proc~doerror doError proc~doerror->proc~linspace program~basic_prg basic_prg program~basic_prg->proc~linspace proc~doquiver doQuiver proc~doquiver->proc~linspace proc~bindata binData proc~bindata->proc~linspace proc~dofillbetween doFillBetween proc~dofillbetween->proc~linspace proc~dosurface doSurface proc~dosurface->proc~linspace proc~dosurface->proc~surface proc~contourf->proc~linspace proc~dologplot doLogPlot proc~dologplot->proc~linspace program~examples_prg examples_prg program~examples_prg->proc~dobar program~examples_prg->proc~doplot program~examples_prg->proc~docontour program~examples_prg->proc~dolegend program~examples_prg->proc~doerror program~examples_prg->proc~doquiver program~examples_prg->proc~dofillbetween program~examples_prg->proc~dosurface program~examples_prg->proc~dologplot proc~dohist doHist program~examples_prg->proc~dohist program~logo_prg logo_prg program~logo_prg->proc~makelogo proc~dohist->proc~bindata proc~hist hist proc~dohist->proc~hist proc~hist->proc~bindata
Help

Variables

TypeVisibility AttributesNameInitial
integer, public :: Nl
integer, public :: i

Source Code

	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