diff options
Diffstat (limited to 'contrib/libf2c/libI77/rsne.c')
| -rw-r--r-- | contrib/libf2c/libI77/rsne.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/contrib/libf2c/libI77/rsne.c b/contrib/libf2c/libI77/rsne.c index c9d5f10..a0d0bfe 100644 --- a/contrib/libf2c/libI77/rsne.c +++ b/contrib/libf2c/libI77/rsne.c @@ -1,3 +1,4 @@ +#include "config.h" #include "f2c.h" #include "fio.h" #include "lio.h" @@ -302,8 +303,8 @@ x_rsne(cilist *a) Vardesc *v; dimen *dn, *dn0, *dn1; ftnlen *dims, *dims1; - ftnlen b, b0, b1, ex, no, no1, nomax, size, span; - ftnint type; + ftnlen b, b0, b1, ex, no, nomax, size, span; + ftnint no1, type; char *vaddr; long iva, ivae; dimen dimens[MAXDIM], substr; @@ -338,7 +339,7 @@ x_rsne(cilist *a) #endif } have_amp: - if (ch = getname(buf,(int) sizeof(buf))) + if (ch = getname(buf,sizeof(buf))) return ch; nl = (Namelist *)a->cifmt; if (strcmp(buf, nl->name)) @@ -393,7 +394,7 @@ x_rsne(cilist *a) if (ch <= ' ' && ch >= 0 || ch == ',') continue; Ungetc(ch,f__cf); - if (ch = getname(buf,(int) sizeof(buf))) + if (ch = getname(buf,sizeof(buf))) return ch; goto havename; } |
