diff options
Diffstat (limited to 'libf2c/libI77')
| -rw-r--r-- | libf2c/libI77/rsne.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libf2c/libI77/rsne.c b/libf2c/libI77/rsne.c index f0490db..f233a4a 100644 --- a/libf2c/libI77/rsne.c +++ b/libf2c/libI77/rsne.c @@ -515,12 +515,12 @@ have_amp: iva += dn0->delta; if (f__lcount > 0) { - no1 = (ivae - iva) / size; - if (no1 > f__lcount) - no1 = f__lcount; - if ((k = l_read (&no1, vaddr + iva, size, type))) + ftnint no2 = (ivae - iva) / size; + if (no2 > f__lcount) + no2 = f__lcount; + if ((k = l_read (&no2, vaddr + iva, size, type))) return k; - iva += no1 * dn0->delta; + iva += no2 * dn0->delta; } } mustend: |