doPlot Subroutine

  1. examples.f90
  2. examples_prg
  3. doPlot

subroutine doPlot()

Arguments

None

Description

plot

Calls

proc~~doplot~~CallsGraph proc~doplot doPlot proc~title title proc~doplot->proc~title proc~plot plot proc~doplot->proc~plot proc~yticks yticks proc~doplot->proc~yticks proc~xylim xylim proc~doplot->proc~xylim proc~xlabel xlabel proc~doplot->proc~xlabel proc~linspace linspace proc~doplot->proc~linspace interface~mixval mixval proc~doplot->interface~mixval proc~ylabel ylabel proc~doplot->proc~ylabel proc~xticks xticks proc~doplot->proc~xticks proc~figure figure proc~doplot->proc~figure proc~subplot subplot proc~doplot->proc~subplot plmtex plmtex proc~title->plmtex plline plline proc~plot->plline plssym plssym proc~plot->plssym plptex plptex proc~plot->plptex plbox plbox proc~yticks->plbox plwind plwind proc~xylim->plwind proc~xlabel->plmtex proc~ylabel->plmtex proc~xticks->plbox 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~~doplot~~CalledByGraph proc~doplot doPlot program~examples_prg examples_prg program~examples_prg->proc~doplot
Help

Variables

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

Source Code

	subroutine doPlot
		!! ![plot](|media|/example-1.svg)
		integer,parameter::N = 20
		real(wp),dimension(N)::x,y
		
		x = linspace(0.0_wp,1.0_wp,N)
		y = x**2-1.0_wp
		
		call figure()
		call subplot(1,1,1)
		call xylim(mixval(x),mixval(y))
		
		call plot(x,y,lineColor='red',lineWidth=2.0_wp, &
			& markStyle='.',markColor='cyan',markSize=2.0_wp)
		
		call plot(x,-1.0_wp-y,lineColor='blue',lineStyle=':',lineWidth=2.0_wp, &
			& markStyle='+',markColor='green',markSize=1.0_wp)
		
!~ 		call ticks()
		call xticks(primary=.true.,secondary=.false.)
		call yticks(primary=.true.,secondary=.false.)
!~ 		call labels('x','y','f(x)=x#u2#d-1; g(x)=-x#u2#d')
		call xlabel('x')
		call ylabel('y')
		call title('f(x)=x#u2#d-1; g(x)=-x#u2#d')
	end subroutine doPlot