get_saved_state_r1 Function

  1. rksuite_90.f90
  2. rksuite_90
  3. get_saved_state_r1

private function get_saved_state_r1(srname, save_states)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: srname
integer, intent(inout), dimension(7):: save_states

Return Value integer


Called by

proc~~get_saved_state_r1~~CalledByGraph proc~get_saved_state_r1 get_saved_state_r1 proc~step_integrate_r1 step_integrate_r1 proc~step_integrate_r1->proc~get_saved_state_r1 proc~interpolate_r1 interpolate_r1 proc~interpolate_r1->proc~get_saved_state_r1 proc~global_error_r1 global_error_r1 proc~global_error_r1->proc~get_saved_state_r1 proc~reset_t_end_r1 reset_t_end_r1 proc~reset_t_end_r1->proc~get_saved_state_r1 proc~range_integrate_r1 range_integrate_r1 proc~range_integrate_r1->proc~get_saved_state_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~get_saved_state_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 proc~upstream_calculate upstream_calculate proc~upstream_calculate->interface~range_integrate

Contents

Source Code

get_saved_state_r1

Source Code

function get_saved_state_r1(srname,save_states)
!
! 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, dimension(7), intent(inout) :: save_states
character(len=*), intent(in) :: srname
integer :: get_saved_state_r1
!
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
!
!  Check for status of given routine but check for any fatal errors first
!
if (any(save_states(1:7)==fatal)) then
   get_saved_state_r1 = fatal
else
   get_saved_state_r1 = save_states(name)
end if
!
end function get_saved_state_r1