Removed useless .0_wp

vmagnin · Oct 29, 2021 · 72f30c6 · 72f30c6
1 parent f1cdfd6
commit 72f30c6
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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