rsne.c: Fix NAMELIST bug by applying 19990627 Netlib patch to release branch.

	* libI77/rsne.c: Fix NAMELIST bug by applying 19990627
	Netlib patch to release branch.

From-SVN: r27830

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 360c91f3db72bab97b6885a127a37667d1b621ad..b532aac2645ce6bb4595941d0c797b8d188ca989 100644 (file)
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,8 @@
+Mon Jun 28 10:22:30 1999  Craig Burley  <craig@jcb-sc.com>
+
+       * libI77/rsne.c: Fix NAMELIST bug by applying 19990627
+       Netlib patch to release branch.
+
 Wed Jun 16 11:38:58 1999  Craig Burley  <craig@jcb-sc.com>
 
        From Ian Watson <WATSON_IAN_A@Lilly.com> 1999-06-12:

diff --git a/libf2c/libI77/Version.c b/libf2c/libI77/Version.c
index b501174b79005594a8e0ec2c4f6fad15b2d15fe0..334ed01b095a5c4fedf7a50e04b43a06307bbc2f 100644 (file)
--- a/libf2c/libI77/Version.c
+++ b/libf2c/libI77/Version.c
@@ -3,7 +3,7 @@ static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990503\n";
 /*
 */
 
-char __G77_LIBI77_VERSION__[] = "0.5.25 19990616 (prerelease)";
+char __G77_LIBI77_VERSION__[] = "0.5.25 19990628 (prerelease)";
 
 /*
 2.01   $ format added

diff --git a/libf2c/libI77/rsne.c b/libf2c/libI77/rsne.c
index 86bb2164f12870bf79c8a3450e2e51392682af99..c9d5f1015f4aff5ece2c9ca16b8e0f5cb351d45a 100644 (file)
--- a/libf2c/libI77/rsne.c
+++ b/libf2c/libI77/rsne.c
@@ -530,10 +530,10 @@ x_rsne(cilist *a)
                                        no1 = (ivae - iva)/size;
                                        if (no1 > f__lcount)
                                                no1 = f__lcount;
-                                       iva += no1 * dn0->delta;
                                        if (k = l_read(&no1, vaddr + iva,
                                                        size, type))
                                                return k;
+                                       iva += no1 * dn0->delta;
                                        }
                                }
  mustend: