doBar Subroutine

  1. examples.f90
  2. examples_prg
  3. doBar

subroutine doBar()

Arguments

None

Description

bar

Calls

proc~~dobar~~CallsGraph proc~dobar doBar proc~bar bar proc~dobar->proc~bar proc~ticks ticks proc~dobar->proc~ticks proc~xylim xylim proc~dobar->proc~xylim proc~labels labels proc~dobar->proc~labels proc~linspace linspace proc~dobar->proc~linspace proc~barh barh proc~dobar->proc~barh interface~mixval mixval proc~dobar->interface~mixval proc~figure figure proc~dobar->proc~figure proc~subplot subplot proc~dobar->proc~subplot proc~bar->interface~mixval plline plline proc~bar->plline plcol1 plcol1 proc~bar->plcol1 plfill plfill proc~bar->plfill plbox plbox proc~ticks->plbox plwind plwind proc~xylim->plwind pllab pllab proc~labels->pllab proc~barh->interface~mixval proc~barh->plline proc~barh->plcol1 proc~barh->plfill 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~~dobar~~CalledByGraph proc~dobar doBar program~examples_prg examples_prg program~examples_prg->proc~dobar
Help

Variables

TypeVisibility AttributesNameInitial
integer, public, parameter:: N =21
real(kind=wp), public, dimension(N):: x
real(kind=wp), public, dimension(N):: y

Source Code

	subroutine doBar
		!! ![bar](|media|/example-6.svg)
		integer,parameter::N = 21
		real(wp),dimension(N)::x,y
		
		x = linspace(-PI,PI,N)
		y = exp(-x**2)
		
		call figure()
		
		call subplot(1,2,1)
		call xylim(mixval(x)+[-0.1_wp,0.1_wp],mixval(y)+[ 0.0_wp,0.1_wp])
		call bar(x,y,c=y,relWidth=1.0_wp)
		call ticks()
		call labels('x','y','')
		
		call subplot(1,2,2)
		call xylim(mixval(y)+[ 0.0_wp,0.1_wp],mixval(x)+[-0.1_wp,0.1_wp])
		call barh(x,y,fillColor='r',relWidth=1.0_wp)
		call ticks()
		call labels('x','y','')
	end subroutine doBar