diff --git a/lib/qra_loops.f90 b/lib/qra_loops.f90 index 3c9c2f1c3..0679e4d88 100644 --- a/lib/qra_loops.f90 +++ b/lib/qra_loops.f90 @@ -135,6 +135,7 @@ subroutine qra_loops(c00,npts2,mode,mode64,nsubmode,nFadingModel, & !### nsave=0 s3avg=0. + irc=irc + 100*navg endif return end subroutine qra_loops