rk_comm_real_1d Derived Type

  1. rksuite_90.f90
  2. rksuite_90
  3. rk_comm_real_1d

type, public :: rk_comm_real_1d


Contents

Variables

Source Code

rk_comm_real_1d

Components

TypeVisibility AttributesNameInitial
real(kind=wp), private :: t
real(kind=wp), private :: t_old
real(kind=wp), private :: t_start
real(kind=wp), private :: t_end
real(kind=wp), private :: dir
real(kind=wp), private :: h
real(kind=wp), private :: h_old
real(kind=wp), private :: h_start
real(kind=wp), private :: h_average
real(kind=wp), private :: tol
integer, private :: f_count
integer, private :: full_f_count
integer, private :: step_count
integer, private :: bad_step_count
logical, private :: at_t_start
logical, private :: at_t_end
real(kind=wp), private, dimension(:), pointer:: thresh
real(kind=wp), private, dimension(:), pointer:: weights
real(kind=wp), private, dimension(:), pointer:: ymax
real(kind=wp), private, dimension(:), pointer:: scratch
real(kind=wp), private, dimension(:), pointer:: y
real(kind=wp), private, dimension(:), pointer:: yp
real(kind=wp), private, dimension(:), pointer:: y_new
real(kind=wp), private, dimension(:), pointer:: y_old
real(kind=wp), private, dimension(:), pointer:: yp_old
real(kind=wp), private, dimension(:), pointer:: v0
real(kind=wp), private, dimension(:), pointer:: v1
real(kind=wp), private, dimension(:), pointer:: err_estimates
real(kind=wp), private, dimension(:), pointer:: v2
real(kind=wp), private, dimension(:), pointer:: v3
real(kind=wp), private, dimension(:), pointer:: vtemp
real(kind=wp), private, dimension(:,:), pointer:: stages
real(kind=wp), private :: a(13,13)
real(kind=wp), private :: b(13)
real(kind=wp), private :: c(13)
real(kind=wp), private :: bhat(13)
real(kind=wp), private :: r(11,6)
real(kind=wp), private :: e(7)
integer, private :: ptr(13)
integer, private :: no_of_stages
integer, private :: rk_method
integer, private :: intrp_degree
logical, private :: intrp_able
logical, private :: intrp_needs_stages
real(kind=wp), private :: toosml
real(kind=wp), private :: cost
real(kind=wp), private :: safety
real(kind=wp), private :: expon
real(kind=wp), private :: stability_radius
real(kind=wp), private :: tan_angle
real(kind=wp), private :: rs
real(kind=wp), private :: rs1
real(kind=wp), private :: rs2
real(kind=wp), private :: rs3
real(kind=wp), private :: rs4
integer, private :: order
integer, private :: last_stage
integer, private :: max_stiff_iters
integer, private :: no_of_ge_steps
logical, private :: fsal
real(kind=wp), private :: ge_max_contrib
real(kind=wp), private :: t_ge_max_contrib
integer, private :: ge_f_count
real(kind=wp), private, dimension(:), pointer:: ge_assess
real(kind=wp), private, dimension(:), pointer:: ge_y
real(kind=wp), private, dimension(:), pointer:: ge_yp
real(kind=wp), private, dimension(:), pointer:: ge_y_new
real(kind=wp), private, dimension(:), pointer:: ge_err_estimates
real(kind=wp), private, dimension(:,:), pointer:: ge_stages
logical, private :: erason
logical, private :: erasfl
real(kind=wp), private :: mcheps
real(kind=wp), private :: dwarf
real(kind=wp), private :: round_off
real(kind=wp), private :: sqrrmc
real(kind=wp), private :: cubrmc
real(kind=wp), private :: sqtiny
integer, private :: outch
logical, private :: print_message
logical, private :: use_range
character(len=80), private :: rec(10)
real(kind=wp), private :: tlast
real(kind=wp), private :: range_t_end
real(kind=wp), private, dimension(:), pointer:: xstage
real(kind=wp), private, dimension(:), pointer:: ytemp
real(kind=wp), private, dimension(:,:), pointer:: p
integer, private :: stiff_bad_step_count
integer, private :: hit_t_end_count
real(kind=wp), private :: errold
logical, private :: chkeff
logical, private :: phase2
integer, private, dimension(7):: save_states
logical, private :: stop_on_fatal
logical, private :: saved_fatal_err

Source Code

type rk_comm_real_1d

private

real(kind=wp) :: t, t_old, t_start, t_end, dir                       !indep!
real(kind=wp) :: h, h_old, h_start, h_average                        !indep!
real(kind=wp) :: tol
integer :: f_count, full_f_count, step_count, bad_step_count
logical :: at_t_start, at_t_end


real(kind=wp), dimension(:), pointer :: thresh, weights, ymax        !shp-dep!

real(kind=wp), dimension(:), pointer :: scratch, y, yp, y_new        !dep!
real(kind=wp), dimension(:), pointer :: y_old, yp_old, v0, v1        !dep!
real(kind=wp), dimension(:), pointer :: err_estimates, v2, v3        !dep!
real(kind=wp), dimension(:), pointer ::  vtemp                       !dep!
real(kind=wp), dimension(:,:), pointer :: stages                     !dep!

real(kind=wp) :: a(13,13), b(13), c(13), bhat(13), r(11,6), e(7)
integer :: ptr(13), no_of_stages, rk_method, intrp_degree
logical :: intrp_able, intrp_needs_stages

real(kind=wp) :: toosml, cost, safety, expon, stability_radius, tan_angle, &
    rs, rs1, rs2, rs3, rs4
integer :: order, last_stage, max_stiff_iters, no_of_ge_steps
logical :: fsal

real(kind=wp) :: ge_max_contrib
real(kind=wp) :: t_ge_max_contrib                                    !indep!
integer :: ge_f_count
real(kind=wp), dimension(:), pointer :: ge_assess                    !shp-dep!

real(kind=wp), dimension(:), pointer :: ge_y, ge_yp, ge_y_new        !dep!
real(kind=wp), dimension(:), pointer :: ge_err_estimates             !dep!
real(kind=wp), dimension(:,:), pointer :: ge_stages                  !dep!

logical :: erason, erasfl

real(kind=wp) :: mcheps, dwarf, round_off, sqrrmc, cubrmc, sqtiny
integer :: outch

logical :: print_message, use_range

character(len=80) :: rec(10)

real(kind=wp) :: tlast, range_t_end                                  !indep!

real(kind=wp), dimension(:), pointer :: xstage, ytemp                !dep!
real(kind=wp), dimension(:,:), pointer :: p                          !dep!

integer :: stiff_bad_step_count, hit_t_end_count
real(kind=wp) :: errold
logical :: chkeff, phase2

integer, dimension(7) :: save_states

logical :: stop_on_fatal, saved_fatal_err

end type rk_comm_real_1d