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

2007-01-11 21:50:39 +00:00 · 2007-01-11 21:50:39 +00:00 · 163b5b0dae
parent 1f947448de
commit 163b5b0dae
1 changed files with 23 additions and 0 deletions
--- a/chkhist.f
+++ b/chkhist.f
@ -0,0 +1,23 @@
+      subroutine chkhist(mrsym,nmax,ipk)
+
+      integer mrsym(63)
+      integer hist(0:63)
+
+      do i=0,63
+         hist(i)=0
+      enddo
+      do j=1,63
+         i=mrsym(j)
+         hist(i)=hist(i)+1
+      enddo
+
+      nmax=0
+      do i=0,63
+         if(hist(i).gt.nmax) then
+            nmax=hist(i)
+            ipk=i+1
+         endif
+      enddo
+
+      return
+      end