figure Subroutine

public subroutine figure()

Arguments

None

Description

Create a new figure

Calls

proc~~figure~~CallsGraph proc~figure figure pleop pleop proc~figure->pleop plbop plbop proc~figure->plbop pladv pladv proc~figure->pladv plssub plssub proc~figure->plssub
Help

Called By

proc~~figure~~CalledByGraph proc~figure figure proc~dobar doBar proc~dobar->proc~figure proc~doplot doPlot proc~doplot->proc~figure proc~docontour doContour proc~docontour->proc~figure proc~dohist doHist proc~dohist->proc~figure proc~dolegend doLegend proc~dolegend->proc~figure proc~makelogo makeLogo proc~makelogo->proc~figure program~animate_prg animate_prg program~animate_prg->proc~figure proc~doerror doError proc~doerror->proc~figure proc~doquiver doQuiver proc~doquiver->proc~figure proc~dosurface doSurface proc~dosurface->proc~figure proc~dofillbetween doFillBetween proc~dofillbetween->proc~figure program~basic_prg basic_prg program~basic_prg->proc~figure proc~doscatter doScatter proc~doscatter->proc~figure proc~dologplot doLogPlot proc~dologplot->proc~figure program~examples_prg examples_prg program~examples_prg->proc~dobar program~examples_prg->proc~doplot program~examples_prg->proc~docontour program~examples_prg->proc~dohist program~examples_prg->proc~dolegend program~examples_prg->proc~doerror program~examples_prg->proc~doquiver program~examples_prg->proc~dosurface 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
logical, public, save:: isFirst =.true.

Source Code

	subroutine figure
		!! Create a new figure
		logical,save::isFirst = .true.
		
		if(.not.isFirst) then
			call pleop()
		else
			isFirst = .false.
		end if
		
		call plbop()
		call plssub(1,1)
		call pladv(1)
		call resetPen()
	end subroutine figure