format f10. needed if p=5

vmagnin · Oct 30, 2021 · 76eeaf8 · 76eeaf8
1 parent 94fac6c
commit 76eeaf8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/taptempo.f90 b/src/taptempo.f90
@@ -89,10 +89,10 @@ subroutine measure_tempo
  integer :: i
  real(wp), dimension(s) :: t ! Time FIFO stack
  integer :: oldest
- character(len=25) :: fmt
+ character(len=27) :: fmt
 
  ! Format used for printing the tempo:
- write(fmt, '(A, I1, A)') '("Tempo: ", f8.', p, ', " BPM")'
+ write(fmt, '(A, I1, A)') '("Tempo: ", f10.', p, ', " BPM")'
  ! Stack initialization:
  t = 0