mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-08 01:56:10 -05:00
04dcf0a528
MAP65 v2.3.0, r631, as checked out from the SVN repository on pulsar.princeton.edu. If all goes well with this commit, subsequent MAP65 development will use the Berlios repository. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2461 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
24 lines
397 B
Fortran
24 lines
397 B
Fortran
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
|