From 2e89c91d45c7a9d0b7299bfa17a713021a3474f8 Mon Sep 17 00:00:00 2001
From: drowe67 <david@rowetel.com>
Date: Thu, 13 Jul 2023 12:25:50 +0930
Subject: [PATCH] tcohpsk running without fading raw files

---
 octave/channel_lib.m |  2 +-
 octave/tcohpsk.m     | 12 +++++++-----
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/octave/channel_lib.m b/octave/channel_lib.m
index 6387d513..434f2624 100644
--- a/octave/channel_lib.m
+++ b/octave/channel_lib.m
@@ -1,4 +1,4 @@
-% channel.m
+% channel_lib.m
 %
 % Commonly used channel simulation functions
 
diff --git a/octave/tcohpsk.m b/octave/tcohpsk.m
index 00afafb6..54bdeb1a 100644
--- a/octave/tcohpsk.m
+++ b/octave/tcohpsk.m
@@ -1,7 +1,7 @@
 % tcohpsk.m
 % David Rowe Oct 2014
 %
-% Octave coherent PSK modem script that hs two modes:
+% Octave coherent PSK modem script that has two modes:
 %
 % i) tests the C port of the coherent PSK modem.  This script loads
 %    the output of unittest/tcohpsk.c and compares it to the output of
@@ -254,10 +254,12 @@ acohpsk.f_fine_est = 0;
 acohpsk.ct = 4;
 acohpsk.ftrack_en = ftrack_en;
 
-[spread spread_2ms hf_gain] = init_hf_model(Fs, frames*acohpsk.Nsymbrowpilot*afdmdv.M);
-hf_n = 1;
-nhfdelay = floor(hf_delay_ms*Fs/1000);
-ch_fdm_delay = zeros(1, acohpsk.Nsymbrowpilot*M + nhfdelay);
+if fading_en
+  [spread spread_2ms hf_gain] = init_hf_model(Fs, frames*acohpsk.Nsymbrowpilot*afdmdv.M);
+  hf_n = 1;
+  nhfdelay = floor(hf_delay_ms*Fs/1000);
+  ch_fdm_delay = zeros(1, acohpsk.Nsymbrowpilot*M + nhfdelay);
+end
 
 % simulated SSB tx filter