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

Move "fort.47" into temp_dir for platform independence.

Browse Source
This commit is contained in:
Joe Taylor 2024-05-08 10:43:32 -04:00
parent 3812f2f9bc
commit a003ac530b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/decoder.f90
View File

@ -52,6 +52,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
character(len=20) :: datetime character(len=20) :: datetime
character(len=12) :: mycall, hiscall character(len=12) :: mycall, hiscall
character(len=6) :: mygrid, hisgrid character(len=6) :: mygrid, hisgrid
character(len=256) :: cmnd
character*60 line character*60 line
data ndec8/0/,ntr0/-1/ data ndec8/0/,ntr0/-1/
save save
@ -142,10 +143,12 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
if(ncontest.eq.7 .and. params%b_superfox .and. params%b_even_seq) then if(ncontest.eq.7 .and. params%b_superfox .and. params%b_even_seq) then
if(params%nzhsym.lt.50) go to 800 if(params%nzhsym.lt.50) go to 800
! Call the superFox decoder ! Call the superFox decoder
open(47,file='fort.47',status='unknown',access='stream') open(47,file=trim(temp_dir)//'/fort.47',status='unknown', &
access='stream')
write(47) params%yymmdd,params%nutc,id2(1:20),id2(1:180000) write(47) params%yymmdd,params%nutc,id2(1:20),id2(1:180000)
close(47) close(47)
call execute_command_line('.\sfrx fort.47') cmnd=trim(exe_dir)//'/sfrx '//trim(temp_dir)//'/fort.47'
call execute_command_line(cmnd)
else else
call timer('decft8 ',0) call timer('decft8 ',0)
newdat=params%newdat newdat=params%newdat