Mac binaries

[jabaws.git] / website / archive / binaries / mac / src / fasta34 / nrandom.c

diff --git a/website/archive/binaries/mac/src/fasta34/nrandom.c b/website/archive/binaries/mac/src/fasta34/nrandom.c
new file mode 100644 (file)
index 0000000..fa074b1
--- /dev/null
+++ b/website/archive/binaries/mac/src/fasta34/nrandom.c
@@ -0,0 +1,32 @@
+
+/* copyright (c) 1996, 1997, 1998, 1999 William R. Pearson and the
+   U. of Virginia */
+
+/* $Name: fa_34_26_5 $ - $Id: nrandom.c,v 1.2 2006/04/12 18:00:02 wrp Exp $ */
+
+#include <stdlib.h>
+#include <time.h>
+
+void 
+irand(n)       /* initialize random number generator */
+     int n;
+{
+  if (n == 0) {
+    n = time(NULL);
+    n = n % 16381;
+    if ((n % 2)==0) n++;
+  }
+  srandom(n);
+}
+
+int
+nrand(n)       /* returns a random number between 0 and n-1 where n < 2^24) */
+     int n;
+{
+  int rn;
+
+  rn = random();
+  rn = (rn % n);
+  return rn;
+}
+