diff --git a/lib/packmsg.f b/lib/packmsg.f
index bc1a6424e..7a5f042c8 100644
--- a/lib/packmsg.f
+++ b/lib/packmsg.f
@@ -10,6 +10,7 @@
       logical text1,text2,text3
 
 C  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'))