diff --git a/lib/extract.f90 b/lib/extract.f90 index e09daba80..c475e1626 100644 --- a/lib/extract.f90 +++ b/lib/extract.f90 @@ -98,6 +98,7 @@ subroutine extract(s3,nadd,mode65,ntrials,naggressive,ndepth,mycall_12, & mycall,hiscall,hisgrid,nexp_decode,qual,decoded) if(qual.ge.qmin) then nft=2 + ncount=0 else decoded=' ' ntry=0