From 47d2572b55994c7dd1ce4e0e026cee0a3c43fa7d Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Sun, 19 Oct 2014 00:57:29 +0000
Subject: [PATCH] Forgot to commit a new utility function.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4534 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/fmtmsg.f90 | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 lib/fmtmsg.f90

diff --git a/lib/fmtmsg.f90 b/lib/fmtmsg.f90
new file mode 100644
index 000000000..2ceb81554
--- /dev/null
+++ b/lib/fmtmsg.f90
@@ -0,0 +1,21 @@
+subroutine fmtmsg(msg,iz)
+
+  character*22 msg
+
+! Convert all letters to upper case
+  iz=22
+  do i=1,22
+     if(msg(i:i).ge.'a' .and. msg(i:i).le.'z')                       &
+          msg(i:i)= char(ichar(msg(i:i))+ichar('A')-ichar('a'))
+     if(msg(i:i).ne.' ') iz=i
+  enddo
+
+  do iter=1,5                           !Collapse multiple blanks into one
+     ib2=index(msg(1:iz),'  ')
+     if(ib2.lt.1) go to 100
+     msg=msg(1:ib2)//msg(ib2+2:)
+     iz=iz-1
+  enddo
+
+100 return
+end subroutine fmtmsg