diff --git a/lib/jt9.f90 b/lib/jt9.f90 index d96c61025..5a0b77c68 100644 --- a/lib/jt9.f90 +++ b/lib/jt9.f90 @@ -219,10 +219,9 @@ program jt9 999 continue ! Output decoder statistics - write(12,1100) numbm,numkv,num65 -1100 format(/'JT65: ',i6,' BM and',i7,' KV in',i7,' attempts') - write(12,1110) numfano,num9 -1110 format( 'JT9: ',i6,' Fano in',i7,' attempts') + write(12,1100) numbm,numkv,numbm+numkv,num65,numfano,num9 +1100 format(58('-')/' BM KV JT65 Tries JT9 Tries'/ & + 58('-')/6i8) ! Save wisdom and free memory iret=fftwf_export_wisdom_to_filename(wisfile)