machine_const Subroutine

  1. rksuite_90.f90
  2. rksuite_90
  3. machine_const

private subroutine machine_const(round_off, sqrrmc, cubrmc, sqtiny, outch)

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(out) :: round_off
real(kind=wp), intent(out) :: sqrrmc
real(kind=wp), intent(out) :: cubrmc
real(kind=wp), intent(out) :: sqtiny
integer, intent(out) :: outch

Called by

proc~~machine_const~~CalledByGraph proc~machine_const machine_const proc~setup_r1 setup_r1 proc~setup_r1->proc~machine_const interface~setup setup interface~setup->proc~setup_r1 proc~upstream_calculate upstream_calculate proc~upstream_calculate->interface~setup

Contents

Source Code

machine_const

Source Code

subroutine machine_const(round_off,sqrrmc,cubrmc,sqtiny,outch)
!
! 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
!
real(kind=wp), intent(out) :: round_off, sqrrmc, cubrmc, sqtiny
integer, intent(out) :: outch
!
real(kind=wp) :: dummy
real(kind=wp), parameter :: third=1.0_wp/3.0_wp, ten=10.0_wp
!
outch = 6
!
round_off = ten*epsilon(dummy)
sqrrmc = sqrt(epsilon(dummy))
cubrmc = epsilon(dummy)**third
sqtiny = sqrt(tiny(dummy))
!
end subroutine machine_const