WSJT-X/lib/stdmsg.f90

logical*1 function stdmsg(msg0)

  use packjt
  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 15:43:06 -04:00			`logical*1 function stdmsg(msg0)`

Reintegrate Joe's experimental VHF & up features As at ^/branches/wsjtx_exp@5271 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5272 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2015-04-22 13:48:03 -04:00			`use packjt`
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 15:43:06 -04:00			`character*22 msg0,msg`
			`integer dat(12)`

Improve the way messages with compound calls are automatically generated. Routine packmsg now tries the shortlist (Type 1 prefix or suffix) first. Then it tries to to make a valid message using a Type 2 prefix or suffix. If both fail, it packs the first 13 characters as a free-text message. The GUI now generates the most useful messages with compound callsigns of all valid types. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4533 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2014-10-18 20:56:41 -04: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 15:43:06 -04:00			`call unpackmsg(dat,msg)`
Improve the way messages with compound calls are automatically generated. Routine packmsg now tries the shortlist (Type 1 prefix or suffix) first. Then it tries to to make a valid message using a Type 2 prefix or suffix. If both fail, it packs the first 13 characters as a free-text message. The GUI now generates the most useful messages with compound callsigns of all valid types. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4533 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2014-10-18 20:56:41 -04: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 15:43:06 -04:00
			`return`
			`end function stdmsg`