From 163b5b0dae1ebcc5520d1e83f90f387392d294db Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Thu, 11 Jan 2007 21:50:39 +0000
Subject: [PATCH] git-svn-id:
 svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@339
 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

---
 chkhist.f | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 chkhist.f

diff --git a/chkhist.f b/chkhist.f
new file mode 100644
index 000000000..22522dbb7
--- /dev/null
+++ 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