From 8f7564882af670a5b958a4f2e8cc5b81892f45ee Mon Sep 17 00:00:00 2001
From: torset
Date: Wed, 4 Feb 2009 13:00:38 +0000
Subject: Modify (d/z)rand(s/a) and the tests

---
 src/auxiliaryFunctions/rand/zranda.c | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

(limited to 'src/auxiliaryFunctions/rand/zranda.c')

diff --git a/src/auxiliaryFunctions/rand/zranda.c b/src/auxiliaryFunctions/rand/zranda.c
index 7dd04a16..98cc10cf 100644
--- a/src/auxiliaryFunctions/rand/zranda.c
+++ b/src/auxiliaryFunctions/rand/zranda.c
@@ -11,10 +11,23 @@
  */
 
 #include "rand.h"
-
+#include <stdio.h>
 void zranda(doubleComplex *out, int size) {
   int i = 0;
+  double *Real_randa, *Imag_randa;
+  Real_randa = malloc((uint)size*sizeof(double));
+  Imag_randa = malloc((uint)size*sizeof(double));
+   
   for (i = 0 ; i < size ; ++i) {
-    out[i] = zrands();
+    Real_randa[i]=drands();
+  }
+
+  for (i = 0 ; i < size ; ++i) {  
+    Imag_randa[i]=drands();
   }
+
+  for (i = 0 ; i < size ; ++i) {  
+    out[i]=DoubleComplex(Real_randa[i],Imag_randa[i]);
+  }	
+
 }
-- 
cgit