From 94b273edc1dcabdfce54f6c60db4a0fe016da553 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 26 Feb 2021 11:28:14 -0500
Subject: [PATCH] Allow blank MyCall when jt9 run from command line.

---
 UnitTests.txt | 25 +++++++++++++++++++++++++
 lib/jt9.f90   |  1 +
 2 files changed, 26 insertions(+)

diff --git a/UnitTests.txt b/UnitTests.txt
index 2c69d04ef..2f14deecf 100644
--- a/UnitTests.txt
+++ b/UnitTests.txt
@@ -47,10 +47,15 @@ Commit        No_AP       MyCall       BothCalls
 767f53: 1   1  5 115     12 27 105     68 69  22     RC1
 767f53: 2   1  5 322     12 28 304     65 67  53
 767f53: 3   1  5 401     12 28 354     65 67  63
+
 94c315: 1   1  8  81     12 26  71     68 69  19
 94c315: 2   1  8 249     14 28 235     68 69  36
 94c315: 3   1  8 283     14 28 270     68 69  39
 
+7ad881: 1   1  8  97     12 27  90     68 69  24
+7ad881: 2   1  8 253     14 28 238     68 69  47
+7ad881: 3   1  8 274     14 28 263     69 69  52
+
 
 Mode: Q65-60D
 Data: MsgAvg (22 files, simulated fDop = 50 Hz)
@@ -62,10 +67,15 @@ Commit        No_AP       MyCall     BothCalls
 767f53: 1  0 11  39    19 19  28    22 22   7
 767f53: 2  0 11 103    21 21  70    22 22   7
 767f53: 3  0 11 106    21 21  73    22 22   7
+
 94c315: 1  0 11  27    19 19  20    22 22   7
 94c315: 2  0 11  83    21 21  57    22 22   7
 94c315: 3  0 11  92    21 21  64    22 22   7
 
+7ad881: 1  0 11  32    21 21  23    22 22   7
+7ad881: 2
+7ad881: 3
+
 Mode: Q65-60D
 Data: 60D_2 (21 files, 1296 troposcatter)
 Message: "VK7MO VK3WE QF32"
@@ -76,10 +86,15 @@ Commit       No_AP       MyCall     BothCalls
 767f53: 1   2  4  36    6  8  35    13 14  22
 767f53: 2   5  5  84    9 10  78    13 14  47
 767f53: 3   5  5  85    9 10  83    13 14  50
+
 94c315: 1   2  4  27    6  8  25    13 15  17
 94c315: 2   5  5  67    7  8  65    13 15  39
 94c315: 3   5  5  76    9 10  71    13 15  44
 
+7ad881: 1
+7ad881: 2
+7ad881: 3
+
 Mode: Q65-120D
 Data: 120D  (14 files, 10 GHz troposcatter)
 Message: "VK7MO VK3WE QF32", "VK7MO VK3WE R-18"
@@ -90,10 +105,15 @@ Commit       No_AP       MyCall     BothCalls
 767f53: 1   0  0  33    0  0  34     1  5  31   RC1
 767f53: 2   0  0  83    0  0  80     1  5  74
 767f53: 3   0  0  89    0  0  89     1  5  83
+
 94c315: 1   0  0  26    0  0  26     1  5  25
 94c315: 2   0  0  66    0  0  66     1  5  61
 94c315: 3   0  0  72    0  0  72     1  5  67
 
+7ad881: 1
+7ad881: 2
+7ad881: 3
+
 Mode: Q65-60D
 Data: 60D_10_GHz_EME (14 files)
 Message: "VK7MO K6QPV DM12", "VK7MO K6QPV -15"
@@ -104,6 +124,11 @@ Commit       No_AP       MyCall     BothCalls
 767f53: 1   8  9  13    9 10  12    14 14   6   RC1 
 767f53: 2   9 10  26   10 11  25    14 14   6
 767f53: 3   9 10  27   10 11  26    14 14   6
+
 94c315: 1   8  9  11    9 10  10    14 14   6
 94c315: 2   9 10  22   10 11  20    14 14   6
 94c315: 3   9 10  24   10 11  23    14 14   6
+
+7ad881: 1
+7ad881: 2
+7ad881: 3
diff --git a/lib/jt9.f90 b/lib/jt9.f90
index fae842587..e07fd742e 100644
--- a/lib/jt9.f90
+++ b/lib/jt9.f90
@@ -206,6 +206,7 @@ program jt9
      go to 999
   endif
 
+  if(mycall.eq.'b') mycall='            '
   if(hiscall.eq.'b') then
      hiscall='            '
      hisgrid='      '