w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Remove diagnostic write. 

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8252 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2017-11-21 21:04:37 +00:00
parent b0212188e6
commit 4b3245ccb5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/ft8/foxgen.f90
View File

@ -67,9 +67,9 @@ subroutine foxgen(t)
enddo
call system_clock(count1,clkfreq)
time=float(count1-count0)/float(clkfreq) !Cumulative execution time
write(*,3001) n,k,i,time,msgsent
3001 format(i1,i8,i4,f10.6,2x,a22)
! time=float(count1-count0)/float(clkfreq) !Cumulative execution time
! write(*,3001) n,k,i,time,msgsent
!3001 format(i1,i8,i4,f10.6,2x,a22)
if(i.ge.m) exit
enddo
@ -113,7 +113,7 @@ subroutine foxgen(t)
flush(29)
100 call system_clock(count1,clkfreq)
time=float(count1-count0)/float(clkfreq) !Cumulative execution time
! time=float(count1-count0)/float(clkfreq) !Cumulative execution time
! write(*,3010) time
!3010 format('Time:',f10.6)