Make writing to data_dir work on the Mac.

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

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

lib/ft4/ft4d.f90

@@ -42,7 +42,6 @@ program ft4d
       read(arg,*) fMHz
       iarg=iarg+2
    endif
-   ncoh=1
    nfa=200
    nfb=3000