get_stop_on_fatal_r1 Function

  1. rksuite_90.f90
  2. rksuite_90
  3. get_stop_on_fatal_r1

private function get_stop_on_fatal_r1(comm)

Arguments

Type IntentOptional AttributesName
type(rk_comm_real_1d), intent(in) :: comm

Return Value logical


Called by

proc~~get_stop_on_fatal_r1~~CalledByGraph proc~get_stop_on_fatal_r1 get_stop_on_fatal_r1 proc~rkmsg_r1 rkmsg_r1 proc~rkmsg_r1->proc~get_stop_on_fatal_r1 proc~step_integrate_r1 step_integrate_r1 proc~step_integrate_r1->proc~rkmsg_r1 proc~interpolate_r1 interpolate_r1 proc~interpolate_r1->proc~rkmsg_r1 proc~global_error_r1 global_error_r1 proc~global_error_r1->proc~rkmsg_r1 proc~setup_r1 setup_r1 proc~setup_r1->proc~rkmsg_r1 proc~reset_t_end_r1 reset_t_end_r1 proc~reset_t_end_r1->proc~rkmsg_r1 proc~range_integrate_r1 range_integrate_r1 proc~range_integrate_r1->proc~rkmsg_r1 interface~reset_t_end reset_t_end proc~range_integrate_r1->interface~reset_t_end interface~interpolate interpolate proc~range_integrate_r1->interface~interpolate interface~step_integrate step_integrate proc~range_integrate_r1->interface~step_integrate proc~statistics_r1 statistics_r1 proc~statistics_r1->proc~rkmsg_r1 interface~reset_t_end->proc~reset_t_end_r1 interface~interpolate->proc~interpolate_r1 interface~step_integrate->proc~step_integrate_r1 interface~range_integrate range_integrate interface~range_integrate->proc~range_integrate_r1 interface~global_error global_error interface~global_error->proc~global_error_r1 interface~statistics statistics interface~statistics->proc~statistics_r1 interface~setup setup interface~setup->proc~setup_r1 proc~upstream_calculate upstream_calculate proc~upstream_calculate->interface~range_integrate proc~upstream_calculate->interface~setup

Contents

Source Code

get_stop_on_fatal_r1

Source Code

function get_stop_on_fatal_r1(comm)
!
! Part of rksuite_90 v1.0 (Aug 1994)
!         software for initial value problems in ODEs
!
! Authors: R.W. Brankin (NAG Ltd., Oxford, England)
!          I. Gladwell  (Math Dept., SMU, Dallas, TX, USA)
!          see main doc for contact details
!
type(rk_comm_real_1d), intent(in) :: comm
logical get_stop_on_fatal_r1
!
get_stop_on_fatal_r1 = comm%stop_on_fatal
!
end function get_stop_on_fatal_r1