Fix input format for wsjtx_dir.txt.

This commit is contained in:
Joe Taylor 2021-04-19 15:15:16 -04:00
parent 55f1e9da2b
commit 0599be02cc
1 changed files with 1 additions and 1 deletions

View File

@ -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