Update to Netlib version of 1999-05-10

From-SVN: r26864

libf2c/ChangeLog

+Mon May 10 17:33:45 1999  Craig Burley  <craig@jcb-sc.com>
+
+	Update to Netlib version of 1999-05-10:
+	* changes.netlib, libF77/Version.c, libF77/abort_.c,
+	libF77/c_log.c, libF77/ef1asc_.c, libF77/s_rnge.c,
+	libF77/s_stop.c, libI77/Version.c, libI77/open.c,
+	readme.netlib: See changes.netlib for info.
+
 Fri May 7 9:33:55 1999 Donn Terry (donn@interix.com)
 
 	* libU77/dtime_.c (G77_dtime_0): Standard-conforming error check.

libf2c/changes.netlib

@@ -3003,7 +3003,14 @@ Sun May  2 22:38:25 EDT 1999
   libf77, libi77, libf2c.zip: make getenv_() more portable (call
 getenv() rather than knowing about char **environ); adjust some
 complex intrinsics to work with overlapping arguments (caused by
-illegal use of equivalence); open.c: get "external" versus "internal"
-right in the error message if a file cannot be opened; err.c: cast a
-pointer difference to (int) for %d; rdfmt.c: omit fixed-length buffer
-that could be overwritten by formats Inn or Lnn with nn > 83.
+inappropriate use of equivalence); open.c: get "external" versus
+"internal" right in the error message if a file cannot be opened;
+err.c: cast a pointer difference to (int) for %d; rdfmt.c: omit
+fixed-length buffer that could be overwritten by formats Inn or Lnn
+with nn > 83.
+
+Mon May  3 13:14:07 EDT 1999
+  "Invisible" changes to omit a few compiler warnings in f2c and
+libf2c; two new casts in libf2c/open.c that matter with 64-bit longs,
+and one more tweak (libf2c/c_log.c) for pathological equivalences.
+  Minor update to "fc" script: new -L flag and comment correction.

libf2c/libF77/Version.c

-static char junk[] = "\n@(#)LIBF77 VERSION 19990502\n";
+static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
 
 /*
 */
@@ -59,6 +59,8 @@ char __G77_LIBF77_VERSION__[] = "0.5.24";
 			c_cos.c, c_exp.c, c_sin.c, d_cnjg.c, r_cnjg.c,
 			z_cos.c, z_exp.c, z_log.c, z_sin.c: cope fully with
 			overlapping arguments caused by equivalence.
+	3 May 1999:	"invisible" tweaks to omit compiler warnings in
+			abort_.c, ef1asc_.c, s_rnge.c, s_stop.c.
 */
 
 #include <stdio.h>

libf2c/libF77/abort_.c

@@ -12,7 +12,5 @@ int G77_abort_0 (void)
 #endif
 {
 sig_die("Fortran abort routine called", 1);
-#ifdef __cplusplus
-return 0;
-#endif
+return 0;	/* not reached */
 }

libf2c/libF77/c_log.c

@@ -11,7 +11,7 @@ extern double f__cabs(double, double);
 void c_log(complex *r, complex *z)
 #endif
 {
-	double zi = z->i, zr = z->r;
-	r->i = atan2(zi, zr);
-	r->r = log( f__cabs( zr, zi ) );
+	double zi, zr;
+	r->i = atan2(zi = z->i, zr = z->r);
+	r->r = log( f__cabs(zr, zi) );
 	}

libf2c/libF77/ef1asc_.c

@@ -15,7 +15,5 @@ int G77_ef1asc_0 (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
 #endif
 {
 s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
-#ifdef __cplusplus
-return 0;
-#endif
+return 0;	/* ignored return value */
 }

libf2c/libF77/s_rnge.c

@@ -20,7 +20,5 @@ fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1
 while((i = *varn) && i != ' ')
 	putc(*varn++, stderr);
 sig_die(".", 1);
-#ifdef __cplusplus
-return 0;
-#endif
+return 0;	/* not reached */
 }

libf2c/libF77/s_stop.c

@@ -30,8 +30,13 @@ if(n > 0)
 f_exit();
 #endif
 exit(0);
-#ifdef __cplusplus
+
+/* We cannot avoid (useless) compiler diagnostics here:		*/
+/* some compilers complain if there is no return statement,	*/
+/* and others complain that this one cannot be reached.		*/
+
 return 0; /* NOT REACHED */
 }
-#endif
+#ifdef __cplusplus
 }
+#endif

libf2c/libI77/Version.c

-static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990502\n";
+static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990503\n";
 
 /*
 */
@@ -300,6 +300,7 @@ wrtfmt.c:
 		 err.c: cast a pointer difference to (int) for %d.
 		 rdfmt.c: omit fixed-length buffer that could be overwritten
 		 by formats Inn or Lnn with nn > 83. */
+/* 3 May 1999:	open.c: insert two casts for machines with 64-bit longs. */
 
 
 

