box Subroutine

public subroutine box(xLabel, yLabel, zLabel, color)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: xLabel

Label for x-axis

character(len=*), intent(in) :: yLabel

Label for x-axis

character(len=*), intent(in) :: zLabel

Label for z-axis

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

Color of labels

Description

Set x,y and plot labels

Calls

proc~~box~~CallsGraph proc~box box plbox3 plbox3 proc~box->plbox3
Help

Called By

proc~~box~~CalledByGraph proc~box box proc~dosurface doSurface proc~dosurface->proc~box program~examples_prg examples_prg program~examples_prg->proc~dosurface
Help

Source Code

	subroutine box(xLabel,yLabel,zLabel,color)
		!! Set x,y and plot labels
		character(*),intent(in)::xLabel
			!! Label for x-axis
		character(*),intent(in)::yLabel
			!! Label for x-axis
		character(*),intent(in)::zLabel
			!! Label for z-axis
		character(*),intent(in),optional::color
			!! Color of labels
		
		if(present(color)) call setColor(color)
		call plbox3('bnstu',xLabel,0.0_pp,0,'bnstu',yLabel,0.0_pp,0,'bnstu',zLabel,0.0_pp,0)
		call resetPen()
	end subroutine box