ticks Subroutine

public subroutine ticks(dx, dy, logx, logy, color, linewidth)

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in), optional :: dx

Spacing between ticks on x-axis

real(kind=wp), intent(in), optional :: dy

Spacing between ticks on y-axis

logical, intent(in), optional :: logx

Flag for log-ticks and labels on x-axis

logical, intent(in), optional :: logy

Flag for log-ticks and labels on y-axis

character(len=*), intent(in), optional :: color

Color code for ticks, box, and labels

real(kind=wp) , optional :: linewidth

Line width for ticks and box

Description

Set the ticks for the axes

Calls

proc~~ticks~~CallsGraph proc~ticks ticks plbox plbox proc~ticks->plbox
Help

Called By

proc~~ticks~~CalledByGraph proc~ticks ticks proc~dobar doBar proc~dobar->proc~ticks proc~dolegend doLegend proc~dolegend->proc~ticks proc~docontour doContour proc~docontour->proc~ticks proc~dohist doHist proc~dohist->proc~ticks proc~makelogo makeLogo proc~makelogo->proc~ticks program~animate_prg animate_prg program~animate_prg->proc~ticks proc~doerror doError proc~doerror->proc~ticks proc~doquiver doQuiver proc~doquiver->proc~ticks proc~dofillbetween doFillBetween proc~dofillbetween->proc~ticks program~basic_prg basic_prg program~basic_prg->proc~ticks proc~doscatter doScatter proc~doscatter->proc~ticks proc~dologplot doLogPlot proc~dologplot->proc~ticks program~examples_prg examples_prg program~examples_prg->proc~dobar program~examples_prg->proc~dolegend program~examples_prg->proc~docontour program~examples_prg->proc~dohist program~examples_prg->proc~doerror program~examples_prg->proc~doquiver program~examples_prg->proc~dofillbetween program~examples_prg->proc~doscatter program~examples_prg->proc~dologplot program~logo_prg logo_prg program~logo_prg->proc~makelogo
Help

Variables

TypeVisibility AttributesNameInitial
real(kind=pp), public :: dxl
real(kind=pp), public :: dyl
character(len=10), public :: xopts
character(len=10), public :: yopts

Source Code

	subroutine ticks(dx,dy,logx,logy,color,lineWidth)
		!! Set the ticks for the axes
		real(wp),intent(in),optional::dx
			!! Spacing between ticks on x-axis
		real(wp),intent(in),optional::dy
			!! Spacing between ticks on y-axis
		logical,intent(in),optional::logx
			!! Flag for log-ticks and labels on x-axis
		logical,intent(in),optional::logy
			!! Flag for log-ticks and labels on y-axis
		character(*),intent(in),optional::color
			!! Color code for ticks, box, and labels
		real(wp),optional::linewidth
			!! Line width for ticks and box
		
		real(pp)::dxl,dyl
		character(10)::xopts,yopts
		
		dxl = 0.0_pp
		if(present(dx)) dxl = real(dx,pp)
		
		dyl = 0.0_pp
		if(present(dy)) dyl = real(dy,pp)
		
		xopts = 'bcnst'
		if(present(logx)) then
			if(logx) xopts = 'bcnstl'
		end if
		
		yopts = 'bcnstv'
		if(present(logy)) then
			if(logy) yopts = 'bcnstvl'
		end if
		
		call resetPen()
		
		if(present(color)) call setColor(color)
		if(present(lineWidth)) call setLineWidth(lineWidth)
		
		call plbox(xopts,dxl,0,yopts,dyl,0)
		call resetPen()
	end subroutine ticks