1 files changed, 12 insertions, 15 deletions
diff --git a/contrib/libf2c/libU77/rand_.c b/contrib/libf2c/libU77/rand_.c
index 165aee1..1592dc5 100644
--- a/contrib/libf2c/libU77/rand_.c
+++ b/contrib/libf2c/libU77/rand_.c
@@ -34,21 +34,18 @@ Boston, MA 02111-1307, USA.  */
 
 /* Note this is per SunOS -- other s may have no arg. */
 
-#ifdef KR_headers
-double G77_rand_0 (flag)
-  integer *flag;
-#else
-double G77_rand_0 (integer *flag)
-#endif
+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;
 }