implement namelist

[unix-history] / usr / src / usr.bin / f77 / libI77 / lread.c

diff --git a/usr/src/usr.bin/f77/libI77/lread.c b/usr/src/usr.bin/f77/libI77/lread.c
index f217218..50ee840 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/lread.c
+++ b/usr/src/usr.bin/f77/libI77/lread.c
@@ -3,7 +3,7 @@
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *

- *     @(#)lread.c     5.1     %G%
+ *     @(#)lread.c     5.2     %G%

  */
 
 /*
  */
 
 /*


@@ -50,6 +50,8 @@ s_rsle(a) cilist *a;  /* start read sequential list external */
 {
        int n;
        reading = YES;
 {
        int n;
        reading = YES;

+       formatted = LISTDIRECTED;
+       fmtbuf = "ext list io";

        if(n=c_le(a,READ)) return(n);
        l_first = YES;
        lquit = NO;
        if(n=c_le(a,READ)) return(n);
        l_first = YES;
        lquit = NO;