FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real, | intent(out) | :: | x | |||
character(len=*), | intent(in) | :: | a | |||
real, | intent(in) | :: | x0 |
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