mirror of https://github.com/saitohirga/WSJT-X.git
Renamd exp_decode65.f90 to hint65.f90.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6367 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
76d4393537
commit
e61e8c5d81
|
@ -303,7 +303,6 @@ set (wsjt_FSRCS
|
||||||
lib/encode4.f90
|
lib/encode4.f90
|
||||||
lib/entail.f90
|
lib/entail.f90
|
||||||
lib/ephem.f90
|
lib/ephem.f90
|
||||||
lib/exp_decode65.f90
|
|
||||||
lib/extract.f90
|
lib/extract.f90
|
||||||
lib/extract4.f90
|
lib/extract4.f90
|
||||||
lib/fano232.f90
|
lib/fano232.f90
|
||||||
|
@ -341,6 +340,7 @@ set (wsjt_FSRCS
|
||||||
lib/grid2deg.f90
|
lib/grid2deg.f90
|
||||||
lib/hash.f90
|
lib/hash.f90
|
||||||
lib/hashing.f90
|
lib/hashing.f90
|
||||||
|
lib/hint65.f90
|
||||||
lib/hspec.f90
|
lib/hspec.f90
|
||||||
lib/image.f90
|
lib/image.f90
|
||||||
lib/indexx.f90
|
lib/indexx.f90
|
||||||
|
|
|
@ -99,8 +99,8 @@ subroutine extract(s3,nadd,ntrials,naggressive,ndepth,mycall_12, &
|
||||||
mode65=1
|
mode65=1
|
||||||
flip=1.0
|
flip=1.0
|
||||||
qmin=1.0
|
qmin=1.0
|
||||||
call timer('exp_deco',0)
|
call timer('hint65 ',0)
|
||||||
call exp_decode65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,mode65,flip, &
|
call hint65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,mode65,flip, &
|
||||||
mycall,hiscall,hisgrid,nexp_decode,qual,decoded)
|
mycall,hiscall,hisgrid,nexp_decode,qual,decoded)
|
||||||
if(qual.ge.qmin) then
|
if(qual.ge.qmin) then
|
||||||
nft=2
|
nft=2
|
||||||
|
@ -108,7 +108,7 @@ subroutine extract(s3,nadd,ntrials,naggressive,ndepth,mycall_12, &
|
||||||
decoded=' '
|
decoded=' '
|
||||||
ntry=0
|
ntry=0
|
||||||
endif
|
endif
|
||||||
call timer('exp_deco',1)
|
call timer('hint65 ',1)
|
||||||
go to 900
|
go to 900
|
||||||
endif
|
endif
|
||||||
|
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
subroutine exp_decode65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,mode65,flip, &
|
subroutine hint65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,mode65,flip, &
|
||||||
mycall,hiscall0,hisgrid0,nexp_decode,qual,decoded)
|
mycall,hiscall0,hisgrid0,nexp_decode,qual,decoded)
|
||||||
|
|
||||||
use packjt
|
use packjt
|
||||||
|
@ -132,4 +132,4 @@ subroutine exp_decode65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,mode65,flip, &
|
||||||
if(qual.ge.qmin) decoded=msg0(ipk)
|
if(qual.ge.qmin) decoded=msg0(ipk)
|
||||||
|
|
||||||
return
|
return
|
||||||
end subroutine exp_decode65
|
end subroutine hint65
|
Loading…
Reference in New Issue