Binary branding

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6786 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Bill Somerville 2016-06-21 00:13:52 +00:00
parent e7bfd6de76
commit 1d7e86bc35
3 changed files with 6 additions and 1 deletions

View File

@ -18,7 +18,8 @@ subroutine decode65a(dd,npts,newdat,nqd,f0,nflip,mode65,ntrials, &
logical single_decode,first
character decoded*22,decoded_best*22
character mycall*12,hiscall*12,hisgrid*6
data first/.true./,jjjmin/1000/,jjjmax/-1000/
character*27 cr
data first/.true./,jjjmin/1000/,jjjmax/-1000/,cr/'(C) 2016, Joe Taylor - K1JT'/
save
! Mix sync tone to baseband, low-pass filter, downsample to 1378.125 Hz

View File

@ -9,6 +9,8 @@ subroutine sync9(ss,nzhsym,lag1,lag2,ia,ib,ccfred,red2,ipkbest)
real smo(-5:25)
real sq(NSMAX)
real red2(NSMAX)
character*27 cr
data cr/'(C) 2016, Joe Taylor - K1JT'/
include 'jt9sync.f90'
ipk=0

View File

@ -570,6 +570,8 @@ void usage(void)
//***************************************************************************
int main(int argc, char *argv[])
{
char cr[] = "(C) 2016, Steven Franke - K9AN";
(void)cr;
extern char *optarg;
extern int optind;
int i,j,k;