doQuiver Subroutine

  1. examples.f90
  2. examples_prg
  3. doQuiver

subroutine doQuiver()

Arguments

None

Description

quiver

Calls

proc~~doquiver~~CallsGraph proc~doquiver doQuiver proc~colorbar colorbar proc~doquiver->proc~colorbar proc~ticks ticks proc~doquiver->proc~ticks proc~xylim xylim proc~doquiver->proc~xylim proc~labels labels proc~doquiver->proc~labels proc~linspace linspace proc~doquiver->proc~linspace interface~mixval mixval proc~doquiver->interface~mixval proc~subplot subplot proc~doquiver->proc~subplot proc~figure figure proc~doquiver->proc~figure proc~quiver quiver proc~doquiver->proc~quiver plcolorbar plcolorbar proc~colorbar->plcolorbar plbox plbox proc~ticks->plbox plwind plwind proc~xylim->plwind pllab pllab proc~labels->pllab plvasp plvasp proc~subplot->plvasp pladv pladv proc~subplot->pladv plvsta plvsta proc~subplot->plvsta plssub plssub proc~subplot->plssub plvpor plvpor proc~subplot->plvpor proc~figure->pladv proc~figure->plssub pleop pleop proc~figure->pleop plbop plbop proc~figure->plbop proc~quiver->interface~mixval plcol1 plcol1 proc~quiver->plcol1 plvect plvect proc~quiver->plvect
Help

Called By

proc~~doquiver~~CalledByGraph proc~doquiver doQuiver program~examples_prg examples_prg program~examples_prg->proc~doquiver
Help

Variables

TypeVisibility AttributesNameInitial
integer, public, parameter:: N =20
real(kind=wp), public, dimension(N):: x
real(kind=wp), public, dimension(N):: y
real(kind=wp), public, dimension(N,N):: u
real(kind=wp), public, dimension(N,N):: v
real(kind=wp), public, dimension(N,N):: m
integer, public :: i
integer, public :: j

Source Code

	subroutine doQuiver
		!! ![quiver](|media|/example-5.svg)
		integer,parameter::N = 20
		real(wp),dimension(N)::x,y
		real(wp),dimension(N,N)::u,v,m
		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)
			u(i,j) = -y(j)
			v(i,j) =  x(i)
			m(i,j) = sqrt(u(i,j)**2+v(i,j)**2)
		end forall
		
		call figure()
		
		call subplot(1,1,1,aspect=1.0_wp)
		call xylim(mixval(x),mixval(y))
		call quiver(x,y,u,v,c=m,s=m,scaling=2.0_wp,lineWidth=2.0_wp)
		call colorbar(m,10)
		call ticks()
		call labels('x','y','')
	end subroutine doQuiver