Protect against a bounds error when no input data.

2021-07-18 08:39:34 -04:00 · 2021-07-18 08:39:34 -04:00 · 3d04c767ca
parent b25ef318a4
commit 3d04c767ca
1 changed files with 6 additions and 2 deletions
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@ -425,9 +425,13 @@ subroutine q65_ccf_85(s1,iz,jz,nfqso,ia,ia2,ipk,jpk,f0,xdt,imsg_best,   &
     endif
     best(imsg)=ccfmax
  enddo  ! imsg
+
  deallocate(ccf)
-  best(imsg_best)=0.
-  better=ccf_best/maxval(best)
+  better=0.
+  if(imsg_best.gt.0) then
+     best(imsg_best)=0.
+     better=ccf_best/maxval(best)
+  endif

  return
 end subroutine q65_ccf_85