diff options
Diffstat (limited to 'lib/libI77/inquire.c')
| -rw-r--r-- | lib/libI77/inquire.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/libI77/inquire.c b/lib/libI77/inquire.c index c28e367..ec98b22 100644 --- a/lib/libI77/inquire.c +++ b/lib/libI77/inquire.c @@ -1,4 +1,3 @@ -#include <unistd.h> #include "f2c.h" #include "fio.h" #ifdef KR_headers @@ -54,7 +53,7 @@ integer f_inqu(inlist *a) } } if(a->inex!=NULL) - if((byfile && x != -1) || (!byfile && p!=NULL)) + if(byfile && x != -1 || !byfile && p!=NULL) *a->inex=1; else *a->inex=0; if(a->inopen!=NULL) @@ -62,7 +61,7 @@ integer f_inqu(inlist *a) else *a->inopen=(p!=NULL && p->ufd!=NULL); if(a->innum!=NULL) *a->innum= p-f__units; if(a->innamed!=NULL) - if(byfile || (p!=NULL && p->ufnm!=NULL)) + if(byfile || p!=NULL && p->ufnm!=NULL) *a->innamed=1; else *a->innamed=0; if(a->inname!=NULL) |
