BSD 4_2 release

[unix-history] / usr / src / usr.lib / libI77 / inquire.c

diff --git a/usr/src/usr.lib/libI77/inquire.c b/usr/src/usr.lib/libI77/inquire.c
index 3e65536..7bb8e94 100644 (file)
--- a/usr/src/usr.lib/libI77/inquire.c
+++ b/usr/src/usr.lib/libI77/inquire.c
@@ -1,5 +1,5 @@
 /*
 /*

-char id_inquire[] = "@(#)inquire.c     1.2";
+char id_inquire[] = "@(#)inquire.c     1.3";

  *
  * inquire.c - f77 i/o inquire statement routine
  */
  *
  * inquire.c - f77 i/o inquire statement routine
  */


@@ -94,10 +94,10 @@ f_inqu(a) inlist *a;
        }
        if(a->inrecl && p) *a->inrecl=p->url;
        if(a->innrec && p && p->url)
        }
        if(a->inrecl && p) *a->inrecl=p->url;
        if(a->innrec && p && p->url)

-               *a->innrec=(ftell(p->ufd)/p->url)+1;
+               *a->innrec=((ftell(p->ufd) + p->url - 1)/p->url) + 1;

        if(a->inblank && p && p->ufmt)
        {
        if(a->inblank && p && p->ufmt)
        {

-               b_char(p->ublnk? "zero" : "blank",a->inblank,a->inblanklen);
+               b_char(p->ublnk? "zero" : "null",a->inblank,a->inblanklen);

        }
        return(OK);
 }
        }
        return(OK);
 }