get_saved_fatal_r1 Function

  1. rksuite_90.f90
  2. rksuite_90
  3. get_saved_fatal_r1

private function get_saved_fatal_r1(comm)

Arguments

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

Return Value logical


Called by

proc~~get_saved_fatal_r1~~CalledByGraph proc~get_saved_fatal_r1 get_saved_fatal_r1 interface~get_saved_fatal get_saved_fatal interface~get_saved_fatal->proc~get_saved_fatal_r1 proc~range_integrate_r1 range_integrate_r1 proc~range_integrate_r1->proc~get_saved_fatal_r1 interface~range_integrate range_integrate interface~range_integrate->proc~range_integrate_r1 proc~upstream_calculate upstream_calculate proc~upstream_calculate->interface~range_integrate

Contents

Source Code

get_saved_fatal_r1

Source Code

function get_saved_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_saved_fatal_r1
!
get_saved_fatal_r1 = comm%saved_fatal_err
!
end function get_saved_fatal_r1