WSJT-X/lib/stdmsg.f90

logical*1 function stdmsg(msg0)

  character*22 msg0,msg
  integer dat(12)

  call packmsg(msg0,dat,itype)
  call unpackmsg(dat,msg)
  stdmsg=(msg.eq.msg0) .and. (itype.ge.0)

  return
end function stdmsg
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			`logical*1 function stdmsg(msg0)`

			`character*22 msg0,msg`
			`integer dat(12)`

Merge changes from revisions 4533, 4534, 4535, 4536, 4537, 4540, and 4544 into wsjtx-1.4. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx-1.4@4550 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2014-10-20 23:10:00 +00:00			`call packmsg(msg0,dat,itype)`
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			`call unpackmsg(dat,msg)`
Merge changes from revisions 4533, 4534, 4535, 4536, 4537, 4540, and 4544 into wsjtx-1.4. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx-1.4@4550 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2014-10-20 23:10:00 +00:00			`stdmsg=(msg.eq.msg0) .and. (itype.ge.0)`
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
			`return`
			`end function stdmsg`