BSD 4_2 release

[unix-history] / usr / src / usr.lib / libF77 / rand_.c

diff --git a/usr/src/usr.lib/libF77/rand_.c b/usr/src/usr.lib/libF77/rand_.c
index 0a3dabb..42fed2f 100644 (file)
--- a/usr/src/usr.lib/libF77/rand_.c
+++ b/usr/src/usr.lib/libF77/rand_.c
@@ -1,5 +1,5 @@
 /*
 /*

-char id_rand[] = "%W%";
+char id_rand[] = "@(#)rand_.c  1.1";

  *
  * Routines to return random values
  *
  *
  * Routines to return random values
  *


@@ -16,22 +16,25 @@ char id_rand[] = "%W%";
  *     (see rand(3))
  */
 
  *     (see rand(3))
  */
 

-#ifdef VAX
+#if    vax

 #define        RANDMAX         2147483647
 #define        RANDMAX         2147483647

-#endif
-#ifdef PDP11
+#else  vax
+#if    pdp11

 #define        RANDMAX         32767
 #define        RANDMAX         32767

-#endif
+#else  pdp11
+       UNKNOWN MACHINE!
+#endif pdp11
+#endif vax

 
 long irand_(iarg)
 long *iarg;
 {
        if (*iarg) srand((int)*iarg);
 
 long irand_(iarg)
 long *iarg;
 {
        if (*iarg) srand((int)*iarg);

-#ifdef PDP11
+#if    pdp11

        return(( ((long)rand()) << 16) | rand());
        return(( ((long)rand()) << 16) | rand());

-#else
+#else  pdp11

        return( rand() );
        return( rand() );

-#endif
+#endif pdp11

 }
 
 float rand_(iarg)
 }
 
 float rand_(iarg)