Make sure that mycall13 and dxcall13 are initialized in FT4 mode.

2020-05-21 11:43:23 -05:00 · 2020-05-21 11:43:23 -05:00 · d57e92d702
parent 43e02116bf
commit d57e92d702
1 changed files with 3 additions and 0 deletions
--- a/lib/ft4_decode.f90
+++ b/lib/ft4_decode.f90
@ -87,6 +87,9 @@ contains

      this%callback => callback
      hhmmss=cdatetime0(8:13)
+      dxcall13=hiscall        ! initialize for use in packjt77
+      mycall13=mycall
+
      smax1=0.
      nd1=0