From ef478717ea9016b234fd37823e144e8c81bee942 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Tue, 12 Jan 2021 08:18:17 -0500 Subject: [PATCH] Don't forget to do something about nsmo = ??. --- lib/qra/q65/q65_sync.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/lib/qra/q65/q65_sync.f90 b/lib/qra/q65/q65_sync.f90 index 7b02a7b88..0ad8b425c 100644 --- a/lib/qra/q65/q65_sync.f90 +++ b/lib/qra/q65/q65_sync.f90 @@ -54,6 +54,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps, & ia2=max(ia,10*mode_q65,nint(100.0/df)) nsmo=int(0.7*mode_q65*mode_q65) if(nsmo.lt.1) nsmo=1 +! nsmo=1 !### TEMPORARY ### allocate(s1(iz,jz)) allocate(s3(-64:LL-65,63))