probability_animation_demo Program

Variables

Type Attributes Name Initial
integer, parameter :: nframes = 36
type(figure_t), pointer :: pfig
type(animation_t) :: anim
real(kind=wp) :: x(240)
real(kind=wp) :: y(240)
integer :: i
logical :: ok

Functions

function gaussian_profile(sigma) result(vals)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: sigma

Return Value real(kind=wp), (size(x))


Subroutines

subroutine update_gaussian(frame)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: frame

subroutine draw_initial_frame(yvals)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: yvals(:)

subroutine redraw_current_frame(yvals)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: yvals(:)