beta_range_low Subroutine

public subroutine beta_range_low(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


Source Code

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

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

  end subroutine beta_range_low