From a003ac530ba54c0a76d9e8b1a1d28f7b0a1f61b2 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 8 May 2024 10:43:32 -0400
Subject: [PATCH] Move "fort.47" into temp_dir for platform independence.

---
 lib/decoder.f90 | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/decoder.f90 b/lib/decoder.f90
index 9501c8bcc..59fbc82e5 100644
--- a/lib/decoder.f90
+++ b/lib/decoder.f90
@@ -52,6 +52,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
   character(len=20) :: datetime
   character(len=12) :: mycall, hiscall
   character(len=6) :: mygrid, hisgrid
+  character(len=256) :: cmnd
   character*60 line
   data ndec8/0/,ntr0/-1/
   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(params%nzhsym.lt.50) go to 800
 ! 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)
         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
         call timer('decft8  ',0)
         newdat=params%newdat