WSJT-X/lib/stdmsg.f90
Joe Taylor a546ed591d Uploads to PSKReporter are now working.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3044 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2013-03-11 19:43:06 +00:00

13 lines
228 B
Fortran

logical*1 function stdmsg(msg0)
character*22 msg0,msg
integer dat(12)
logical text
call packmsg(msg0,dat,text)
call unpackmsg(dat,msg)
stdmsg=msg.eq.msg0 .and. (.not.text)
return
end function stdmsg