Index: jt65.f90
===================================================================
--- jt65.f90	(revision 6286)
+++ jt65.f90	(working copy)
@@ -12,6 +12,7 @@
   character*80 infile
   character(len=500) optarg
   common/tracer/limtrace,lu
+  common/npar/mycall,hiscall,hisgrid
   equivalence (lenfile,ihdr(2))
   type (option) :: long_options(5) = [ &
     option ('freq',.true.,'f','signal frequency, default FREQ=1270','FREQ'),         &
@@ -95,7 +96,7 @@
 
      call jt65a(dd,npts,newdat,nutc,nfa,nfb,nfqso,ntol,nsubmode, &
                 minsync,nagain,n2pass,nrobust,ntrials, naggressive,ndepth, &
-                nexp_decoded,ndecoded)
+                mycall,hiscall,hisgrid,nexp_decoded,ndecoded)
      call timer('jt65a   ',1)
   enddo
 
Index: jt65a.f90
===================================================================
--- jt65a.f90	(revision 6286)
+++ jt65a.f90	(working copy)
@@ -147,10 +147,10 @@
 1012      format(i4.4,i4,i5,f6.1,f8.0,i4,3x,a22,' JT65',i4)
           call flush(6)
           call flush(13)
-!          write(79,3001) nutc,nint(sync1),nsnr,dtx-1.0,nfreq,ncandidates,    &
-!               nhard_min,ntotal_min,ntry,naggressive,nft,nqual,decoded
-!3001      format(i4.4,i3,i4,f6.2,i5,i7,i3,i4,i8,i3,i2,i5,1x,a22)
-!          flush(79)
+          write(79,3001) nutc,nint(sync1),nsnr,dtx-1.0,nfreq,ncandidates,    &
+               nhard_min,ntotal_min,ntry,naggressive,nft,nqual,decoded
+3001      format(i4.4,i3,i4,f6.2,i5,i7,i3,i4,i8,i3,i2,i5,1x,a22)
+          flush(79)
         endif
         decoded0=decoded
         freq0=freq