doContour Subroutine

  1. examples.f90
  2. examples_prg
  3. doContour

subroutine doContour()

Arguments

None

Description

contour

Calls

proc~~docontour~~CallsGraph proc~docontour doContour proc~contour contour proc~docontour->proc~contour proc~ticks ticks proc~docontour->proc~ticks proc~colorbar colorbar proc~docontour->proc~colorbar proc~xylim xylim proc~docontour->proc~xylim proc~figure figure proc~docontour->proc~figure proc~linspace linspace proc~docontour->proc~linspace proc~labels labels proc~docontour->proc~labels interface~mixval mixval proc~docontour->interface~mixval proc~contourf contourf proc~docontour->proc~contourf proc~subplot subplot proc~docontour->proc~subplot plcont plcont proc~contour->plcont plbox plbox proc~ticks->plbox plcolorbar plcolorbar proc~colorbar->plcolorbar plwind plwind proc~xylim->plwind pleop pleop proc~figure->pleop plbop plbop proc~figure->plbop pladv pladv proc~figure->pladv plssub plssub proc~figure->plssub pllab pllab proc~labels->pllab proc~contourf->proc~linspace plshades plshades proc~contourf->plshades 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~~docontour~~CalledByGraph proc~docontour doContour program~examples_prg examples_prg program~examples_prg->proc~docontour
Help

Variables

TypeVisibility AttributesNameInitial
integer, public, parameter:: N =50
real(kind=wp), public, dimension(N):: x
real(kind=wp), public, dimension(N):: y
real(kind=wp), public, dimension(N,N):: z
integer, public :: i
integer, public :: j

Source Code

	subroutine doContour
		!! ![contour](|media|/example-3.svg)
		integer,parameter::N = 50
		real(wp),dimension(N)::x,y
		real(wp),dimension(N,N)::z
		integer::i,j
		
		x = linspace(-10.0_wp,10.0_wp,N)
		y = linspace(-10.0_wp,10.0_wp,N)
		forall(i=1:N,j=1:N)
			z(i,j) = sin( sqrt(x(i)**2+y(j)**2) )/sqrt(x(i)**2+y(j)**2)
		end forall
		
		call figure()
		
		call subplot(1,1,1,aspect=1.0_wp)
		call xylim(mixval(x),mixval(y))
		call contourf(x,y,z,10)
		call contour(x,y,z,10)
		call colorbar(z,5)
		call ticks()
		call labels('x','y','')
	end subroutine doContour