colorbar Subroutine

  1. plplotlib.f90
  2. plplotlib_mod
  3. colorbar

public subroutine colorbar(z, N, leftLabel, rightLabel)

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in), dimension(:,:):: z

Data used for levels computation
integer, intent(in) :: N

Number of levels to compute
character(len=*), intent(in), optional :: leftLabel

Label for left side of colorbar
character(len=*), intent(in), optional :: rightLabel

Label for right side of colorbar

Description

Add a colorbar to the top of the plot

Calls

proc~~colorbar~~CallsGraph proc~colorbar colorbar plcolorbar plcolorbar proc~colorbar->plcolorbar
Help

Called By

proc~~colorbar~~CalledByGraph proc~colorbar colorbar proc~docontour doContour proc~docontour->proc~colorbar proc~doquiver doQuiver proc~doquiver->proc~colorbar program~examples_prg examples_prg program~examples_prg->proc~docontour program~examples_prg->proc~doquiver
Help

Variables

TypeVisibility AttributesNameInitial
real(kind=pp), public, dimension(:,:), allocatable:: values
character(len=64), public, dimension(2):: labels
real(kind=pp), public :: fill_width
real(kind=pp), public :: cont_width
integer, public :: cont_color
real(kind=pp), public :: colorbar_width
real(kind=pp), public :: colorbar_height
integer, public :: k

Source Code

	subroutine colorbar(z,N,leftLabel,rightLabel)
		!! Add a colorbar to the top of the plot
		real(wp),dimension(:,:),intent(in)::z
			!! Data used for levels computation
		integer,intent(in)::N
			!! Number of levels to compute
		character(*),intent(in),optional::leftLabel
			!! Label for left side of colorbar
		character(*),intent(in),optional::rightLabel
			!! Label for right side of colorbar
		
		real(pp),dimension(:,:),allocatable::values
		character(64),dimension(2)::labels
		
		real(pp)::fill_width
		real(pp)::cont_width
		integer::cont_color
		real(pp)::colorbar_width
		real(pp)::colorbar_height
		integer::k
		
		values = reshape( &
			& real([( real(k-1,wp)/real(N-1,wp)*(maxval(z)-minval(z))+minval(z) ,k=1,N)],pp), &
			& [N,1])
		
		fill_width = 2.0_pp
		cont_width = 0.0_pp
		cont_color = 1
		labels = ''
		if(present(leftLabel )) labels(1) = leftLabel
		if(present(rightLabel)) labels(2) = rightLabel
		
		call plcolorbar(colorbar_width,colorbar_height,&
			& ior(PL_COLORBAR_GRADIENT,PL_COLORBAR_SHADE_LABEL),PL_POSITION_TOP,&
			& 0.0_pp,0.01_pp,0.75_pp,0.05_pp,&
			& 0,1,1,0.0_pp,0.0_pp, &
			& cont_color,cont_width, &
			& [PL_COLORBAR_LABEL_LEFT,PL_COLORBAR_LABEL_RIGHT],labels, &
			& ['bcvmt'],[0.0_pp],[0],[size(values)],values)
	end subroutine colorbar