Fix a bug.

2025-03-23 12:38:53 -04:00 · 2020-03-12 15:36:03 -05:00 · 2020-03-12 15:36:03 -05:00 · f7d7c073c8
commit f7d7c073c8
parent afe0262ec9
1 changed files with 1 additions and 0 deletions
--- 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