diff --git a/lib/afc65b.f90 b/lib/afc65b.f90 index acc445415..18bbb691e 100644 --- a/lib/afc65b.f90 +++ b/lib/afc65b.f90 @@ -6,6 +6,8 @@ subroutine afc65b(cx,npts,fsample,nflip,mode65,a,ccfbest,dtbest) real a(5),deltaa(5) a=0. + a1=0. + a2=0. i2=8*mode65 i1=-i2 j2=8*mode65