From d8f7354c0e088e4840c528d0a050fc6258cad66a Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 5 Dec 2018 08:19:59 -0500
Subject: [PATCH] Make fmtmsg aware of both message sizes, 22 and 37 chars.

---
 lib/fmtmsg.f90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/fmtmsg.f90 b/lib/fmtmsg.f90
index 2ceb81554..81789e2a9 100644
--- a/lib/fmtmsg.f90
+++ b/lib/fmtmsg.f90
@@ -1,16 +1,16 @@
 subroutine fmtmsg(msg,iz)
 
-  character*22 msg
+  character*(*) msg
 
 ! Convert all letters to upper case
-  iz=22
-  do i=1,22
+  iz=len(msg)
+  do i=1,iz
      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
+  do iter=1,37                           !Collapse multiple blanks into one
      ib2=index(msg(1:iz),'  ')
      if(ib2.lt.1) go to 100
      msg=msg(1:ib2)//msg(ib2+2:)