w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-29 12:52:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove references to common/tracer/.

Browse Source
This commit is contained in:
Joe Taylor 2021-05-14 14:35:23 -04:00
parent 7a57a399e0
commit 7076f3c749
3 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
map65/libm65/decode0.f90
View File

@ -12,7 +12,6 @@ subroutine decode0(dd,ss,savg,nstandalone)
ndepth,ndiskdat,neme,newdat,nfa,nfb,nfcal,nfshift, & ndepth,ndiskdat,neme,newdat,nfa,nfb,nfcal,nfshift, &
mcall3,nkeep,ntol,nxant,nrxlog,nfsample,nxpol,nmode, & mcall3,nkeep,ntol,nxant,nrxlog,nfsample,nxpol,nmode, &
nfast,nsave,mycall,mygrid,hiscall,hisgrid,datetime nfast,nsave,mycall,mygrid,hiscall,hisgrid,datetime
common/tracer/ limtrace,lu
data neme0/-99/,mcall3b/1/ data neme0/-99/,mcall3b/1/
save save

3
map65/libm65/m65.f90
View File

@ -33,7 +33,6 @@ program m65
real*8 hsym real*8 hsym
real*4 ssz5a(NFFT) real*4 ssz5a(NFFT)
logical*1 lstrong(0:1023) logical*1 lstrong(0:1023)
common/tracer/limtrace,lu
real*8 fc0,fcenter real*8 fc0,fcenter
character*80 arg,infile character*80 arg,infile
character mycall*12,hiscall*12,mygrid*6,hisgrid*6,datetime*20 character mycall*12,hiscall*12,mygrid*6,hisgrid*6,datetime*20
@ -83,8 +82,6 @@ program m65
if(arg.eq.'95238') nfsample=95238 if(arg.eq.'95238') nfsample=95238
ifile1=5 ifile1=5
limtrace=0
lu=12
! Some default parameters for command-line execution, in early testing. ! Some default parameters for command-line execution, in early testing.
mycall='K1JT' mycall='K1JT'

1
map65/libm65/m65a.f90
View File

@ -17,7 +17,6 @@ subroutine m65a
character*80 cwd character*80 cwd
character wisfile*256 character wisfile*256
logical fileExists logical fileExists
common/tracer/limtrace,lu
call getcwd(cwd) call getcwd(cwd)
call ftninit(trim(cwd)) call ftninit(trim(cwd))