From 5465abaa72731e069dfcdf735612defe89f82a21 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 28 Jun 2018 13:17:32 -0400
Subject: [PATCH] Make encode77 default to reading from "messages.txt".

---
 lib/77bit/encode77.f90 | 9 +++++----
 lib/77bit/pack77.f90   | 5 +++--
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/lib/77bit/encode77.f90 b/lib/77bit/encode77.f90
index 71f910bde..7e1d0eff0 100644
--- a/lib/77bit/encode77.f90
+++ b/lib/77bit/encode77.f90
@@ -1,19 +1,20 @@
 program encode77
 
-  character msg*37,msg0*37,msg1*37,cerr*1
+  character msg*37,msg0*37,cerr*1
   character*77 c77
 
   nargs=iargc()
+  open(10,file='messages.txt',status='old')
+  
   do iline=1,999
      if(nargs.eq.1) then
         call getarg(1,msg0)
      else
-        read(*,1002,end=999) msg0
+        read(10,1002,end=999) msg0
 1002    format(a37)
      endif
      if(msg0.eq.'                                     ') exit
-     msg1=msg0
-     call pack77(msg1,i3,n3,c77)
+     call pack77(msg0,i3,n3,c77)
      call unpack77(c77,msg)
      cerr=' '
      if(msg.ne.msg0) cerr='*'
diff --git a/lib/77bit/pack77.f90 b/lib/77bit/pack77.f90
index 12bc087c1..21d37f2aa 100644
--- a/lib/77bit/pack77.f90
+++ b/lib/77bit/pack77.f90
@@ -1,13 +1,14 @@
-subroutine pack77(msg,i3,n3,c77)
+subroutine pack77(msg0,i3,n3,c77)
 
   use packjt
-  character*37 msg
+  character*37 msg,msg0
   character*18 c18
   character*13 w(19)
   character*77 c77
   integer nw(19)
   integer ntel(3)
 
+  msg=msg0
   if(i3.eq.0 .and. n3.eq.5) go to 5
 
 ! Convert msg to upper case; collapse multiple blanks; parse into words.