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)`

Improve the way messages with compound calls are automatically generated. 2014-10-19 00:56:41 +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)`
Improve the way messages with compound calls are automatically generated. 2014-10-19 00:56:41 +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`