diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90 index 3911bab37..9d8e9ed61 100644 --- a/lib/ft8_decode.f90 +++ b/lib/ft8_decode.f90 @@ -91,6 +91,7 @@ contains endif if(.not.ldiskdat .and. nint(ss0).ge.49) then !Bail out before done call timer('sub_ft8b',1) + dd1=dd go to 700 endif enddo