p must be >=0

vmagnin · Oct 30, 2021 · 8c4500c · 8c4500c
1 parent 76eeaf8
commit 8c4500c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/taptempo.f90 b/src/taptempo.f90
@@ -64,7 +64,7 @@ subroutine manage_command_line
  i = i + 1
  call get_command_argument(i, value=args)
  read(args, *) p
- p = min(p, 5)
+ p = max(0, min(p, 5)) ! 0 <= p <= 5
  case("-r", "--reset-time")
  i = i + 1
  call get_command_argument(i, value=args)