Fix a compiler warning.

2021-06-29 10:17:42 -04:00 · 2021-06-29 10:17:42 -04:00 · 915571827c
parent 146fa7b9c2
commit 915571827c
1 changed files with 1 additions and 0 deletions
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@ -453,6 +453,7 @@ subroutine q65_ccf_22(s1,iz,jz,nfqso,ntol,ndepth,ntrperiod,iavg,ipk,jpk,  &
  ibest=0
  lagpk=0
  lagbest=0
+  idrift_best=0
  do i=ia,ib
     ccfmax=0.
     do lag=lag1,lag2