doFillBetween Subroutine

  1. examples.f90
  2. examples_prg
  3. doFillBetween

subroutine doFillBetween()

Arguments

None

Description

fillBetween

Calls

proc~~dofillbetween~~CallsGraph proc~dofillbetween doFillBetween proc~plot plot proc~dofillbetween->proc~plot proc~ticks ticks proc~dofillbetween->proc~ticks proc~xylim xylim proc~dofillbetween->proc~xylim proc~fillbetween fillBetween proc~dofillbetween->proc~fillbetween proc~linspace linspace proc~dofillbetween->proc~linspace proc~labels labels proc~dofillbetween->proc~labels interface~mixval mixval proc~dofillbetween->interface~mixval proc~figure figure proc~dofillbetween->proc~figure proc~subplot subplot proc~dofillbetween->proc~subplot plline plline proc~plot->plline plssym plssym proc~plot->plssym plptex plptex proc~plot->plptex plbox plbox proc~ticks->plbox plwind plwind proc~xylim->plwind plfill plfill proc~fillbetween->plfill pllab pllab proc~labels->pllab 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~~dofillbetween~~CalledByGraph proc~dofillbetween doFillBetween program~examples_prg examples_prg program~examples_prg->proc~dofillbetween
Help

Variables

TypeVisibility AttributesNameInitial
integer, public, parameter:: N =51
real(kind=wp), public, dimension(N):: x
real(kind=wp), public, dimension(N):: y1
real(kind=wp), public, dimension(N):: y2

Source Code

	subroutine doFillBetween
		!! ![fillBetween](|media|/example-7.svg)
		integer,parameter::N = 51
		real(wp),dimension(N)::x,y1,y2
		
		x = linspace(-3.0_wp,3.0_wp,N)
		y1 = x**2-1.0_wp
		y2 = x**3-1.0_wp
		
		call figure()
		call subplot(1,1,1)
		call xylim(mixval(x),mixval([y1,y2]))
		call fillBetween(x,y1,y2,fillColor='c',fillPattern='#',lineWidth=2.0_wp)
		call plot(x,y1,lineColor='k',lineWidth=3.0_wp)
		call plot(x,y2,lineColor='k',lineWidth=3.0_wp)
		call ticks(color='b',lineWidth=3.0_wp)
		call labels('x','y','f(x)=x#u2#d-1',color='r')
	end subroutine doFillBetween