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:
Joe Taylor
2013-03-11 19:43:06 +00:00
parent 4b719a985d
commit 45dcb4a4aa
2 changed files with 36 additions and 16 deletions
+12
View File
@@ -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