w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-15 08:31:57 -05:00
Code Issues Packages Projects Releases Wiki Activity

Remove some debug prints.

Browse Source
This commit is contained in:
Steven Franke 2020-12-13 15:47:38 -06:00 committed by Bill Somerville
parent 11b7aa9429
commit 65ff3ce05e
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/fst4_decode.f90
View File

@ -93,20 +93,16 @@ contains
if(first) then if(first) then
! read the fst4_calls.txt file ! read the fst4_calls.txt file
write(*,*) 'data_dir is:',trim(data_dir)
inquire(file=trim(data_dir)//'/fst4w_calls.txt',exist=wcalls_exists) inquire(file=trim(data_dir)//'/fst4w_calls.txt',exist=wcalls_exists)
if( wcalls_exists ) then if( wcalls_exists ) then
open(42,file=trim(data_dir)//'/fst4w_calls.txt',status='unknown') open(42,file=trim(data_dir)//'/fst4w_calls.txt',status='unknown')
write(*,*) 'fst4w_calls.txt exists'
do i=1,MAXWCALLS do i=1,MAXWCALLS
wcalls(i)='' wcalls(i)=''
read(42,fmt='(a)',end=2867) wcalls(i) read(42,fmt='(a)',end=2867) wcalls(i)
wcalls(i)=adjustl(wcalls(i)) wcalls(i)=adjustl(wcalls(i))
if(len(trim(wcalls(i))).eq.0) exit if(len(trim(wcalls(i))).eq.0) exit
write(*,*) 'record ',i,':',wcalls(i),':',len(trim(wcalls(i)))
enddo enddo
2867 nwcalls=i-1 2867 nwcalls=i-1
write(*,*) 'nwcalls ',nwcalls
close(42) close(42)
endif endif