w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2026-06-15 12:18:34 -04:00
Code Issues Packages Projects Releases Wiki Activity

Merge changes from revisions 4533, 4534, 4535, 4536, 4537, 4540, and

Browse Source 
4544 into wsjtx-1.4.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx-1.4@4550 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor
2014-10-20 23:10:00 +00:00
parent 945eb8c267
commit d4879ac0e0
13 changed files with 239 additions and 223 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/stdmsg.f90
+2 -3
View File
@@ -2,11 +2,10 @@ logical*1 function stdmsg(msg0)
character*22 msg0,msg
integer dat(12)
logical text
call packmsg(msg0,dat,text)
call packmsg(msg0,dat,itype)
call unpackmsg(dat,msg)
stdmsg=msg.eq.msg0 .and. (.not.text)
stdmsg=(msg.eq.msg0) .and. (itype.ge.0)
return
end function stdmsg