*: Fix formatting.

	* libF77/*: Fix formatting.
	* libI77/*: Likewise.
	* libU77/*: Likewise.

From-SVN: r54145

52 files changed, 542 insertions, 397 deletions

diff --git a/libf2c/libU77/access_.c b/libf2c/libU77/access_.c
index a2439e8..02dcd51 100644
--- a/libf2c/libU77/access_.c
+++ b/libf2c/libU77/access_.c
@@ -45,27 +45,40 @@ Boston, MA 02111-1307, USA.  */
 #  define F_OK 0
 #endif
 
-void g_char(const char *a, ftnlen alen, char *b);
+void g_char (const char *a, ftnlen alen, char *b);
 
-integer G77_access_0 (const char *name, const char *mode, ftnlen Lname, ftnlen Lmode)
+integer
+G77_access_0 (const char *name, const char *mode, ftnlen Lname, ftnlen Lmode)
 {
   char *buff;
   char *bp, *blast;
   int amode, i;
 
-  buff = malloc (Lname+1);
-  if (!buff) return -1;
+  buff = malloc (Lname + 1);
+  if (!buff)
+    return -1;
   g_char (name, Lname, buff);
   amode = 0;
-  for (i=0;i<Lmode;i++) {
-    switch (mode[i]) {
-    case 'r': amode |= R_OK; break;
-    case 'w': amode |= W_OK; break;
-    case 'x': amode |= X_OK; break;
-    case ' ': amode |= F_OK; break; /* as per Sun, at least */
-    default: return EINVAL;
+  for (i = 0; i < Lmode; i++)
+    {
+      switch (mode[i])
+	{
+	case 'r':
+	  amode |= R_OK;
+	  break;
+	case 'w':
+	  amode |= W_OK;
+	  break;
+	case 'x':
+	  amode |= X_OK;
+	  break;
+	case ' ':
+	  amode |= F_OK;
+	  break;		/* as per Sun, at least */
+	default:
+	  return EINVAL;
+	}
     }
-  }
   i = access (buff, amode);
   free (buff);
   return i;
diff --git a/libf2c/libU77/alarm_.c b/libf2c/libU77/alarm_.c
index fd3842a..d2c9382 100644
--- a/libf2c/libU77/alarm_.c
+++ b/libf2c/libU77/alarm_.c
@@ -31,20 +31,21 @@ Boston, MA 02111-1307, USA.  */
 /* we shouldn't rely on this... */
 #define RETSIGTYPE void
 #endif
-typedef RETSIGTYPE (*sig_type)();
+typedef RETSIGTYPE (*sig_type) ();
 
 #include <signal.h>
-typedef int (*sig_proc)(int);
+typedef int (*sig_proc) (int);
 
 #ifndef SIG_ERR
 #define SIG_ERR ((sig_type) -1)
 #endif
 
-integer G77_alarm_0 (integer *seconds, sig_proc proc)
+integer
+G77_alarm_0 (integer * seconds, sig_proc proc)
 {
   int status;
 #if defined (HAVE_ALARM) && defined (SIGALRM)
-  if (signal(SIGALRM, (sig_type)proc) == SIG_ERR)
+  if (signal (SIGALRM, (sig_type) proc) == SIG_ERR)
     status = -1;
   else
     status = alarm (*seconds);
diff --git a/libf2c/libU77/bes.c b/libf2c/libU77/bes.c
index 442337f..73373fd 100644
--- a/libf2c/libU77/bes.c
+++ b/libf2c/libU77/bes.c
@@ -16,31 +16,43 @@ License along with GNU Fortran; see the file COPYING.LIB.  If
 not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 Boston, MA 02111-1307, USA.  */
 
-#if 0 	/* Don't include these unless necessary -- jcb. */
+#if 0				/* Don't include these unless necessary -- jcb. */
 #include "f2c.h"
 #include <math.h>
 
-double G77_besj0_0 (const real *x) {
-    return j0 (*x);
+double
+G77_besj0_0 (const real * x)
+{
+  return j0 (*x);
 }
 
-double G77_besj1_0 (const real *x) {
-    return j1 (*x);
+double
+G77_besj1_0 (const real * x)
+{
+  return j1 (*x);
 }
 
-double G77_besjn_0 (const integer *n, real *x) {
-     return jn (*n, *x);
- }
+double
+G77_besjn_0 (const integer * n, real * x)
+{
+  return jn (*n, *x);
+}
 
-double G77_besy0_0 (const real *x) {
-    return y0 (*x);
+double
+G77_besy0_0 (const real * x)
+{
+  return y0 (*x);
 }
 
-double G77_besy1_0 (const real *x) {
-    return y1 (*x);
+double
+G77_besy1_0 (const real * x)
+{
+  return y1 (*x);
 }
 
-double G77_besyn_0 (const integer *n, real *x) {
-    return yn (*n, *x);
+double
+G77_besyn_0 (const integer * n, real * x)
+{
+  return yn (*n, *x);
 }
 #endif
diff --git a/libf2c/libU77/chdir_.c b/libf2c/libU77/chdir_.c
index a071a6d..d9afb57 100644
--- a/libf2c/libU77/chdir_.c
+++ b/libf2c/libU77/chdir_.c
@@ -32,16 +32,18 @@ Boston, MA 02111-1307, USA.  */
 #include "f2c.h"
 
 
-void g_char(const char *a, ftnlen alen, char *b);
+void g_char (const char *a, ftnlen alen, char *b);
 
-integer G77_chdir_0 (const char *name, const ftnlen Lname)
+integer
+G77_chdir_0 (const char *name, const ftnlen Lname)
 {
   char *buff;
   char *bp, *blast;
   int i;
 
-  buff = malloc (Lname+1);
-  if (!buff) return -1;
+  buff = malloc (Lname + 1);
+  if (!buff)
+    return -1;
   g_char (name, Lname, buff);
   i = chdir (buff);
   free (buff);
diff --git a/libf2c/libU77/chmod_.c b/libf2c/libU77/chmod_.c
index dfe0d36..554d259 100644
--- a/libf2c/libU77/chmod_.c
+++ b/libf2c/libU77/chmod_.c
@@ -41,10 +41,13 @@ Boston, MA 02111-1307, USA.  */
 #define CHMOD_PATH "/bin/chmod"
 #endif
 
-extern void s_cat(char *lp, char *rpp[], ftnlen rnp[], ftnlen *np, ftnlen ll);
-void g_char(const char *a, ftnlen alen, char *b);
+extern void s_cat (char *lp, char *rpp[], ftnlen rnp[], ftnlen * np,
+		   ftnlen ll);
+void g_char (const char *a, ftnlen alen, char *b);
 
-integer G77_chmod_0 (/* const */ char *name, /* const */ char *mode, const ftnlen Lname, const ftnlen Lmode)
+integer
+G77_chmod_0 ( /* const */ char *name, /* const */ char *mode,
+	     const ftnlen Lname, const ftnlen Lmode)
 {
   char *buff;
   char *bp, *blast;
@@ -53,20 +56,27 @@ integer G77_chmod_0 (/* const */ char *name, /* const */ char *mode, const ftnle
   ftnlen six = 6;
   address a[6];
   ftnlen ii[6];
-  char chmod_path [] = CHMOD_PATH;
+  char chmod_path[] = CHMOD_PATH;
   l = strlen (chmod_path);
-  buff = malloc (Lname+Lmode+l+3+13+1);
-  if (!buff) return -1;
-  ii[0] = l; a[0] = chmod_path;
-  ii[1] = 1; a[1] = " ";
-  ii[2] = Lmode; a[2] = mode;
-  ii[3] = 2; a[3] = " '";
-  for (l2=Lname; (l2 > 1) && (name[l2-1] == ' '); )
+  buff = malloc (Lname + Lmode + l + 3 + 13 + 1);
+  if (!buff)
+    return -1;
+  ii[0] = l;
+  a[0] = chmod_path;
+  ii[1] = 1;
+  a[1] = " ";
+  ii[2] = Lmode;
+  a[2] = mode;
+  ii[3] = 2;
+  a[3] = " '";
+  for (l2 = Lname; (l2 > 1) && (name[l2 - 1] == ' ');)
     l2--;
-  ii[4] = l2; a[4] = name;
-  ii[5] = 13; a[5] = "' 2>/dev/null";
-  s_cat (buff, a, ii, &six, Lname+Lmode+l+3+13);
-  buff[Lname+Lmode+l+3+13] = '\0';
+  ii[4] = l2;
+  a[4] = name;
+  ii[5] = 13;
+  a[5] = "' 2>/dev/null";
+  s_cat (buff, a, ii, &six, Lname + Lmode + l + 3 + 13);
+  buff[Lname + Lmode + l + 3 + 13] = '\0';
   i = system (buff);
   free (buff);
   return i;
diff --git a/libf2c/libU77/ctime_.c b/libf2c/libU77/ctime_.c
index c80f6f68..34e6d7c 100644
--- a/libf2c/libU77/ctime_.c
+++ b/libf2c/libU77/ctime_.c
@@ -39,7 +39,8 @@ Boston, MA 02111-1307, USA.  */
 
 /* may need sys/time.h & long arg for stime (bsd, svr1-3) */
 
-/* Character */ void G77_ctime_0 (char *chtime, const ftnlen Lchtime, longint * xstime)
+/* Character */ void
+G77_ctime_0 (char *chtime, const ftnlen Lchtime, longint * xstime)
 {
   int i, l;
   int s_copy ();
diff --git a/libf2c/libU77/date_.c b/libf2c/libU77/date_.c
index ca94797..fffbe20 100644
--- a/libf2c/libU77/date_.c
+++ b/libf2c/libU77/date_.c
@@ -9,47 +9,47 @@
 
 static integer c__5 = 5;
 
-/* Subroutine */ int G77_date_y2kbug_0 (char *buf, ftnlen buf_len)
+/* Subroutine */ int
+G77_date_y2kbug_0 (char *buf, ftnlen buf_len)
 {
-    /* System generated locals */
-    address a__1[5];
-    longint i__1;
-    integer i__2[5];
-    char ch__1[24];
-
-    /* Builtin functions */
-    /* Subroutine */ int s_copy(), s_cat();
-
-    /* Local variables */
-    static char cbuf[24];
-    extern longint G77_time_0 ();
-    extern /* Character */ void G77_ctime_0 ();
-
-    i__1 = G77_time_0 ();
-    G77_ctime_0 (ch__1, 24L, &i__1);
-    s_copy(cbuf, ch__1, 24L, 24L);
+  /* System generated locals */
+  address a__1[5];
+  longint i__1;
+  integer i__2[5];
+  char ch__1[24];
+
+  /* Builtin functions */
+  /* Subroutine */ int s_copy (), s_cat ();
+
+  /* Local variables */
+  static char cbuf[24];
+  extern longint G77_time_0 ();
+  extern /* Character */ void G77_ctime_0 ();
+
+  i__1 = G77_time_0 ();
+  G77_ctime_0 (ch__1, 24L, &i__1);
+  s_copy (cbuf, ch__1, 24L, 24L);
 /* Writing concatenation */
-    i__2[0] = 2, a__1[0] = cbuf + 8;
-    i__2[1] = 1, a__1[1] = "-";
-    i__2[2] = 3, a__1[2] = cbuf + 4;
-    i__2[3] = 1, a__1[3] = "-";
-    i__2[4] = 2, a__1[4] = cbuf + 22;
-    s_cat(buf, a__1, i__2, &c__5, buf_len);
-    return 0;
-} /* date_ */
+  i__2[0] = 2, a__1[0] = cbuf + 8;
+  i__2[1] = 1, a__1[1] = "-";
+  i__2[2] = 3, a__1[2] = cbuf + 4;
+  i__2[3] = 1, a__1[3] = "-";
+  i__2[4] = 2, a__1[4] = cbuf + 22;
+  s_cat (buf, a__1, i__2, &c__5, buf_len);
+  return 0;
+}				/* date_ */
 
 #ifdef PIC
 #  include <stdio.h>
 
 const char *G77_Non_Y2K_Compliance_Message =
-   "Call to non Y2K compliant subroutine detected.";
+  "Call to non Y2K compliant subroutine detected.";
 
-int G77_date_y2kbuggy_0 (char *buf, ftnlen buf_len)
+int
+G77_date_y2kbuggy_0 (char *buf, ftnlen buf_len)
 {
-  extern int G77_abort_0();
+  extern int G77_abort_0 ();
   fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
-  G77_abort_0();
+  G77_abort_0 ();
 }
 #endif
-
-
diff --git a/libf2c/libU77/datetime_.c b/libf2c/libU77/datetime_.c
index 68fe411..40786ed 100644
--- a/libf2c/libU77/datetime_.c
+++ b/libf2c/libU77/datetime_.c
@@ -33,14 +33,15 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
-void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
+void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb);
 
-int G77_date_and_time_0 (char *date, char *fftime, char *zone,
-			 integer *values, ftnlen date_len,
-			 ftnlen fftime_len, ftnlen zone_len)
+int
+G77_date_and_time_0 (char *date, char *fftime, char *zone,
+		     integer * values, ftnlen date_len,
+		     ftnlen fftime_len, ftnlen zone_len)
 {
-  time_t lt=time(&lt);
-  struct tm ltime = *localtime(&lt), gtime = *gmtime(&lt);
+  time_t lt = time (&lt);
+  struct tm ltime = *localtime (&lt), gtime = *gmtime (&lt);
   char dat[9], zon[6], ftim[11];
   int i, vals[8];
 
@@ -49,18 +50,18 @@ int G77_date_and_time_0 (char *date, char *fftime, char *zone,
   vals[2] = ltime.tm_mday;
   /* fixme: year boundaries */
   vals[3] = (ltime.tm_min - gtime.tm_min +
-	     60*(ltime.tm_hour - gtime.tm_hour +
-		 24*(ltime.tm_yday -gtime.tm_yday)));
+	     60 * (ltime.tm_hour - gtime.tm_hour +
+		   24 * (ltime.tm_yday - gtime.tm_yday)));
   vals[4] = ltime.tm_hour;
   vals[5] = ltime.tm_min;
   vals[6] = ltime.tm_sec;
-  vals[7] = 0;                  /* no STDC/POSIX way to get this */
+  vals[7] = 0;			/* no STDC/POSIX way to get this */
   /* GNUish way; maybe use `ftime' on other systems. */
 #if HAVE_GETTIMEOFDAY
   {
     struct timeval tp;
 #  if GETTIMEOFDAY_ONE_ARGUMENT
-    if (! gettimeofday (&tp))
+    if (!gettimeofday (&tp))
 #  else
 #    if HAVE_STRUCT_TIMEZONE
     struct timezone tzp;
@@ -70,26 +71,28 @@ int G77_date_and_time_0 (char *date, char *fftime, char *zone,
        HPUX.  Configure checks if gettimeofday actually fails with a
        non-NULL arg and pretends that struct timezone is missing if it
        does fail.  */
-    if (! gettimeofday (&tp, &tzp))
+    if (!gettimeofday (&tp, &tzp))
 #    else
-    if (! gettimeofday (&tp, (void *) 0))
+    if (!gettimeofday (&tp, (void *) 0))
 #    endif /* HAVE_STRUCT_TIMEZONE */
 #  endif /* GETTIMEOFDAY_ONE_ARGUMENT */
-      vals[7] = tp.tv_usec/1000;
+      vals[7] = tp.tv_usec / 1000;
   }
 #endif /* HAVE_GETTIMEOFDAY */
   if (values)			/* null pointer for missing optional */
-    for (i=0; i<=7; i++)
+    for (i = 0; i <= 7; i++)
       values[i] = vals[i];
   sprintf (dat, "%04d%02d%02d", vals[0], vals[1], vals[2]);
-  s_copy(date, dat, date_len, 8);
-  if (zone) {
-    sprintf(zon, "%+03d%02d", vals[3] / 60, abs(vals[3] % 60));
-    s_copy(zone, zon, zone_len, 5);
-  }
-  if (fftime) {
-    sprintf (ftim, "%02d%02d%02d.%03d", vals[4], vals[5], vals[6], vals[7]);
-    s_copy(fftime, ftim, fftime_len, 10);
-  }
+  s_copy (date, dat, date_len, 8);
+  if (zone)
+    {
+      sprintf (zon, "%+03d%02d", vals[3] / 60, abs (vals[3] % 60));
+      s_copy (zone, zon, zone_len, 5);
+    }
+  if (fftime)
+    {
+      sprintf (ftim, "%02d%02d%02d.%03d", vals[4], vals[5], vals[6], vals[7]);
+      s_copy (fftime, ftim, fftime_len, 10);
+    }
   return 0;
 }
diff --git a/libf2c/libU77/dbes.c b/libf2c/libU77/dbes.c
index 1ef5978..8a31746 100644
--- a/libf2c/libU77/dbes.c
+++ b/libf2c/libU77/dbes.c
@@ -16,31 +16,43 @@ License along with GNU Fortran; see the file COPYING.LIB.  If
 not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 Boston, MA 02111-1307, USA.  */
 
-#if 0 	/* Don't include these unless necessary -- dnp. */
+#if 0				/* Don't include these unless necessary -- dnp. */
 #include "f2c.h"
 #include <math.h>
 
-double G77_dbesj0_0 (const double *x) {
-    return j0 (*x);
+double
+G77_dbesj0_0 (const double *x)
+{
+  return j0 (*x);
 }
 
-double G77_dbesj1_0 (const double *x) {
-    return j1 (*x);
+double
+G77_dbesj1_0 (const double *x)
+{
+  return j1 (*x);
 }
 
-double G77_dbesjn_0 (const integer *n, double *x) {
-     return jn (*n, *x);
- }
+double
+G77_dbesjn_0 (const integer * n, double *x)
+{
+  return jn (*n, *x);
+}
 
-double G77_dbesy0_0 (const double *x) {
-    return y0 (*x);
+double
+G77_dbesy0_0 (const double *x)
+{
+  return y0 (*x);
 }
 
-double G77_dbesy1_0 (const double *x) {
-    return y1 (*x);
+double
+G77_dbesy1_0 (const double *x)
+{
+  return y1 (*x);
 }
 
-double G77_dbesyn_0 (const integer *n, double *x) {
-    return yn (*n, *x);
+double
+G77_dbesyn_0 (const integer * n, double *x)
+{
+  return yn (*n, *x);
 }
 #endif
diff --git a/libf2c/libU77/dtime_.c b/libf2c/libU77/dtime_.c
index ab821d7..cc3961b 100644
--- a/libf2c/libU77/dtime_.c
+++ b/libf2c/libU77/dtime_.c
@@ -51,7 +51,8 @@ Boston, MA 02111-1307, USA.  */
    different to all others. */
 static long clk_tck = 0;
 
-double G77_dtime_0 (real tarray[2])
+double
+G77_dtime_0 (real tarray[2])
 {
 #if defined (_WIN32)
   static int win32_platform = -1;
@@ -63,7 +64,7 @@ double G77_dtime_0 (real tarray[2])
       GetVersionEx (&osv);
       win32_platform = osv.dwPlatformId;
     }
-  
+
   /* We need to use this hack on non-NT platforms, where the first call
      returns 0.0 and subsequent ones return the correct value. */
   if (win32_platform != VER_PLATFORM_WIN32_NT)
@@ -77,7 +78,7 @@ double G77_dtime_0 (real tarray[2])
       if (clock_freq == 0)
 	{
 	  LARGE_INTEGER freq;
-	  if (! QueryPerformanceFrequency (&freq))
+	  if (!QueryPerformanceFrequency (&freq))
 	    {
 	      errno = ENOSYS;
 	      return 0.0;
@@ -85,15 +86,15 @@ double G77_dtime_0 (real tarray[2])
 	  else
 	    {
 	      clock_freq = ((unsigned long long) freq.HighPart << 32)
-                           + ((unsigned) freq.LowPart);
+		+ ((unsigned) freq.LowPart);
 	    }
 	}
 
-      if (! QueryPerformanceCounter (&counter_val))
+      if (!QueryPerformanceCounter (&counter_val))
 	return -1.0;
 
       count = ((unsigned long long) counter_val.HighPart << 32)
-              + (unsigned) counter_val.LowPart;
+	+ (unsigned) counter_val.LowPart;
       delta = ((double) (count - old_count)) / clock_freq;
       tarray[0] = (float) delta;
       tarray[1] = 0.0;
@@ -107,10 +108,10 @@ double G77_dtime_0 (real tarray[2])
 
       GetProcessTimes (GetCurrentProcess (), &creation_time, &exit_time,
 		       &kernel_time, &user_time);
-      utime = ((unsigned long long) user_time.dwHighDateTime << 32) 
-	      + (unsigned) user_time.dwLowDateTime;
-      stime = ((unsigned long long) kernel_time.dwHighDateTime << 32) 
-	      + (unsigned) kernel_time.dwLowDateTime;
+      utime = ((unsigned long long) user_time.dwHighDateTime << 32)
+	+ (unsigned) user_time.dwLowDateTime;
+      stime = ((unsigned long long) kernel_time.dwHighDateTime << 32)
+	+ (unsigned) kernel_time.dwLowDateTime;
 
       tarray[0] = (utime - old_utime) / 1.0e7;
       tarray[1] = (stime - old_stime) / 1.0e7;
@@ -126,15 +127,15 @@ double G77_dtime_0 (real tarray[2])
   static float old_utime = 0.0, old_stime = 0.0;
   struct rusage rbuff;
 
-   if (getrusage (RUSAGE_SELF, &rbuff) != 0)
-     abort ();
-   utime = (float) (rbuff.ru_utime).tv_sec +
-	   (float) (rbuff.ru_utime).tv_usec/1000000.0;
-   tarray[0] = utime - (float) old_utime;
-   stime = (float) (rbuff.ru_stime).tv_sec +
-	   (float) (rbuff.ru_stime).tv_usec/1000000.0;
+  if (getrusage (RUSAGE_SELF, &rbuff) != 0)
+    abort ();
+  utime = (float) (rbuff.ru_utime).tv_sec +
+    (float) (rbuff.ru_utime).tv_usec / 1000000.0;
+  tarray[0] = utime - (float) old_utime;
+  stime = (float) (rbuff.ru_stime).tv_sec +
+    (float) (rbuff.ru_stime).tv_usec / 1000000.0;
   tarray[1] = stime - old_stime;
-#else  /* HAVE_GETRUSAGE */
+#else /* HAVE_GETRUSAGE */
   time_t utime, stime;
   static time_t old_utime = 0, old_stime = 0;
   struct tms buffer;
@@ -142,24 +143,31 @@ double G77_dtime_0 (real tarray[2])
 /* NeXTStep seems to define _SC_CLK_TCK but not to have sysconf;
    fixme: does using _POSIX_VERSION help? */
 #  if defined _SC_CLK_TCK && defined _POSIX_VERSION
-  if (! clk_tck) clk_tck = sysconf(_SC_CLK_TCK);
+  if (!clk_tck)
+    clk_tck = sysconf (_SC_CLK_TCK);
 #  elif defined CLOCKS_PER_SECOND
-  if (! clk_tck) clk_tck = CLOCKS_PER_SECOND;
+  if (!clk_tck)
+    clk_tck = CLOCKS_PER_SECOND;
 #  elif defined CLK_TCK
-  if (! clk_tck) clk_tck = CLK_TCK;
+  if (!clk_tck)
+    clk_tck = CLK_TCK;
 #  elif defined HZ
-  if (! clk_tck) clk_tck = HZ;
+  if (!clk_tck)
+    clk_tck = HZ;
 #  elif defined HAVE_GETRUSAGE
 #  else
-  #error Dont know clock tick length
+#error Dont know clock tick length
 #  endif
-  if (times(&buffer) == (clock_t)-1) return -1.0;
-  utime = buffer.tms_utime; stime = buffer.tms_stime;
-  tarray[0] = ((float)(utime - old_utime)) / (float)clk_tck;
-  tarray[1] = ((float)(stime - old_stime)) / (float)clk_tck;
+  if (times (&buffer) == (clock_t) - 1)
+    return -1.0;
+  utime = buffer.tms_utime;
+  stime = buffer.tms_stime;
+  tarray[0] = ((float) (utime - old_utime)) / (float) clk_tck;
+  tarray[1] = ((float) (stime - old_stime)) / (float) clk_tck;
 #endif /* HAVE_GETRUSAGE */
-  old_utime = utime; old_stime = stime;
-  return (tarray[0]+tarray[1]);
+  old_utime = utime;
+  old_stime = stime;
+  return (tarray[0] + tarray[1]);
 #else /* ! HAVE_GETRUSAGE && ! HAVE_TIMES */
   errno = ENOSYS;
   return 0.0;
diff --git a/libf2c/libU77/etime_.c b/libf2c/libU77/etime_.c
index b613e89..f942ea8 100644
--- a/libf2c/libU77/etime_.c
+++ b/libf2c/libU77/etime_.c
@@ -51,7 +51,8 @@ Boston, MA 02111-1307, USA.  */
    different to all others. */
 static long clk_tck = 0;
 
-double G77_etime_0 (real tarray[2])
+double
+G77_etime_0 (real tarray[2])
 {
 #if defined (_WIN32)
   static int win32_platform = -1;
@@ -64,7 +65,7 @@ double G77_etime_0 (real tarray[2])
       GetVersionEx (&osv);
       win32_platform = osv.dwPlatformId;
     }
-  
+
   /* non-NT platforms don't have a clue as to how long a process has
      been running, so simply return the uptime. Bad judgement call? */
   if (win32_platform != VER_PLATFORM_WIN32_NT)
@@ -77,7 +78,7 @@ double G77_etime_0 (real tarray[2])
       if (clock_freq == 0)
 	{
 	  LARGE_INTEGER freq;
-	  if (! QueryPerformanceFrequency (&freq))
+	  if (!QueryPerformanceFrequency (&freq))
 	    {
 	      errno = ENOSYS;
 	      return 0.0;
@@ -85,19 +86,19 @@ double G77_etime_0 (real tarray[2])
 	  else
 	    {
 	      clock_freq = ((unsigned long long) freq.HighPart << 32)
-                           + ((unsigned) freq.LowPart);
-	      if (! QueryPerformanceCounter (&counter_val))
+		+ ((unsigned) freq.LowPart);
+	      if (!QueryPerformanceCounter (&counter_val))
 		return -1.0;
 	      old_count = ((unsigned long long) counter_val.HighPart << 32)
-	                  + (unsigned) counter_val.LowPart;
+		+ (unsigned) counter_val.LowPart;
 	    }
 	}
 
-      if (! QueryPerformanceCounter (&counter_val))
+      if (!QueryPerformanceCounter (&counter_val))
 	return -1.0;
 
       count = ((unsigned long long) counter_val.HighPart << 32)
-              + (unsigned) counter_val.LowPart;
+	+ (unsigned) counter_val.LowPart;
       tarray[0] = usertime = (double) (count - old_count) / clock_freq;
       tarray[1] = systime = 0.0;
     }
@@ -109,13 +110,13 @@ double G77_etime_0 (real tarray[2])
       GetProcessTimes (GetCurrentProcess (), &creation_time, &exit_time,
 		       &kernel_time, &user_time);
       utime = ((unsigned long long) user_time.dwHighDateTime << 32)
-	      + (unsigned) user_time.dwLowDateTime;
+	+ (unsigned) user_time.dwLowDateTime;
       stime = ((unsigned long long) kernel_time.dwHighDateTime << 32)
-	      + (unsigned) kernel_time.dwLowDateTime;
+	+ (unsigned) kernel_time.dwLowDateTime;
 
       tarray[0] = usertime = utime / 1.0e7;
       tarray[1] = systime = stime / 1.0e7;
-  }
+    }
   return usertime + systime;
 
 #elif defined (HAVE_GETRUSAGE) || defined (HAVE_TIMES)
@@ -123,34 +124,39 @@ double G77_etime_0 (real tarray[2])
 #ifdef HAVE_GETRUSAGE
   struct rusage rbuff;
 
-   if (getrusage (RUSAGE_SELF, &rbuff) != 0)
-     abort ();
-   tarray[0] = ((float) (rbuff.ru_utime).tv_sec +
-	       (float) (rbuff.ru_utime).tv_usec/1000000.0);
-   tarray[1] = ((float) (rbuff.ru_stime).tv_sec +
-	       (float) (rbuff.ru_stime).tv_usec/1000000.0);
-#else  /* HAVE_GETRUSAGE */
+  if (getrusage (RUSAGE_SELF, &rbuff) != 0)
+    abort ();
+  tarray[0] = ((float) (rbuff.ru_utime).tv_sec +
+	       (float) (rbuff.ru_utime).tv_usec / 1000000.0);
+  tarray[1] = ((float) (rbuff.ru_stime).tv_sec +
+	       (float) (rbuff.ru_stime).tv_usec / 1000000.0);
+#else /* HAVE_GETRUSAGE */
   struct tms buffer;
 
 /* NeXTStep seems to define _SC_CLK_TCK but not to have sysconf;
    fixme: does using _POSIX_VERSION help? */
 #  if defined _SC_CLK_TCK && defined _POSIX_VERSION
-  if (! clk_tck) clk_tck = sysconf(_SC_CLK_TCK);
+  if (!clk_tck)
+    clk_tck = sysconf (_SC_CLK_TCK);
 #  elif defined CLOCKS_PER_SECOND
-  if (! clk_tck) clk_tck = CLOCKS_PER_SECOND;
+  if (!clk_tck)
+    clk_tck = CLOCKS_PER_SECOND;
 #  elif defined CLK_TCK
-  if (! clk_tck) clk_tck = CLK_TCK;
+  if (!clk_tck)
+    clk_tck = CLK_TCK;
 #  elif defined HZ
-  if (! clk_tck) clk_tck = HZ;
+  if (!clk_tck)
+    clk_tck = HZ;
 #  elif defined HAVE_GETRUSAGE
 #  else
-  #error Dont know clock tick length
+#error Dont know clock tick length
 #  endif
-  if (times(&buffer) == (clock_t)-1) return -1.0;
-  tarray[0] = (float) buffer.tms_utime / (float)clk_tck;
-  tarray[1] = (float) buffer.tms_stime / (float)clk_tck;
+  if (times (&buffer) == (clock_t) - 1)
+    return -1.0;
+  tarray[0] = (float) buffer.tms_utime / (float) clk_tck;
+  tarray[1] = (float) buffer.tms_stime / (float) clk_tck;
 #endif /* HAVE_GETRUSAGE */
-  return (tarray[0]+tarray[1]);
+  return (tarray[0] + tarray[1]);
 #else /* ! HAVE_GETRUSAGE && ! HAVE_TIMES */
   errno = ENOSYS;
   return 0.0;
diff --git a/libf2c/libU77/fdate_.c b/libf2c/libU77/fdate_.c
index a0bc983..d710a5c 100644
--- a/libf2c/libU77/fdate_.c
+++ b/libf2c/libU77/fdate_.c
@@ -43,12 +43,13 @@ Boston, MA 02111-1307, USA.  */
    also a subroutine version.  Of course, the calling convention is
    essentially the same for both. */
 
-/* Character *24 */ void G77_fdate_0 (char *ret_val, ftnlen ret_val_len)
+/* Character *24 */ void
+G77_fdate_0 (char *ret_val, ftnlen ret_val_len)
 {
-    int s_copy ();
-    time_t tloc;
-    tloc = time (NULL);
-    /* Allow a length other than 24 for compatibility with what other
-       systems do, despite it being documented as 24. */
-    s_copy (ret_val, ctime ((time_t *) &tloc), ret_val_len, 24);
+  int s_copy ();
+  time_t tloc;
+  tloc = time (NULL);
+  /* Allow a length other than 24 for compatibility with what other
+     systems do, despite it being documented as 24. */
+  s_copy (ret_val, ctime ((time_t *) & tloc), ret_val_len, 24);
 }
diff --git a/libf2c/libU77/fgetc_.c b/libf2c/libU77/fgetc_.c
index 66a3e2d..ec94829 100644
--- a/libf2c/libU77/fgetc_.c
+++ b/libf2c/libU77/fgetc_.c
@@ -26,30 +26,36 @@ Boston, MA 02111-1307, USA.  */
 #include "f2c.h"
 #include "fio.h"
 
-integer G77_fgetc_0 (const integer *lunit, char *c, ftnlen Lc)
+integer
+G77_fgetc_0 (const integer * lunit, char *c, ftnlen Lc)
 {
   int err;
   FILE *f = f__units[*lunit].ufd;
 
-  if (*lunit>=MXUNIT || *lunit<0)
+  if (*lunit >= MXUNIT || *lunit < 0)
     return 101;			/* bad unit error */
   err = getc (f);
-  if (err == EOF) {
-    if (feof (f))
-      return -1;
-    else
-      return ferror (f); }
-  else {
-    if (Lc == 0)
+  if (err == EOF)
+    {
+      if (feof (f))
+	return -1;
+      else
+	return ferror (f);
+    }
+  else
+    {
+      if (Lc == 0)
+	return 0;
+
+      c[0] = err;
+      while (--Lc)
+	*++c = ' ';
       return 0;
-
-    c[0] = err;
-    while (--Lc)
-      *++c = ' ';
-    return 0; }
+    }
 }
 
-integer G77_fget_0 (char *c, const ftnlen Lc)
+integer
+G77_fget_0 (char *c, const ftnlen Lc)
 {
   integer five = 5;
 
diff --git a/libf2c/libU77/flush1_.c b/libf2c/libU77/flush1_.c
index 71b09c7..7327593 100644
--- a/libf2c/libU77/flush1_.c
+++ b/libf2c/libU77/flush1_.c
@@ -27,13 +27,14 @@ Boston, MA 02111-1307, USA.  */
 
 extern integer G77_fnum_0 (integer *);
 
-/* Subroutine */ int G77_flush1_0 (const integer *lunit)
+/* Subroutine */ int
+G77_flush1_0 (const integer * lunit)
 {
-  if (*lunit>=MXUNIT || *lunit<0)
-    err(1,101,"flush");
+  if (*lunit >= MXUNIT || *lunit < 0)
+    err (1, 101, "flush");
   /* f__units is a table of descriptions for the unit numbers (defined
      in io.h) with file descriptors rather than streams */
   if (f__units[*lunit].ufd != NULL && f__units[*lunit].uwrt)
-    fflush(f__units[*lunit].ufd);
+    fflush (f__units[*lunit].ufd);
   return 0;
 }
diff --git a/libf2c/libU77/fnum_.c b/libf2c/libU77/fnum_.c
index cdd3399..daf8f3d 100644
--- a/libf2c/libU77/fnum_.c
+++ b/libf2c/libU77/fnum_.c
@@ -22,12 +22,13 @@ Boston, MA 02111-1307, USA.  */
 #include "f2c.h"
 #include "fio.h"
 
-integer G77_fnum_0 (integer *lunit)
+integer
+G77_fnum_0 (integer * lunit)
 {
-  if (*lunit>=MXUNIT || *lunit<0)
-    err(1,101,"fnum");
+  if (*lunit >= MXUNIT || *lunit < 0)
+    err (1, 101, "fnum");
   /* f__units is a table of descriptions for the unit numbers (defined
      in io.h).  Use file descriptor (ufd) and fileno rather than udev
      field since udev is unix specific */
-  return fileno(f__units[*lunit].ufd);
+  return fileno (f__units[*lunit].ufd);
 }
diff --git a/libf2c/libU77/fputc_.c b/libf2c/libU77/fputc_.c
index fe527e5..0a878bd 100644
--- a/libf2c/libU77/fputc_.c
+++ b/libf2c/libU77/fputc_.c
@@ -26,25 +26,28 @@ Boston, MA 02111-1307, USA.  */
 #include "f2c.h"
 #include "fio.h"
 
-integer G77_fputc_0 (const integer *lunit, const char *c, const ftnlen Lc)
+integer
+G77_fputc_0 (const integer * lunit, const char *c, const ftnlen Lc)
 {
   int err;
   FILE *f = f__units[*lunit].ufd;
 
-  if (*lunit>=MXUNIT || *lunit<0)
+  if (*lunit >= MXUNIT || *lunit < 0)
     return 101;			/* bad unit error */
   err = putc (c[0], f);
-  if (err == EOF) {
-    if (feof (f))
-      return -1;
-    else
-      return ferror (f);
-  }
+  if (err == EOF)
+    {
+      if (feof (f))
+	return -1;
+      else
+	return ferror (f);
+    }
   else
     return 0;
 }
 
-integer G77_fput_0 (const char *c, const ftnlen Lc)
+integer
+G77_fput_0 (const char *c, const ftnlen Lc)
 {
   integer six = 6;
 
diff --git a/libf2c/libU77/fstat_.c b/libf2c/libU77/fstat_.c
index cf64d4e..e978c6a 100644
--- a/libf2c/libU77/fstat_.c
+++ b/libf2c/libU77/fstat_.c
@@ -28,7 +28,8 @@ Boston, MA 02111-1307, USA.  */
 
 extern integer G77_fnum_0 (const integer *);
 
-integer G77_fstat_0 (const integer *lunit, integer statb[13])
+integer
+G77_fstat_0 (const integer * lunit, integer statb[13])
 {
   int err;
   struct stat buf;
diff --git a/libf2c/libU77/gerror_.c b/libf2c/libU77/gerror_.c
index 61c0052..252440d 100644
--- a/libf2c/libU77/gerror_.c
+++ b/libf2c/libU77/gerror_.c
@@ -29,15 +29,16 @@ Boston, MA 02111-1307, USA.  */
 #include "f2c.h"
 
 #ifndef HAVE_STRERROR
-     extern char *sys_errlist [];
+extern char *sys_errlist[];
 #    define strerror(i) (sys_errlist[i])
 #endif
-extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
-/* Subroutine */ int G77_gerror_0 (char *str, ftnlen Lstr)
+extern void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb);
+/* Subroutine */ int
+G77_gerror_0 (char *str, ftnlen Lstr)
 {
-  char * s;
+  char *s;
 
-  s = strerror(errno);
+  s = strerror (errno);
   s_copy (str, s, Lstr, strlen (s));
   return 0;
 }
diff --git a/libf2c/libU77/getcwd_.c b/libf2c/libU77/getcwd_.c
index 4b1c8a9..75277af 100644
--- a/libf2c/libU77/getcwd_.c
+++ b/libf2c/libU77/getcwd_.c
@@ -34,20 +34,22 @@ Boston, MA 02111-1307, USA.  */
 #ifdef HAVE_UNISTD_H
 #  include <unistd.h>
 #else
-  extern char *getcwd ();
+extern char *getcwd ();
 #endif
 
-extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
-integer G77_getcwd_0 (char *str, const ftnlen Lstr)
+extern void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb);
+integer
+G77_getcwd_0 (char *str, const ftnlen Lstr)
 {
-    int i;
-    char *ret;
+  int i;
+  char *ret;
 
-    ret = getcwd (str, Lstr);
-    if (ret == NULL) return errno;
-    for (i=strlen(str); i<Lstr; i++)
-	str[i] = ' ';
-    return 0;
+  ret = getcwd (str, Lstr);
+  if (ret == NULL)
+    return errno;
+  for (i = strlen (str); i < Lstr; i++)
+    str[i] = ' ';
+  return 0;
 }
 
 #elif HAVE_GETWD		/* HAVE_GETCWD */
@@ -55,25 +57,30 @@ integer G77_getcwd_0 (char *str, const ftnlen Lstr)
 /* getwd usage taken from SunOS4 man */
 
 #  include <sys/param.h>
-  extern char *getwd ();
-extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
-integer G77_getcwd_0 (char *str, const ftnlen Lstr)
+extern char *getwd ();
+extern void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb);
+integer
+G77_getcwd_0 (char *str, const ftnlen Lstr)
 {
   char pathname[MAXPATHLEN];
   size_t l;
 
-  if (getwd (pathname) == NULL) {
-    return errno;
-  } else {
-    s_copy (str, pathname, Lstr, strlen (str));
-    return 0;
-  }
+  if (getwd (pathname) == NULL)
+    {
+      return errno;
+    }
+  else
+    {
+      s_copy (str, pathname, Lstr, strlen (str));
+      return 0;
+    }
 }
 
-#else  /* !HAVE_GETWD && !HAVE_GETCWD */
+#else /* !HAVE_GETWD && !HAVE_GETCWD */
 
-extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
-integer G77_getcwd_0 (char *str, const ftnlen Lstr)
+extern void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb);
+integer
+G77_getcwd_0 (char *str, const ftnlen Lstr)
 {
   return errno = ENOSYS;
 }
diff --git a/libf2c/libU77/getgid_.c b/libf2c/libU77/getgid_.c
index b831fc2..7dcbdf8 100644
--- a/libf2c/libU77/getgid_.c
+++ b/libf2c/libU77/getgid_.c
@@ -26,7 +26,8 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>		/* for ENOSYS */
 #include "f2c.h"
 
-integer G77_getgid_0 (void)
+integer
+G77_getgid_0 (void)
 {
 #if defined (HAVE_GETGID)
   return getgid ();
diff --git a/libf2c/libU77/getlog_.c b/libf2c/libU77/getlog_.c
index 9831014..94c5f41 100644
--- a/libf2c/libU77/getlog_.c
+++ b/libf2c/libU77/getlog_.c
@@ -41,8 +41,9 @@ Boston, MA 02111-1307, USA.  */
 
 /* SGI also has character*(*) function getlog() */
 
-extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
-/* Subroutine */ int G77_getlog_0 (char *str, const ftnlen Lstr)
+extern void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb);
+/* Subroutine */ int
+G77_getlog_0 (char *str, const ftnlen Lstr)
 {
   size_t i;
   char *p;
@@ -50,12 +51,15 @@ extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
 
 #if defined (HAVE_GETLOGIN)
   p = getlogin ();
-  if (p != NULL) {
-    i = strlen (p);
-    s_copy (str, p, Lstr, i);
-  } else {
-    s_copy (str, " ", Lstr, 1);
-  }
+  if (p != NULL)
+    {
+      i = strlen (p);
+      s_copy (str, p, Lstr, i);
+    }
+  else
+    {
+      s_copy (str, " ", Lstr, 1);
+    }
   status = 0;
 #else
   errno = ENOSYS;
diff --git a/libf2c/libU77/getpid_.c b/libf2c/libU77/getpid_.c
index c31cc04..6f1d8d7 100644
--- a/libf2c/libU77/getpid_.c
+++ b/libf2c/libU77/getpid_.c
@@ -25,7 +25,8 @@ Boston, MA 02111-1307, USA.  */
 #include <sys/types.h>
 #include "f2c.h"
 
-integer G77_getpid_0 (void)
+integer
+G77_getpid_0 (void)
 {
   return getpid ();
 }
diff --git a/libf2c/libU77/getuid_.c b/libf2c/libU77/getuid_.c
index 7db9c59..d88b8e2 100644
--- a/libf2c/libU77/getuid_.c
+++ b/libf2c/libU77/getuid_.c
@@ -26,7 +26,8 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>		/* for ENOSYS */
 #include "f2c.h"
 
-integer G77_getuid_0 (void)
+integer
+G77_getuid_0 (void)
 {
 #if defined (HAVE_GETUID)
   return getuid ();
diff --git a/libf2c/libU77/gmtime_.c b/libf2c/libU77/gmtime_.c
index 0c4e6a9..9de3c5a 100644
--- a/libf2c/libU77/gmtime_.c
+++ b/libf2c/libU77/gmtime_.c
@@ -33,7 +33,8 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
-/* Subroutine */ int G77_gmtime_0 (const integer * xstime, integer tarray[9])
+/* Subroutine */ int
+G77_gmtime_0 (const integer * xstime, integer tarray[9])
 {
   struct tm *lt;
   time_t stime = *xstime;
diff --git a/libf2c/libU77/hostnm_.c b/libf2c/libU77/hostnm_.c
index fd717b9..7f511f4 100644
--- a/libf2c/libU77/hostnm_.c
+++ b/libf2c/libU77/hostnm_.c
@@ -30,20 +30,22 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>		/* for ENOSYS */
 #include "f2c.h"
 
-integer G77_hostnm_0 (char *name, ftnlen Lname)
+integer
+G77_hostnm_0 (char *name, ftnlen Lname)
 {
-    int ret, i;
+  int ret, i;
 
 #if HAVE_GETHOSTNAME
-    ret = gethostname (name, Lname);
-    if (ret==0) {
-	/* Pad with blanks (assuming gethostname will make an error
-           return if it can't fit in the null). */
-	for (i=strlen(name); i<Lname; i++)
-	    name[i] = ' ';
+  ret = gethostname (name, Lname);
+  if (ret == 0)
+    {
+      /* Pad with blanks (assuming gethostname will make an error
+         return if it can't fit in the null). */
+      for (i = strlen (name); i < Lname; i++)
+	name[i] = ' ';
     }
-    return ret;
+  return ret;
 #else
-    return errno = ENOSYS;
+  return errno = ENOSYS;
 #endif
 }
diff --git a/libf2c/libU77/idate_.c b/libf2c/libU77/idate_.c
index b4c29f2..f2bea12 100644
--- a/libf2c/libU77/idate_.c
+++ b/libf2c/libU77/idate_.c
@@ -37,12 +37,13 @@ Boston, MA 02111-1307, USA.  */
 
 /* libU77 one: */
 
-/* Subroutine */ int G77_idate_0 (int iarray[3])
+/* Subroutine */ int
+G77_idate_0 (int iarray[3])
 {
   struct tm *lt;
   time_t tim;
-  tim = time(NULL);
-  lt = localtime(&tim);
+  tim = time (NULL);
+  lt = localtime (&tim);
   iarray[0] = lt->tm_mday;
   iarray[1] = lt->tm_mon + 1;	/* in range 1-12 in SunOS (experimentally) */
   /* The `+1900' is consistent with SunOS and Irix, but they don't say
diff --git a/libf2c/libU77/ierrno_.c b/libf2c/libU77/ierrno_.c
index ed7d4e7..0dc76b0 100644
--- a/libf2c/libU77/ierrno_.c
+++ b/libf2c/libU77/ierrno_.c
@@ -22,7 +22,8 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>
 #include "f2c.h"
 
-integer G77_ierrno_0 (void)
+integer
+G77_ierrno_0 (void)
 {
   return errno;
 }
diff --git a/libf2c/libU77/irand_.c b/libf2c/libU77/irand_.c
index 8349689..a905431 100644
--- a/libf2c/libU77/irand_.c
+++ b/libf2c/libU77/irand_.c
@@ -31,22 +31,18 @@ Boston, MA 02111-1307, USA.  */
 
 /* Note this is per SunOS -- other s may have no arg. */
 
-integer G77_irand_0 (integer *flag)
+integer
+G77_irand_0 (integer * flag)
 {
-  switch (*flag) {
-  case 0:
-    break;
-  case 1:
-    srand (0);			/* Arbitrary choice of initialiser. */
-    break;
-  default:
-    srand (*flag);
-  }
+  switch (*flag)
+    {
+    case 0:
+      break;
+    case 1:
+      srand (0);		/* Arbitrary choice of initialiser. */
+      break;
+    default:
+      srand (*flag);
+    }
   return rand ();
 }
-
-
-
-
-
-
diff --git a/libf2c/libU77/isatty_.c b/libf2c/libU77/isatty_.c
index 3d803b3..fa2f56d 100644
--- a/libf2c/libU77/isatty_.c
+++ b/libf2c/libU77/isatty_.c
@@ -27,11 +27,12 @@ Boston, MA 02111-1307, USA.  */
 
 extern integer G77_fnum_0 (integer *);
 
-logical G77_isatty_0 (integer *lunit)
+logical
+G77_isatty_0 (integer * lunit)
 {
-  if (*lunit>=MXUNIT || *lunit<0)
-    err(1,101,"isatty");
+  if (*lunit >= MXUNIT || *lunit < 0)
+    err (1, 101, "isatty");
   /* f__units is a table of descriptions for the unit numbers (defined
      in io.h) with file descriptors rather than streams */
-  return (isatty(G77_fnum_0 (lunit)) ? TRUE_ : FALSE_);
+  return (isatty (G77_fnum_0 (lunit)) ? TRUE_ : FALSE_);
 }
diff --git a/libf2c/libU77/itime_.c b/libf2c/libU77/itime_.c
index 8fbfcc3..12a7864 100644
--- a/libf2c/libU77/itime_.c
+++ b/libf2c/libU77/itime_.c
@@ -33,13 +33,14 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
-/* Subroutine */ int G77_itime_0 (integer tarray[3])
+/* Subroutine */ int
+G77_itime_0 (integer tarray[3])
 {
   struct tm *lt;
   time_t tim;
 
-  tim = time(NULL);
-  lt = localtime(&tim);
+  tim = time (NULL);
+  lt = localtime (&tim);
   tarray[0] = lt->tm_hour;
   tarray[1] = lt->tm_min;
   tarray[2] = lt->tm_sec;
diff --git a/libf2c/libU77/kill_.c b/libf2c/libU77/kill_.c
index d133fa5..41eab15 100644
--- a/libf2c/libU77/kill_.c
+++ b/libf2c/libU77/kill_.c
@@ -26,10 +26,11 @@ Boston, MA 02111-1307, USA.  */
 
 /* fixme: bsd, svr1-3 use int, not pid_t */
 
-integer G77_kill_0 (const integer *pid, const integer *signum)
+integer
+G77_kill_0 (const integer * pid, const integer * signum)
 {
 #if defined (HAVE_KILL)
-  return kill ((pid_t) *pid, *signum) ? errno : 0;
+  return kill ((pid_t) * pid, *signum) ? errno : 0;
 #else
   errno = ENOSYS;
   return -1;
diff --git a/libf2c/libU77/link_.c b/libf2c/libU77/link_.c
index 1f46e2e..88c110f 100644
--- a/libf2c/libU77/link_.c
+++ b/libf2c/libU77/link_.c
@@ -34,23 +34,28 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>		/* for ENOSYS */
 #include "f2c.h"
 
-void g_char(const char *a, ftnlen alen, char *b);
+void g_char (const char *a, ftnlen alen, char *b);
 
-integer G77_link_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2)
+integer
+G77_link_0 (const char *path1, const char *path2, const ftnlen Lpath1,
+	    const ftnlen Lpath2)
 {
 #if defined (HAVE_LINK)
   char *buff1, *buff2;
   char *bp, *blast;
   int i;
 
-  buff1 = malloc (Lpath1+1);
-  if (buff1 == NULL) return -1;
+  buff1 = malloc (Lpath1 + 1);
+  if (buff1 == NULL)
+    return -1;
   g_char (path1, Lpath1, buff1);
-  buff2 = malloc (Lpath2+1);
-  if (buff2 == NULL) return -1;
+  buff2 = malloc (Lpath2 + 1);
+  if (buff2 == NULL)
+    return -1;
   g_char (path2, Lpath2, buff2);
   i = link (buff1, buff2);
-  free (buff1); free (buff2);
+  free (buff1);
+  free (buff2);
   return i ? errno : 0;
 #else /* ! HAVE_LINK */
   errno = ENOSYS;
diff --git a/libf2c/libU77/lnblnk_.c b/libf2c/libU77/lnblnk_.c
index 806eca2..f21ac42 100644
--- a/libf2c/libU77/lnblnk_.c
+++ b/libf2c/libU77/lnblnk_.c
@@ -21,15 +21,18 @@ Boston, MA 02111-1307, USA.  */
 
 #include "f2c.h"
 
-integer G77_lnblnk_0 (char *str, ftnlen str_len)
+integer
+G77_lnblnk_0 (char *str, ftnlen str_len)
 {
-    integer ret_val;
-    integer i_len();
-
-    for (ret_val = str_len; ret_val >= 1; --ret_val) {
-	if (*(unsigned char *)&str[ret_val - 1] != ' ') {
-	    return ret_val;
+  integer ret_val;
+  integer i_len ();
+
+  for (ret_val = str_len; ret_val >= 1; --ret_val)
+    {
+      if (*(unsigned char *) &str[ret_val - 1] != ' ')
+	{
+	  return ret_val;
 	}
     }
-    return ret_val;
+  return ret_val;
 }
diff --git a/libf2c/libU77/lstat_.c b/libf2c/libU77/lstat_.c
index 5a1831b..0d5a830 100644
--- a/libf2c/libU77/lstat_.c
+++ b/libf2c/libU77/lstat_.c
@@ -30,9 +30,10 @@ Boston, MA 02111-1307, USA.  */
 
 /* lstat isn't posix */
 
-void g_char(const char *a, ftnlen alen, char *b);
+void g_char (const char *a, ftnlen alen, char *b);
 
-integer G77_lstat_0 (const char *name, integer statb[13], const ftnlen Lname)
+integer
+G77_lstat_0 (const char *name, integer statb[13], const ftnlen Lname)
 {
 #if HAVE_LSTAT
   char *buff;
@@ -40,8 +41,9 @@ integer G77_lstat_0 (const char *name, integer statb[13], const ftnlen Lname)
   int err;
   struct stat buf;
 
-  buff = malloc (Lname+1);
-  if (buff == NULL) return -1;
+  buff = malloc (Lname + 1);
+  if (buff == NULL)
+    return -1;
   g_char (name, Lname, buff);
   err = lstat (buff, &buf);
   free (buff);
@@ -71,7 +73,7 @@ integer G77_lstat_0 (const char *name, integer statb[13], const ftnlen Lname)
   statb[12] = -1;
 #endif
   return err;
-#else	/* !HAVE_LSTAT */
+#else /* !HAVE_LSTAT */
   return errno = ENOSYS;
-#endif	/* !HAVE_LSTAT */
+#endif /* !HAVE_LSTAT */
 }
diff --git a/libf2c/libU77/ltime_.c b/libf2c/libU77/ltime_.c
index ea5b1b9..008df1d 100644
--- a/libf2c/libU77/ltime_.c
+++ b/libf2c/libU77/ltime_.c
@@ -33,7 +33,8 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
-/* Subroutine */ int G77_ltime_0 (const integer * xstime, integer tarray[9])
+/* Subroutine */ int
+G77_ltime_0 (const integer * xstime, integer tarray[9])
 {
   struct tm *lt;
   time_t stime = *xstime;
diff --git a/libf2c/libU77/mclock_.c b/libf2c/libU77/mclock_.c
index cf6abb4..686c490 100644
--- a/libf2c/libU77/mclock_.c
+++ b/libf2c/libU77/mclock_.c
@@ -33,7 +33,8 @@ Boston, MA 02111-1307, USA.  */
 
 /* Reported by wd42ej@sgi83.wwb.noaa.gov (Russ Jones AUTO-Sun3) on AIX. */
 
-longint G77_mclock_0 (void)
+longint
+G77_mclock_0 (void)
 {
 #if HAVE_CLOCK
   return clock ();
diff --git a/libf2c/libU77/perror_.c b/libf2c/libU77/perror_.c
index 1d3c3f2..6fe96aa 100644
--- a/libf2c/libU77/perror_.c
+++ b/libf2c/libU77/perror_.c
@@ -28,14 +28,15 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
-/* Subroutine */ int G77_perror_0 (const char *str, const ftnlen Lstr)
+/* Subroutine */ int
+G77_perror_0 (const char *str, const ftnlen Lstr)
 {
   char buff[1000];
   char *bp, *blast;
 
   /* same technique as `system' -- what's wrong with malloc? */
   blast = buff + (Lstr < 1000 ? Lstr : 1000);
-  for (bp = buff ; bp<blast && *str!='\0' ; )
+  for (bp = buff; bp < blast && *str != '\0';)
     *bp++ = *str++;
   *bp = '\0';
   perror (buff);
diff --git a/libf2c/libU77/rand_.c b/libf2c/libU77/rand_.c
index 5560461..1592dc5 100644
--- a/libf2c/libU77/rand_.c
+++ b/libf2c/libU77/rand_.c
@@ -34,16 +34,18 @@ Boston, MA 02111-1307, USA.  */
 
 /* Note this is per SunOS -- other s may have no arg. */
 
-double G77_rand_0 (integer *flag)
+double
+G77_rand_0 (integer * flag)
 {
-  switch (*flag) {
-  case 0:
-    break;
-  case 1:
-    srand (0);			/* Arbitrary choice of initialiser. */
-    break;
-  default:
-    srand (*flag);
-  }
+  switch (*flag)
+    {
+    case 0:
+      break;
+    case 1:
+      srand (0);		/* Arbitrary choice of initialiser. */
+      break;
+    default:
+      srand (*flag);
+    }
   return (float) rand () / RAND_MAX;
 }
diff --git a/libf2c/libU77/rename_.c b/libf2c/libU77/rename_.c
index 335b592..bef384b 100644
--- a/libf2c/libU77/rename_.c
+++ b/libf2c/libU77/rename_.c
@@ -29,21 +29,26 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>
 #include "f2c.h"
 
-void g_char(const char *a, ftnlen alen, char *b);
+void g_char (const char *a, ftnlen alen, char *b);
 
-integer G77_rename_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2)
+integer
+G77_rename_0 (const char *path1, const char *path2, const ftnlen Lpath1,
+	      const ftnlen Lpath2)
 {
   char *buff1, *buff2;
   char *bp, *blast;
   int i;
 
-  buff1 = malloc (Lpath1+1);
-  if (buff1 == NULL) return -1;
+  buff1 = malloc (Lpath1 + 1);
+  if (buff1 == NULL)
+    return -1;
   g_char (path1, Lpath1, buff1);
-  buff2 = malloc (Lpath2+1);
-  if (buff2 == NULL) return -1;
+  buff2 = malloc (Lpath2 + 1);
+  if (buff2 == NULL)
+    return -1;
   g_char (path2, Lpath2, buff2);
   i = rename (buff1, buff2);
-  free (buff1); free (buff2);
+  free (buff1);
+  free (buff2);
   return i ? errno : 0;
 }
diff --git a/libf2c/libU77/secnds_.c b/libf2c/libU77/secnds_.c
index 1942528..1d661a9 100644
--- a/libf2c/libU77/secnds_.c
+++ b/libf2c/libU77/secnds_.c
@@ -36,16 +36,16 @@ Boston, MA 02111-1307, USA.  */
 
 /* This is a VMS intrinsic. */
 
-double G77_secnds_0 (real *r)
+double
+G77_secnds_0 (real * r)
 {
-    struct tm *lt;
-    time_t clock;
-    float f;
-
-    clock = time (NULL);
-    lt = localtime (&clock);
-    f= (3600.0*((real)lt->tm_hour) + 60.0*((real)lt->tm_min) +
-	    (real)lt->tm_sec - *r);
-    return f;
+  struct tm *lt;
+  time_t clock;
+  float f;
+
+  clock = time (NULL);
+  lt = localtime (&clock);
+  f = (3600.0 * ((real) lt->tm_hour) + 60.0 * ((real) lt->tm_min) +
+       (real) lt->tm_sec - *r);
+  return f;
 }
-
diff --git a/libf2c/libU77/second_.c b/libf2c/libU77/second_.c
index 41bb5a9..b40474a 100644
--- a/libf2c/libU77/second_.c
+++ b/libf2c/libU77/second_.c
@@ -18,7 +18,9 @@ Boston, MA 02111-1307, USA.  */
 
 #include "f2c.h"
 
-double G77_second_0 () {
+double
+G77_second_0 ()
+{
   extern double G77_etime_0 ();
   real tarray[2];
 
diff --git a/libf2c/libU77/sleep_.c b/libf2c/libU77/sleep_.c
index 081bc5b..fcf112a 100644
--- a/libf2c/libU77/sleep_.c
+++ b/libf2c/libU77/sleep_.c
@@ -25,7 +25,8 @@ Boston, MA 02111-1307, USA.  */
 #include "f2c.h"
 
 /* Subroutine */
-int G77_sleep_0 (const integer *seconds)
+int
+G77_sleep_0 (const integer * seconds)
 {
   (void) sleep ((unsigned int) *seconds);
   return 0;
diff --git a/libf2c/libU77/srand_.c b/libf2c/libU77/srand_.c
index 1228018..822d980 100644
--- a/libf2c/libU77/srand_.c
+++ b/libf2c/libU77/srand_.c
@@ -24,8 +24,9 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
-/* Subroutine */ 
-int G77_srand_0 (const integer *seed)
+/* Subroutine */
+int
+G77_srand_0 (const integer * seed)
 {
   srand ((unsigned int) *seed);
   return 0;
diff --git a/libf2c/libU77/stat_.c b/libf2c/libU77/stat_.c
index 4c89248..b864da2 100644
--- a/libf2c/libU77/stat_.c
+++ b/libf2c/libU77/stat_.c
@@ -27,17 +27,19 @@ Boston, MA 02111-1307, USA.  */
 #include <sys/stat.h>
 #include "f2c.h"
 
-void g_char(const char *a, ftnlen alen, char *b);
+void g_char (const char *a, ftnlen alen, char *b);
 
-integer G77_stat_0 (const char *name, integer statb[13], const ftnlen Lname)
+integer
+G77_stat_0 (const char *name, integer statb[13], const ftnlen Lname)
 {
   char *buff;
   char *bp, *blast;
   int err;
   struct stat buf;
 
-  buff = malloc (Lname+1);
-  if (buff == NULL) return -1;
+  buff = malloc (Lname + 1);
+  if (buff == NULL)
+    return -1;
   g_char (name, Lname, buff);
   err = stat (buff, &buf);
   free (buff);
diff --git a/libf2c/libU77/symlnk_.c b/libf2c/libU77/symlnk_.c
index 6f24841..f51739a 100644
--- a/libf2c/libU77/symlnk_.c
+++ b/libf2c/libU77/symlnk_.c
@@ -33,25 +33,30 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
-void g_char(const char *a, ftnlen alen, char *b);
+void g_char (const char *a, ftnlen alen, char *b);
 
-integer G77_symlnk_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2)
+integer
+G77_symlnk_0 (const char *path1, const char *path2, const ftnlen Lpath1,
+	      const ftnlen Lpath2)
 {
 #if HAVE_SYMLINK
   char *buff1, *buff2;
   char *bp, *blast;
   int i;
 
-  buff1 = (char *) malloc (Lpath1+1);
-  if (buff1 == NULL) return -1;
+  buff1 = (char *) malloc (Lpath1 + 1);
+  if (buff1 == NULL)
+    return -1;
   g_char (path1, Lpath1, buff1);
-  buff2 = (char *) malloc (Lpath2+1);
-  if (buff2 == NULL) return -1;
+  buff2 = (char *) malloc (Lpath2 + 1);
+  if (buff2 == NULL)
+    return -1;
   g_char (path2, Lpath2, buff2);
   i = symlink (buff1, buff2);
-  free (buff1); free (buff2);
+  free (buff1);
+  free (buff2);
   return i ? errno : 0;
-#else	/* !HAVE_SYMLINK */
+#else /* !HAVE_SYMLINK */
   return errno = ENOSYS;
-#endif	/* !HAVE_SYMLINK */
+#endif /* !HAVE_SYMLINK */
 }
diff --git a/libf2c/libU77/sys_clock_.c b/libf2c/libU77/sys_clock_.c
index d35faad..ea39eea 100644
--- a/libf2c/libU77/sys_clock_.c
+++ b/libf2c/libU77/sys_clock_.c
@@ -43,26 +43,29 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>		/* for ENOSYS */
 #include "f2c.h"
 
-int G77_system_clock_0 (integer *count, integer *count_rate, integer *count_max)
+int
+G77_system_clock_0 (integer * count, integer * count_rate,
+		    integer * count_max)
 {
 #if defined (HAVE_TIMES)
   struct tms buffer;
   unsigned long cnt;
-  if (count_rate) {
+  if (count_rate)
+    {
 #ifdef _SC_CLK_TCK
-    *count_rate = sysconf(_SC_CLK_TCK);
+      *count_rate = sysconf (_SC_CLK_TCK);
 #elif defined CLOCKS_PER_SECOND
-    *count_rate = CLOCKS_PER_SECOND;
+      *count_rate = CLOCKS_PER_SECOND;
 #elif defined CLK_TCK
-    *count_rate = CLK_TCK;
+      *count_rate = CLK_TCK;
 #elif defined HZ
-    *count_rate = HZ;
+      *count_rate = HZ;
 #else
 #error Dont know clock tick length
 #endif
-  }
+    }
   if (count_max)		/* optional arg present? */
-    *count_max = INT_MAX;		/* dubious */
+    *count_max = INT_MAX;	/* dubious */
   cnt = times (&buffer);
   if (cnt > (unsigned long) (INT_MAX))
     *count = INT_MAX;		/* also dubious */
diff --git a/libf2c/libU77/time_.c b/libf2c/libU77/time_.c
index 621da3a..2eb8a41 100644
--- a/libf2c/libU77/time_.c
+++ b/libf2c/libU77/time_.c
@@ -35,7 +35,8 @@ Boston, MA 02111-1307, USA.  */
 /* As well as this external function some compilers have an intrinsic
    subroutine which fills a character argument (which is the VMS way)
    -- caveat emptor. */
-longint G77_time_0 (void)
+longint
+G77_time_0 (void)
 {
   /* There are potential problems with the cast of the time_t here. */
   return time (NULL);
diff --git a/libf2c/libU77/ttynam_.c b/libf2c/libU77/ttynam_.c
index 3175f05..ffdf5bf 100644
--- a/libf2c/libU77/ttynam_.c
+++ b/libf2c/libU77/ttynam_.c
@@ -35,21 +35,25 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>		/* for ENOSYS */
 #include "f2c.h"
 
-extern integer G77_fnum_0 (integer *lunit);
-extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
-/* Character */ void G77_ttynam_0 (char *ret_val, ftnlen ret_val_len, integer *lunit)
+extern integer G77_fnum_0 (integer * lunit);
+extern void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb);
+/* Character */ void
+G77_ttynam_0 (char *ret_val, ftnlen ret_val_len, integer * lunit)
 {
 #if defined (HAVE_TTYNAME)
   size_t i;
   char *p;
 
   p = ttyname (G77_fnum_0 (lunit));
-  if (p != NULL) {
-    i = strlen (p);
-    s_copy (ret_val, p, ret_val_len, i);
-  } else {
-    s_copy (ret_val, " ", ret_val_len, 1);
-  }
+  if (p != NULL)
+    {
+      i = strlen (p);
+      s_copy (ret_val, p, ret_val_len, i);
+    }
+  else
+    {
+      s_copy (ret_val, " ", ret_val_len, 1);
+    }
 #else
   errno = ENOSYS;
   s_copy (ret_val, " ", ret_val_len, 1);
diff --git a/libf2c/libU77/umask_.c b/libf2c/libU77/umask_.c
index 347da2d..5c4546a 100644
--- a/libf2c/libU77/umask_.c
+++ b/libf2c/libU77/umask_.c
@@ -23,7 +23,8 @@ Boston, MA 02111-1307, USA.  */
 #include <sys/stat.h>
 #include "f2c.h"
 
-integer G77_umask_0 (integer *mask)
+integer
+G77_umask_0 (integer * mask)
 {
-  return umask ((mode_t) *mask);
+  return umask ((mode_t) * mask);
 }
diff --git a/libf2c/libU77/unlink_.c b/libf2c/libU77/unlink_.c
index 004002e..2d8fbcb 100644
--- a/libf2c/libU77/unlink_.c
+++ b/libf2c/libU77/unlink_.c
@@ -33,16 +33,18 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
-void g_char(const char *a, ftnlen alen, char *b);
+void g_char (const char *a, ftnlen alen, char *b);
 
-integer G77_unlink_0 (const char *str, const ftnlen Lstr)
+integer
+G77_unlink_0 (const char *str, const ftnlen Lstr)
 {
   char *buff;
   char *bp, *blast;
   int i;
 
-  buff = malloc (Lstr+1);
-  if (buff == NULL) return -1;
+  buff = malloc (Lstr + 1);
+  if (buff == NULL)
+    return -1;
   g_char (str, Lstr, buff);
   i = unlink (buff);
   free (buff);
diff --git a/libf2c/libU77/vxtidate_.c b/libf2c/libU77/vxtidate_.c
index 6211f13..7bf0ec9 100644
--- a/libf2c/libU77/vxtidate_.c
+++ b/libf2c/libU77/vxtidate_.c
@@ -38,24 +38,26 @@ Boston, MA 02111-1307, USA.  */
 /* VMS style: */
 
 /* Subroutine */
-int G77_vxtidate_y2kbug_0 (integer *m, integer *d, integer *y)
+int
+G77_vxtidate_y2kbug_0 (integer * m, integer * d, integer * y)
 {
   struct tm *lt;
   time_t tim;
-  tim = time(NULL);
-  lt = localtime(&tim);
+  tim = time (NULL);
+  lt = localtime (&tim);
   *y = lt->tm_year % 100;
-  *m = lt->tm_mon+1;
+  *m = lt->tm_mon + 1;
   *d = lt->tm_mday;
   return 0;
 }
 
 #ifdef PIC
 extern const char *G77_Non_Y2K_Compliance_Message;
-int G77_vxtidate_y2kbuggy_0 (integer *m, integer *d, integer *y)
+int
+G77_vxtidate_y2kbuggy_0 (integer * m, integer * d, integer * y)
 {
-  extern int G77_abort_0();
+  extern int G77_abort_0 ();
   fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
-  G77_abort_0();
+  G77_abort_0 ();
 }
 #endif
diff --git a/libf2c/libU77/vxttime_.c b/libf2c/libU77/vxttime_.c
index 99d3f50..c283aac 100644
--- a/libf2c/libU77/vxttime_.c
+++ b/libf2c/libU77/vxttime_.c
@@ -39,11 +39,12 @@ Boston, MA 02111-1307, USA.  */
 #include "f2c.h"
 
 /* Subroutine */
-void G77_vxttime_0 (char chtime[8], const ftnlen Lchtime)
+void
+G77_vxttime_0 (char chtime[8], const ftnlen Lchtime)
 {
   time_t tim;
   char *ctim;
-  tim = time(NULL);
+  tim = time (NULL);
   ctim = ctime (&tim);
-  strncpy (chtime, ctim+11, 8);
+  strncpy (chtime, ctim + 11, 8);
 }