From 0a6e255465517126dc3dd3b9e5c96bdb7cfdbeb6 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 11 Jan 2017 21:19:44 +0000 Subject: [PATCH] Must do nqd=2 and nqd=1 for nagain=1. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@7482 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- libm65/map65a.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libm65/map65a.f90 b/libm65/map65a.f90 index 55145abe7..06488bd0a 100644 --- a/libm65/map65a.f90 +++ b/libm65/map65a.f90 @@ -348,7 +348,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, & 1013 format('',2i4) flush(6) endif - if(nagain.eq.1) go to 999 + if(nagain.eq.1 .and. nqd.eq.1) go to 999 enddo ! Trim the list and produce a sorted index and sizes of groups.