mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2026-06-07 00:14:46 -04:00
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
This commit is contained in:
@@ -0,0 +1,12 @@
|
||||
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
|
||||
Reference in New Issue
Block a user