update for tahoe

[unix-history] / usr / src / usr.bin / f77 / libF77 / random_.c

diff --git a/usr/src/usr.bin/f77/libF77/random_.c b/usr/src/usr.bin/f77/libF77/random_.c
index 545df72..a2d8dc4 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/random_.c
+++ b/usr/src/usr.bin/f77/libF77/random_.c
@@ -3,8 +3,8 @@
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *

- *     @(#)random_.c   5.1     %G%
- */
+ *     @(#)random_.c   5.3     %G%
+ * 

  * Routines to return random values
  *
  * calling sequence:
  * Routines to return random values
  *
  * calling sequence:


@@ -19,11 +19,11 @@
  *     Real values will range from 0.0 thru 1.0 .
  */
 
  *     Real values will range from 0.0 thru 1.0 .
  */
 

-#if    vax
+#if    defined(vax) || defined(tahoe)

 #define        RANDMAX         2147483647
 #define        RANDMAX         2147483647

-#else  vax
+#else  vax || tahoe

        UNKNOWN MACHINE!
        UNKNOWN MACHINE!

-#endif vax
+#endif vax || tahoe

 
 long irandm_(iarg)
 long *iarg;
 
 long irandm_(iarg)
 long *iarg;