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. 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 2014-10-20 23:10:00 +00:00			`call packmsg(msg0,dat,itype)`
Uploads to PSKReporter are now working. 2013-03-11 19:43:06 +00:00			`call unpackmsg(dat,msg)`
Merge changes from revisions 4533, 4534, 4535, 4536, 4537, 4540, and 2014-10-20 23:10:00 +00:00			`stdmsg=(msg.eq.msg0) .and. (itype.ge.0)`
Uploads to PSKReporter are now working. 2013-03-11 19:43:06 +00:00
			`return`
			`end function stdmsg`