FT4: Initialize mycall13 and dxcall13 for unpack77.

2019-05-04 08:05:28 -05:00 · 2019-05-04 08:05:28 -05:00 · 0795651f0f
parent bd07a6e755
commit 0795651f0f
1 changed files with 3 additions and 0 deletions
--- a/lib/ft4_decode.f90
+++ b/lib/ft4_decode.f90
@ -94,6 +94,9 @@ contains

      this%callback => callback
      hhmmss=cdatetime0(8:13)
+      dxcall13=hiscall
+      mycall13=mycall
+
      if(first) then
         fs=12000.0/NDOWN                !Sample rate after downsampling
         dt=1/fs                         !Sample interval after downsample (s)