From 72f30c64b504c1711830c39670766cb883c41977 Mon Sep 17 00:00:00 2001 From: vmagnin Date: Fri, 29 Oct 2021 14:48:48 +0200 Subject: [PATCH] Removed useless .0_wp --- src/taptempo.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/taptempo.f90 b/src/taptempo.f90 index 6957aba..a5cec83 100644 --- a/src/taptempo.f90 +++ b/src/taptempo.f90 @@ -92,7 +92,7 @@ subroutine measure_tempo ! Format used for printing the tempo: write(fmt, '(A, I1, A)') '("Tempo: ", f8.', p, ', " BPM")' ! Stack initialization: - t = 0.0_wp + t = 0 print '(A)', "Hit Enter key for each beat (q to quit)." @@ -115,11 +115,11 @@ subroutine measure_tempo else ! Verify that the user is actively tapping: if (t(1) - t(2) <= r) then - print fmt, 60.0_wp / ((t(1) - t(min(i, s))) / (min(i, s)-1)) + print fmt, 60 / ((t(1) - t(min(i, s))) / (min(i, s)-1)) else print '(A)', "Time reset" i = 1 - t(2:s) = 0.0_wp + t(2:s) = 0 end if end if end do