File: stdmsg.f90

package info (click to toggle)
wsjtx 1.1.r3496-3
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 2,988 kB
  • ctags: 1,377
  • sloc: cpp: 6,647; f90: 5,319; ansic: 1,266; fortran: 108; makefile: 17; sh: 10
file content (12 lines) | stat: -rw-r--r-- 228 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
 
logical*1 function stdmsg(msg0)

  character*22 msg0,msg
  integer dat(12)
  logical text

  call packmsg(msg0,dat,text)
  call unpackmsg(dat,msg)
  stdmsg=msg.eq.msg0 .and. (.not.text)

  return
end function stdmsg