function stdmsg(msg0)

  ! Returns .true. if msg0 a standard "JT-style" message
  
  ! itype
  !  1     Standard 72-bit structured message
  !  2     Type 1 prefix
  !  3     Type 1 suffix
  !  4     Type 2 prefix
  !  5     Type 2 suffix
  !  6     Free text
  !  7     Hashed calls (MSK144 short format)

  ! i3.n3
  !  0.0   Free text
  !  0.1   DXpeditiion mode
  !  0.2   EU VHF Contest
  !  0.3   ARRL Field Day <=16 transmitters
  !  0.4   ARRL Field Day >16 transmitters
  !  0.5   telemetry
  !  0.6
  !  0.7
  !  1     Standard 77-bit structured message (optional /R)
  !  2     EU VHF Contest (optional /P)
  !  3     ARRL RTTY Contest
  !  4     Nonstandard calls

  use iso_c_binding, only: c_bool
  use packjt
  character*37 msg0,msg1,msg
  integer dat(12)
  logical(c_bool) :: stdmsg

  msg1=msg0
  i0=index(msg1,' OOO ')
  if(i0.gt.10) msg1=msg0(1:i0)
  call packmsg(msg0,dat,itype)
  call unpackmsg(dat,msg)
  msg(23:37)='               '
  stdmsg=(msg(1:22).eq.msg1(1:22)) .and. (itype.ge.0) .and. (itype.ne.6)
  if(.not.stdmsg) then
     i0=index(msg1,'  ')
     msg1(i0:)='                    '
     call parse77(msg1,i3,n3)
     if(i3.gt.0 .or. n3.gt.0) stdmsg=.true.
  endif

  return
end function stdmsg