doHist Subroutine

  1. examples.f90
  2. examples_prg
  3. doHist

subroutine doHist()

Arguments

None

Description

hist

Calls

proc~~dohist~~CallsGraph proc~dohist doHist proc~hist hist proc~dohist->proc~hist proc~ticks ticks proc~dohist->proc~ticks proc~xylim xylim proc~dohist->proc~xylim proc~bar bar proc~dohist->proc~bar interface~mixval mixval proc~dohist->interface~mixval proc~bindata binData proc~dohist->proc~bindata proc~figure figure proc~dohist->proc~figure proc~subplot subplot proc~dohist->proc~subplot proc~hist->proc~bar proc~hist->interface~mixval proc~hist->proc~bindata plbox plbox proc~ticks->plbox plwind plwind proc~xylim->plwind proc~bar->interface~mixval plline plline proc~bar->plline plcol1 plcol1 proc~bar->plcol1 plfill plfill proc~bar->plfill proc~linspace linspace proc~bindata->proc~linspace pleop pleop proc~figure->pleop plbop plbop proc~figure->plbop pladv pladv proc~figure->pladv plssub plssub proc~figure->plssub proc~subplot->pladv proc~subplot->plssub plvasp plvasp proc~subplot->plvasp plvsta plvsta proc~subplot->plvsta plvpor plvpor proc~subplot->plvpor
Help

Called By

proc~~dohist~~CalledByGraph proc~dohist doHist program~examples_prg examples_prg program~examples_prg->proc~dohist
Help

Variables

TypeVisibility AttributesNameInitial
integer, public, parameter:: N =10000
real(kind=wp), public, dimension(N,12):: r
real(kind=wp), public, dimension(N):: x
real(kind=wp), public, dimension(:,:), allocatable:: h

Source Code

	subroutine doHist
		!! ![hist](|media|/example-8.svg)
		integer,parameter::N = 10000
		real(wp),dimension(N,12)::r
		real(wp),dimension(N)::x
		real(wp),dimension(:,:),allocatable::h
		
		call random_number(r)
		x = sum(r,2)-6.0_wp
		call figure()
		
		call subplot(1,2,1)
		call xylim(mixval(x),[0.0_wp,1.05_wp])
		call hist(x,20)
		call ticks()
		
		h = binData(x,20,normalize=2)
		call subplot(1,2,2)
		call xylim(mixval(h(:,1)),[0.0_wp,1.05_wp*maxval(h(:,2))])
		call bar(h(:,1),h(:,2),c=h(:,2),relWidth=1.0_wp)
		call ticks()
	end subroutine doHist