main.c (main): Avoid implicit int.

	* libF77/main.c (main): Avoid implicit int.
	* libI77/dfe.c (y_rsk, y_getc, c_dfe): Likewise.
	* libI77/due.c (c_due): Likewise.
	* libI77/err.c (f__canseek, f__nowreading, f__nowwriting):
	Likewise.
	* libI77/fmt.c (op_gen, ne_d, e_d, pars_f, type_f, en_fio):
	Likewise.
	* libI77/iio.c (z_getc, z_rnew, c_si, z_wnew): Likewise.
	* libI77/lread.c (t_getc, c_le, l_read): Likewise.
	* libI77/lwrite.c (l_write): Likewise.
	* libI77/open.c (fk_open): Likewise.
	* libI77/rdfmt.c (rd_ed, rd_ned): Likewise.
	* libI77/rsfe.c (xrd_SL, x_getc, x_endp, x_rev): Likewise.
	* libI77/rsne.c (t_getc, x_rsne): Likewise.
	* libI77/sfe.c (c_sfe): Likewise.
	* libI77/sue.c (c_sue): Likewise.
	* libI77/uio.c (do_us): Likewise.
	* libI77/wref.c (wrt_E, wrt_F): Likewise.
	* libI77/wrtfmt.c (wrt_L, w_ed, w_ned): Likewise.

From-SVN: r54169

libf2c/ChangeLog

+Sun Jun  2 08:59:50 2002  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+	* libF77/main.c (main): Avoid implicit int.
+	* libI77/dfe.c (y_rsk, y_getc, c_dfe): Likewise.
+	* libI77/due.c (c_due): Likewise.
+	* libI77/err.c (f__canseek, f__nowreading, f__nowwriting):
+	Likewise.
+	* libI77/fmt.c (op_gen, ne_d, e_d, pars_f, type_f, en_fio):
+	Likewise.
+	* libI77/iio.c (z_getc, z_rnew, c_si, z_wnew): Likewise.
+	* libI77/lread.c (t_getc, c_le, l_read): Likewise.
+	* libI77/lwrite.c (l_write): Likewise.
+	* libI77/open.c (fk_open): Likewise.
+	* libI77/rdfmt.c (rd_ed, rd_ned): Likewise.
+	* libI77/rsfe.c (xrd_SL, x_getc, x_endp, x_rev): Likewise.
+	* libI77/rsne.c (t_getc, x_rsne): Likewise.
+	* libI77/sfe.c (c_sfe): Likewise.
+	* libI77/sue.c (c_sue): Likewise.
+	* libI77/uio.c (do_us): Likewise.
+	* libI77/wref.c (wrt_E, wrt_F): Likewise.
+	* libI77/wrtfmt.c (wrt_L, w_ed, w_ned): Likewise.
+
 Sun Jun  2 08:58:05 2002  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
 	* libI77/rdfmt.c (rd_I): Delete unused variable(s).

libf2c/libF77/main.c

@@ -14,6 +14,7 @@ extern int atexit (void (*)(void));
 extern void f_init (void);
 extern int MAIN__ (void);
 
