Writes tempo without blank lines

vmagnin · Oct 31, 2021 · ea8d915 · ea8d915
1 parent 3f0c416
commit ea8d915
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/taptempo.f90 b/src/taptempo.f90
@@ -94,10 +94,10 @@ subroutine measure_tempo
  integer :: i
  real(wp), dimension(s) :: t ! Time FIFO stack
  integer :: oldest
- character(len=27) :: fmt
+ character(len=28) :: fmt
 
  ! Format used for printing the tempo:
- write(fmt, '(A, I1, A)') '("Tempo: ", f10.', p, ', " BPM")'
+ write(fmt, '(A, I1, A)') '("Tempo: ", f10.', p, ', " BPM ")'
  ! Stack initialization:
  t = 0
 
@@ -126,7 +126,7 @@ subroutine measure_tempo
  ! Oldest time in the stack:
  oldest = min(i, s)
  ! Computes and prints the beats per minute:
- print fmt, 60 / ((t(1) - t(oldest)) / (oldest - 1))
+ write(*, fmt, advance="no") 60 / ((t(1) - t(oldest)) / (oldest - 1))
  else
  print '(A)', "Time reset"
  i = 1