From 3a16399857980496af8c0d951aa6f180b3eeb18f Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Sun, 21 Jun 2020 11:08:46 -0400 Subject: [PATCH] Don't send "" twice for FST280. --- lib/fst280_decode.f90 | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lib/fst280_decode.f90 b/lib/fst280_decode.f90 index 865602e55..66d38bc48 100644 --- a/lib/fst280_decode.f90 +++ b/lib/fst280_decode.f90 @@ -323,9 +323,7 @@ contains enddo ! metrics enddo ! istart jitter 2002 continue - enddo !candidate list - write(*,1120) -1120 format("") + enddo !candidate list!ws return end subroutine decode