w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-26 22:28:41 -05:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Joe Taylor 2007-01-11 21:50:39 +00:00
parent 1f947448de
commit 163b5b0dae
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
chkhist.f Normal file
View File

@ -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