makeLogo Subroutine

  1. logo.f90
  2. logo_prg
  3. makeLogo

subroutine makeLogo()

Arguments

None

Calls

proc~~makelogo~~CallsGraph proc~makelogo makeLogo proc~plot plot proc~makelogo->proc~plot proc~ticks ticks proc~makelogo->proc~ticks proc~xylim xylim proc~makelogo->proc~xylim proc~labels labels proc~makelogo->proc~labels proc~linspace linspace proc~makelogo->proc~linspace interface~mixval mixval proc~makelogo->interface~mixval proc~figure figure proc~makelogo->proc~figure proc~subplot subplot proc~makelogo->proc~subplot plline plline proc~plot->plline plssym plssym proc~plot->plssym plptex plptex proc~plot->plptex plbox plbox proc~ticks->plbox plwind plwind proc~xylim->plwind pllab pllab proc~labels->pllab pleop pleop proc~figure->pleop plbop plbop proc~figure->plbop pladv pladv proc~figure->pladv plssub plssub proc~figure->plssub 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~~makelogo~~CalledByGraph proc~makelogo makeLogo program~logo_prg logo_prg program~logo_prg->proc~makelogo
Help

Variables

TypeVisibility AttributesNameInitial
real(kind=wp), public, dimension(:), allocatable:: x
real(kind=wp), public, dimension(:), allocatable:: y1
real(kind=wp), public, dimension(:), allocatable:: y2
real(kind=wp), public, dimension(:), allocatable:: y3

Source Code

	subroutine makeLogo
		real(wp),dimension(:),allocatable::x,y1,y2,y3
		
		x  = linspace(0.0_wp,1.0_wp,100)
		y1 = x**2-1.0_wp
		y2 = 2.0_wp*x-1.0_wp
		y3 = x
		y3 = cos(2.0_wp*PI*x)
		
		call figure()
		call subplot(1,1,1)
		call xylim(mixval(x),mixval([y1,y2,y3])*1.1_wp)
		
		call plot(x,y1,lineColor='b',lineWidth=10.0_wp)
		call plot(x,y2,lineColor='r',lineWidth=10.0_wp)
		call plot(x,y3,lineColor='c',lineWidth=10.0_wp)
		
		call ticks(lineWidth=5.0_wp)
		call labels('','','')
	end subroutine makeLogo