set_stop_on_fatal_r1 Subroutine

  1. rksuite_90.f90
  2. rksuite_90
  3. set_stop_on_fatal_r1

private subroutine set_stop_on_fatal_r1(comm, action)

Arguments

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

Called by

proc~~set_stop_on_fatal_r1~~CalledByGraph proc~set_stop_on_fatal_r1 set_stop_on_fatal_r1 interface~set_stop_on_fatal set_stop_on_fatal interface~set_stop_on_fatal->proc~set_stop_on_fatal_r1

Contents

Source Code

set_stop_on_fatal_r1

Source Code

subroutine set_stop_on_fatal_r1(comm,action)
!
! 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(inout) :: comm
logical, intent(in) :: action
!
comm%stop_on_fatal = action
!
end subroutine set_stop_on_fatal_r1