animate_prg Program

  1. animate.f90
  2. animate_prg
program~~animate_prg~~UsesGraph program~animate_prg animate_prg module~kinds_mod kinds_mod module~kinds_mod->program~animate_prg module~utilities_mod utilities_mod module~kinds_mod->module~utilities_mod module~plplotlib_mod plplotlib_mod module~kinds_mod->module~plplotlib_mod module~utilities_mod->program~animate_prg module~utilities_mod->module~plplotlib_mod module~plplotlib_mod->program~animate_prg iso_fortran_env iso_fortran_env iso_fortran_env->module~utilities_mod plplot plplot plplot->module~plplotlib_mod
Help


Create a series of plots for an animation

Calls

program~~animate_prg~~CallsGraph program~animate_prg animate_prg interface~mixval mixval program~animate_prg->interface~mixval proc~plot plot program~animate_prg->proc~plot proc~show show program~animate_prg->proc~show proc~ticks ticks program~animate_prg->proc~ticks proc~xylim xylim program~animate_prg->proc~xylim proc~setup setup program~animate_prg->proc~setup proc~linspace linspace program~animate_prg->proc~linspace proc~labels labels program~animate_prg->proc~labels proc~subplot subplot program~animate_prg->proc~subplot proc~figure figure program~animate_prg->proc~figure proc~f f program~animate_prg->proc~f plline plline proc~plot->plline plssym plssym proc~plot->plssym plptex plptex proc~plot->plptex plend plend proc~show->plend plbox plbox proc~ticks->plbox plwind plwind proc~xylim->plwind plfontld plfontld proc~setup->plfontld plsetopt plsetopt proc~setup->plsetopt plinit plinit proc~setup->plinit plsdev plsdev proc~setup->plsdev plsfam plsfam proc~setup->plsfam plsfnam plsfnam proc~setup->plsfnam 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
Help

Variables

Type AttributesNameInitial
real(kind=wp), dimension(:), allocatable:: x
real(kind=wp), dimension(:), allocatable:: y
real(kind=wp), dimension(:), allocatable:: t
integer :: N
integer :: M
integer :: i
integer :: k

Functions

purefunction f(x, t) result(o)

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in) :: x
real(kind=wp), intent(in) :: t

Return Value real(kind=wp)


Source Code

program animate_prg
	!! Create a series of plots for an animation
	use kinds_mod
	use utilities_mod
	use plplotlib_mod
	implicit none
	
	real(wp),dimension(:),allocatable::x,y,t
	integer::N,M,i,k
	
	N = 100
	M = 1000
	
	x = linspace(0.0_wp,PI,N)
	t = linspace(0.0_wp,10.0_wp,M)
	
	call setup()
	do k=1,M
		y = [( f(x(i),t(k)) , i=1,N )]
		call figure()
		call subplot(1,1,1)
		call xylim(mixval(x),[-1.1_wp,1.1_wp])
		call plot(x,y,lineColor='b',lineWidth=2.0_wp)
		call ticks()
		call labels('x','y','')
	end do
	call show()

contains

	pure function f(x,t) result(o)
		real(wp),intent(in)::x,t
		real(wp)::o

		o = sin(t)*cos(x+t)
	end function f

end program animate_prg