diff options
author | obrien <obrien@FreeBSD.org> | 2001-12-18 04:13:58 +0000 |
---|---|---|
committer | obrien <obrien@FreeBSD.org> | 2001-12-18 04:13:58 +0000 |
commit | ba854b6ef2044f486e9df1a1a466585a0584b6c9 (patch) | |
tree | 4fd2d91cedb3fb484f8b449a2b989c583f2257b3 /contrib/libf2c/libI77/xwsne.c | |
parent | 96b6116d6eb2970f9c11711ff24c9b26f90a7b0e (diff) | |
parent | 831bff53656079693b62da2cf232523cf6e1ab9a (diff) | |
download | FreeBSD-src-ba854b6ef2044f486e9df1a1a466585a0584b6c9.zip FreeBSD-src-ba854b6ef2044f486e9df1a1a466585a0584b6c9.tar.gz |
This commit was generated by cvs2svn to compensate for changes in r88109,
which included commits to RCS files with non-trunk default branches.
Diffstat (limited to 'contrib/libf2c/libI77/xwsne.c')
-rw-r--r-- | contrib/libf2c/libI77/xwsne.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/contrib/libf2c/libI77/xwsne.c b/contrib/libf2c/libI77/xwsne.c index 71f6f1d..96fdd02 100644 --- a/contrib/libf2c/libI77/xwsne.c +++ b/contrib/libf2c/libI77/xwsne.c @@ -1,3 +1,4 @@ +#include "config.h" #include "f2c.h" #include "fio.h" #include "lio.h" @@ -24,10 +25,9 @@ x_wsne(cilist *a) Namelist *nl; char *s; Vardesc *v, **vd, **vde; - ftnint *number, type; + ftnint number, type; ftnlen *dims; ftnlen size; - static ftnint one = 1; extern ftnlen f__typesize[]; nl = (Namelist *)a->cifmt; @@ -49,7 +49,7 @@ x_wsne(cilist *a) PUT(*s++); PUT(' '); PUT('='); - number = (dims = v->dims) ? dims + 1 : &one; + number = (dims = v->dims) ? dims[1] : 1; type = v->type; if (type < 0) { size = -type; @@ -57,7 +57,7 @@ x_wsne(cilist *a) } else size = f__typesize[type]; - l_write(number, v->addr, size, type); + l_write(&number, v->addr, size, type); if (vd < vde) { if (f__recpos+2 >= L_len) nl_donewrec(); |