Reintegrate the wsjtx_exp branch into the trunk

This  merge brings  the WSPR  feature development  into the  main line
ready for release in a future v1.6 release.



git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5424 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

lib/code426.f90

@@ -39,15 +39,18 @@ program code426
   do j=5,nmsgs                  !Find codewords up to j=nmsgs with maximum
      npk=0                      !distance from all the rest
      do i=1,iters
-        call random_number(c)
-        ic(1:MZ,j)=int(4*c)
-        nd=MZ
-        do k=1,j-1              !Test candidate against all others in list
-           nd=min(nd,count(ic(1:MZ,j).ne.ic(1:MZ,k)))
-        enddo
-        if(nd.gt.npk) then
-           npk=nd
+        call random_number(c)   !Generate a random codeword candidate
+        ic(1:MZ,j)=int(4*c)     !Convert real to integer
+!        nd=MZ
+!        do k=1,j-1              !Test candidate against all others in list
+!           n=count(ic(1:MZ,j).ne.ic(1:MZ,k))
+!           nd=min(n,nd)
+!        enddo
+        call dist426(ic,j,mind)
+        if(mind.gt.npk) then
+           npk=mind
            icsave=ic(1:MZ,j)    !Best candidate so far, save it
+!           if(npk.ge.19) exit   !It won't get any better...
         endif
      enddo
      write(*,1000) j,npk,ic(1:MZ,j)