From 40fd3f655109683779dbb3d15a2f0b03067ebd6a Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Sat, 2 Feb 2019 11:04:11 -0600 Subject: [PATCH] Make writing to data_dir work on the Mac. --- lib/ft4/clockit.f90 | 3 +-- lib/ft4/ft4_decode.f90 | 3 +-- lib/ft4/ft4d.f90 | 1 - 3 files changed, 2 insertions(+), 5 deletions(-) diff --git a/lib/ft4/clockit.f90 b/lib/ft4/clockit.f90 index 7e05f55de..e5b9d5bbd 100644 --- a/lib/ft4/clockit.f90 +++ b/lib/ft4/clockit.f90 @@ -102,8 +102,7 @@ subroutine clockit(dname,k) return entry clockit2(data_dir) - i0=index(data_dir,char(0)) - fname=trim(data_dir(1:i0-1))//'/clockit.out' + fname=trim(data_dir)//'/clockit.out' return end subroutine clockit diff --git a/lib/ft4/ft4_decode.f90 b/lib/ft4/ft4_decode.f90 index 2150568b7..f5a3174ad 100644 --- a/lib/ft4/ft4_decode.f90 +++ b/lib/ft4/ft4_decode.f90 @@ -271,8 +271,7 @@ subroutine ft4_decode(cdatetime0,tbuf,nfa,nfb,nfqso,iwave,ndecodes,mycall, & write(line,1000) hhmmss,nsnr,tsig,nint(freq),message 1000 format(a6,i4,f5.1,i5,' + ',1x,a37) - i0=index(data_dir,char(0)) - fname=trim(data_dir(1:i0-1))//'/all_ft4.txt' + fname=trim(data_dir)//'/all_ft4.txt' open(24,file=trim(fname),status='unknown',position='append') write(24,1002) cdatetime0,nsnr,tsig,nint(freq),message, & nharderror,nsync_qual,isd,niterations diff --git a/lib/ft4/ft4d.f90 b/lib/ft4/ft4d.f90 index 12e4e5660..8381bc9b6 100644 --- a/lib/ft4/ft4d.f90 +++ b/lib/ft4/ft4d.f90 @@ -42,7 +42,6 @@ program ft4d read(arg,*) fMHz iarg=iarg+2 endif - ncoh=1 nfa=200 nfb=3000