set_saved_state_r1 Subroutine

  1. rksuite_90.f90
  2. rksuite_90
  3. set_saved_state_r1

private subroutine set_saved_state_r1(srname, state, comm)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: srname
integer, intent(in) :: state
type(rk_comm_real_1d), intent(inout) :: comm

Called by

proc~~set_saved_state_r1~~CalledByGraph proc~set_saved_state_r1 set_saved_state_r1 proc~rkmsg_r1 rkmsg_r1 proc~rkmsg_r1->proc~set_saved_state_r1 proc~step_integrate_r1 step_integrate_r1 proc~step_integrate_r1->proc~set_saved_state_r1 proc~step_integrate_r1->proc~rkmsg_r1 proc~range_integrate_r1 range_integrate_r1 proc~range_integrate_r1->proc~set_saved_state_r1 proc~range_integrate_r1->proc~rkmsg_r1 interface~step_integrate step_integrate proc~range_integrate_r1->interface~step_integrate interface~reset_t_end reset_t_end proc~range_integrate_r1->interface~reset_t_end interface~interpolate interpolate proc~range_integrate_r1->interface~interpolate proc~interpolate_r1 interpolate_r1 proc~interpolate_r1->proc~rkmsg_r1 interface~step_integrate->proc~step_integrate_r1 interface~range_integrate range_integrate interface~range_integrate->proc~range_integrate_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~global_error_r1 global_error_r1 proc~global_error_r1->proc~rkmsg_r1 proc~statistics_r1 statistics_r1 proc~statistics_r1->proc~rkmsg_r1 interface~reset_t_end->proc~reset_t_end_r1 proc~upstream_calculate upstream_calculate proc~upstream_calculate->interface~range_integrate interface~setup setup proc~upstream_calculate->interface~setup interface~interpolate->proc~interpolate_r1 interface~global_error global_error interface~global_error->proc~global_error_r1 interface~statistics statistics interface~statistics->proc~statistics_r1 interface~setup->proc~setup_r1

Contents

Source Code

set_saved_state_r1

Source Code

subroutine set_saved_state_r1(srname,state,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
!
integer, intent(in) :: state
type(rk_comm_real_1d), intent(inout) :: comm
character(len=*), intent(in) :: srname
!
integer :: name
!
integer, parameter :: fatal=911
!
select case (srname)
   case("SETUP"); name = 1
   case("RANGE_INTEGRATE"); name = 2
   case("STATISTICS"); name = 3
   case("GLOBAL_ERROR"); name = 4
   case("STEP_INTEGRATE"); name = 5
   case("INTERPOLATE"); name= 6
   case("RESET_T_END"); name = 7
   case default; name = 0
end select
!
comm%save_states(name) = state
comm%saved_fatal_err = state >= fatal
!
end subroutine set_saved_state_r1