mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-03 16:01:18 -05:00
051de6afd7
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3660 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
19 lines
300 B
Fortran
19 lines
300 B
Fortran
logical function badmsg(msg)
|
|
character*22 msg
|
|
character*42 c
|
|
data c/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ +-./?'/
|
|
|
|
do i=1,22
|
|
do j=1,42
|
|
if(msg(i:i).eq.c(j:j)) go to 10
|
|
enddo
|
|
badmsg=.true.
|
|
return
|
|
10 continue
|
|
enddo
|
|
badmsg=.false.
|
|
|
|
return
|
|
end function badmsg
|
|
|