From 0599be02cc5276fe5acd71da8655111a6d725eb8 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Mon, 19 Apr 2021 15:15:16 -0400
Subject: [PATCH] Fix input format for wsjtx_dir.txt.

---
 map65/libm65/q65b.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/map65/libm65/q65b.f90 b/map65/libm65/q65b.f90
index 9fbaf804a..54cdf2631 100644
--- a/map65/libm65/q65b.f90
+++ b/map65/libm65/q65b.f90
@@ -27,7 +27,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol,  &
 
   if(first) then
      open(9,file='wsjtx_dir.txt',status='old')
-     read(9,*) wsjtx_dir
+     read(9,'(a)') wsjtx_dir
      close(9)
      first=.false.
   endif