libf2c/libI77/open.c

@@ -187,7 +187,7 @@ integer f_open(olist *a)
 			opnerr(a->oerr,107,"open");
 		}
 	else
-		sprintf(buf, "fort.%ld", a->ounit);
+		sprintf(buf, "fort.%ld", (long)a->ounit);
 	b->uscrtch = 0;
 	b->uend=0;
 	b->uwrt = 0;
@@ -281,7 +281,7 @@ fk_open(int seq, int fmt, ftnint n)
 	int rtn;
 	int save_init;
 
-	(void) sprintf(nbuf,"fort.%ld",n);
+	(void) sprintf(nbuf,"fort.%ld",(long)n);
 	a.oerr=1;
 	a.ounit=n;
 	a.ofnm=nbuf;

libf2c/readme.netlib

@@ -698,10 +698,21 @@ Sun May  2 22:38:25 EDT 1999
   libf77, libi77, libf2c.zip: make getenv_() more portable (call
 getenv() rather than knowing about char **environ); adjust some
 complex intrinsics to work with overlapping arguments (caused by
-illegal use of equivalence); open.c: get "external" versus "internal"
-right in the error message if a file cannot be opened; err.c: cast a
-pointer difference to (int) for %d; rdfmt.c: omit fixed-length buffer
-that could be overwritten by formats Inn or Lnn with nn > 83.
+inappropriate use of equivalence); open.c: get "external" versus
+"internal" right in the error message if a file cannot be opened;
+err.c: cast a pointer difference to (int) for %d; rdfmt.c: omit
+fixed-length buffer that could be overwritten by formats Inn or Lnn
+with nn > 83.
+
+Mon May  3 13:14:07 EDT 1999
+  "Invisible" changes to omit a few compiler warnings in f2c and
+libf2c; two new casts in libf2c/open.c that matter with 64-bit longs,
+and one more tweak (libf2c/c_log.c) for pathological equivalences.
+  Minor update to "fc" script: new -L flag and comment correction.
+
+Tue May  4 10:06:26 EDT 1999
+   libf77, libf2c.zip: forgot to copy yesterday's latest updates to
+netlib.
 
 Current timestamps of files in "all from f2c/src", sorted by time,
 appear below (mm/dd/year hh:mm:ss).  To bring your source up to date,
@@ -709,17 +720,22 @@ obtain source files with a timestamp later than the time shown in your
 version.c.  Note that the time shown in the current version.c is the
 timestamp of the source module that immediately follows version.c below:
 
- 3/28/1999  13:16:27  xsum0.out
- 3/26/1999  23:18:20  version.c
+ 5/03/1999  12:46:15  version.c
+ 5/03/1999  12:39:35  formatdata.c
+ 5/03/1999  12:31:14  format.c
+ 5/03/1999  12:27:17  p1output.c
+ 5/03/1999  12:27:17  data.c
+ 5/03/1999  10:01:12  xsum0.out
+ 5/03/1999   9:59:36  io.c
+ 5/03/1999   9:59:36  misc.c
+ 5/03/1999   9:59:36  init.c
  3/26/1999  23:18:11  lex.c
  3/11/1999  16:44:17  expr.c
  3/11/1999  16:42:42  exec.c
  2/10/1999  17:43:01  defs.h
- 9/13/1998  22:18:21  format.c
  9/08/1998  10:16:51  f2c.1
  9/08/1998  10:16:48  f2c.1t
  9/08/1998  10:14:53  intr.c
- 8/31/1998  10:13:22  formatdata.c
  5/16/1998  16:55:49  output.c
  4/03/1998  17:15:05  gram.c
  4/03/1998  17:14:59  gram.dcl
@@ -732,8 +748,6 @@ timestamp of the source module that immediately follows version.c below:
  7/21/1997  12:58:44  proc.c
  2/11/1997  23:39:14  vax.c
 12/04/1996  13:07:53  gram.exec
-10/01/1996  14:36:18  init.c
-10/01/1996  14:36:17  data.c
  9/12/1996  12:12:46  equiv.c
  8/26/1996   9:41:13  sysdep.c
  7/09/1996  10:40:45  names.c
@@ -741,12 +755,9 @@ timestamp of the source module that immediately follows version.c below:
  7/04/1996   9:55:43  put.c
  7/04/1996   9:55:41  pread.c
  7/04/1996   9:55:40  parse_args.c
- 7/04/1996   9:55:40  p1output.c
- 7/04/1996   9:55:37  misc.c
- 7/04/1996   9:55:36  memset.c
  7/04/1996   9:55:36  mem.c
+ 7/04/1996   9:55:36  memset.c
  7/04/1996   9:55:35  main.c
- 7/04/1996   9:55:33  io.c
  7/04/1996   9:55:29  error.c
  7/04/1996   9:55:27  cds.c
  7/03/1996  15:47:49  xsum.c