beta_range_high Subroutine

private subroutine beta_range_high(x, a, x0)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
real, intent(out) :: x
character(len=*), intent(in) :: a
real, intent(in) :: x0

Contents

Source Code

beta_range_high

Source Code

  subroutine beta_range_high (x, a, x0)
    implicit none
    real, intent (out) :: x
    character (*), intent (in) :: a
    real, intent (in) :: x0

    do
100    continue
       call text
       call text ('Upper limit of beta for this scan (must be > lower limit):')
       read (interactive_input, *, err=100) x
       if (trim(a) == 'le') then
          if (x <= x0) then
             call try_again
          else
             return
          end if
       end if
    end do

  end subroutine beta_range_high