+int
 main (int argc, char **argv)
 {
   f_setarg (argc, argv);

libf2c/libI77/dfe.c

@@ -3,6 +3,7 @@
 #include "fio.h"
 #include "fmt.h"
 
+int
 y_rsk (void)
 {
   if (f__curunit->uend || f__curunit->url <= f__recpos
@@ -16,6 +17,7 @@ y_rsk (void)
   return 0;
 }
 
+int
 y_getc (void)
 {
   int ch;
@@ -66,6 +68,7 @@ y_newrec (void)
   return (1);
 }
 
+int
 c_dfe (cilist * a)
 {
   f__sequential = 0;

libf2c/libI77/due.c

@@ -2,6 +2,7 @@
 #include "f2c.h"
 #include "fio.h"
 
+int
 c_due (cilist * a)
 {
   if (f__init != 1)

libf2c/libI77/err.c

@@ -75,6 +75,7 @@ char *F_err[] = {
 };
 #define MAXERR (sizeof(F_err)/sizeof(char *)+100)
 
+int
 f__canseek (FILE * f) /*SYSDEP*/
 {
 #ifdef NON_UNIX_STDIO
@@ -199,6 +200,7 @@ f_init (void)
   p->uwrt = 1;
 }
 
+int
 f__nowreading (unit * x)
 {
   off_t loc;
@@ -229,6 +231,7 @@ done:
   return 0;
 }
 
+int
 f__nowwriting (unit * x)
 {
   off_t loc;

libf2c/libI77/fmt.c

@@ -43,7 +43,7 @@ ap_end (char *s)
    /*NOTREACHED*/ return 0;
 }
 
-static
+static int
 op_gen (int a, int b, int c, int d)
 {
   struct syl *p = &f__syl[f__pc];
@@ -105,7 +105,7 @@ f_s (char *s, int curloc)
   return (s);
 }
 
-static
+static int
 ne_d (char *s, char **p)
 {
   int n, x, sign = 0;
@@ -228,7 +228,7 @@ ne_d (char *s, char **p)
   return (1);
 }
 
-static
+static int
 e_d (char *s, char **p)
 {
   int i, im, n, w, d, e, found = 0, x = 0;
@@ -405,6 +405,7 @@ f_list (char *s)
   return (NULL);
 }
 
+int
 pars_f (char *s)
 {
   char *e;
@@ -445,7 +446,7 @@ pars_f (char *s)
 int f__cnt[STKSZ], f__ret[STKSZ], f__cp, f__rp;
 flag f__workdone, f__nonl;
 
-static
+static int
 type_f (int n)
 {
   switch (n)
@@ -586,6 +587,7 @@ do_fio (ftnint * number, char *ptr, ftnlen len)
   return (0);
 }
 
+int
 en_fio (void)
 {
   ftnint one = 1;

libf2c/libI77/iio.c

@@ -6,6 +6,7 @@ char *f__icend;
 extern icilist *f__svic;
 int f__icnum;
 extern int f__hiwater;
+int
 z_getc (void)
 {
   if (f__recpos++ < f__svic->icirlen)
@@ -23,6 +24,7 @@ z_putc (int c)
   if (f__icptr < f__icend && f__recpos++ < f__svic->icirlen)
     *f__icptr++ = c;
 }
+int
 z_rnew (void)
 {
   f__icptr = f__svic->iciunit + (++f__icnum) * f__svic->icirlen;
@@ -39,6 +41,7 @@ z_endp (void)
   return 0;
 }
 
+int
 c_si (icilist * a)
 {
   if (f__init & 2)
@@ -88,6 +91,7 @@ s_rsfi (icilist * a)
   return (0);
 }
 
+int
 z_wnew (void)
 {
   if (f__recpos < f__hiwater)

libf2c/libI77/lread.c

@@ -65,6 +65,7 @@ un_getc (int x, FILE * f__cf)
 extern int ungetc (int, FILE *);	/* for systems with a buggy stdio.h */
 #endif
 
+int
 t_getc (void)
 {
   int ch;
@@ -662,6 +663,7 @@ have_lcount:
     }
 }
 
+int
 c_le (cilist * a)
 {
   if (f__init != 1)
@@ -682,6 +684,7 @@ c_le (cilist * a)
   return (0);
 }
 
+int
 l_read (ftnint * number, char *ptr, ftnlen len, ftnint type)
 {
 #define Ptr ((flex *)ptr)

libf2c/libI77/lwrite.c

@@ -207,6 +207,8 @@ lwrt_C (double a, double b)
   l_put (bb);
   PUT (')');
 }
+
+int
 l_write (ftnint * number, char *ptr, ftnlen len, ftnint type)
 {
 #define Ptr ((flex *)ptr)

libf2c/libI77/open.c

@@ -277,6 +277,7 @@ f_open (olist * a)
   return (0);
 }
 
+int
 fk_open (int seq, int fmt, ftnint n)
 {
   char nbuf[10];

libf2c/libI77/rdfmt.c

@@ -510,6 +510,7 @@ rd_POS (char *s)
   return (1);
 }
 
+int
 rd_ed (struct syl * p, char *ptr, ftnlen len)
 {
   int ch;
@@ -584,6 +585,7 @@ rd_ed (struct syl * p, char *ptr, ftnlen len)
   return (errno);
 }
 
+int
 rd_ned (struct syl * p)
 {
   switch (p->op)

libf2c/libI77/rsfe.c

@@ -4,6 +4,7 @@
 #include "fio.h"
 #include "fmt.h"
 
+int
 xrd_SL (void)
 {
   int ch;
@@ -18,6 +19,7 @@ xrd_SL (void)
   return (1);
 }
 
+int
 x_getc (void)
 {
   int ch;
@@ -43,12 +45,14 @@ x_getc (void)
   return (-1);
 }
 
+int
 x_endp (void)
 {
   xrd_SL ();
   return f__curunit->uend == 1 ? EOF : 0;
 }
 
+int
 x_rev (void)
 {
   (void) xrd_SL ();

libf2c/libI77/rsne.c

@@ -40,7 +40,7 @@ extern ftnlen f__typesize[];
 
 extern flag f__lquit;
 extern int f__lcount, nml_read;
-extern t_getc (void);
+extern int t_getc (void);
 
 #undef abs
 #undef min
@@ -262,6 +262,7 @@ print_ne (cilist * a)
 
 static char where0[] = "namelist read start ";
 
+int
 x_rsne (cilist * a)
 {
   int ch, got1, k, n, nd, quote, readall;

libf2c/libI77/sfe.c

@@ -15,6 +15,7 @@ e_rsfe (void)
   return (n);
 }
 
+int
 c_sfe (cilist * a)		/* check */
 {
   unit *p;

libf2c/libI77/sue.c

@@ -4,6 +4,7 @@
 extern uiolen f__reclen;
 off_t f__recloc;
 
+int
 c_sue (cilist * a)
 {
   f__external = f__sequential = 1;

libf2c/libI77/uio.c

@@ -3,6 +3,7 @@
 #include <sys/types.h>
 uiolen f__reclen;
 
+int
 do_us (ftnint * number, char *ptr, ftnlen len)
 {
   if (f__reading)

libf2c/libI77/wref.c

@@ -13,6 +13,7 @@
 #include "fmt.h"
 #include "fp.h"
 
+int
 wrt_E (ufloat * p, int w, int d, int e, ftnlen len)
 {
   char buf[FMAX + EXPMAXDIGS + 4], *s, *se;
@@ -203,6 +204,7 @@ wrt_E (ufloat * p, int w, int d, int e, ftnlen len)
   return 0;
 }
 
+int
 wrt_F (ufloat * p, int w, int d, ftnlen len)
 {
   int d1, sign, n;

libf2c/libI77/wrtfmt.c

@@ -247,6 +247,7 @@ wrt_H (int a, char *s)
   return (1);
 }
 
+int
 wrt_L (Uint * n, int len, ftnlen sz)
 {
   int i;
@@ -320,6 +321,7 @@ wrt_G (ufloat * p, int w, int d, int e, ftnlen len)
   return (wrt_E (p, w, d, e, len));
 }
 
+int
 w_ed (struct syl * p, char *ptr, ftnlen len)
 {
   int i;
@@ -369,6 +371,7 @@ w_ed (struct syl * p, char *ptr, ftnlen len)
     }
 }
 
+int
 w_ned (struct syl * p)
 {
   switch (p->op)