changed 0.0f to 0.0

svn path=/trunk/externals/iem/iem_tab/; revision=16200

7 files changed, 24 insertions, 16 deletions

diff --git a/src/makefile_d_ppc b/src/makefile_d_ppc
index 22ef78b..5579fb8 100644
--- a/src/makefile_d_ppc
+++ b/src/makefile_d_ppc
@@ -24,6 +24,8 @@ SRC = tab_abs.c \
 	tab_copy.c \
 	tab_counter.c \
 	tab_cross_corr.c \
+	tab_dbtopow.c \
+	tab_dbtorms.c \
 	tab_div.c \
 	tab_eq.c \
 	tab_eq_scalar.c \
@@ -47,9 +49,11 @@ SRC = tab_abs.c \
 	tab_mul_scalar.c \
 	tab_ne.c \
 	tab_ne_scalar.c \
+	tab_powtodb.c \
 	tab_reverse.c \
 	tab_rfft.c \
 	tab_rifft.c \
+	tab_rmstodb.c \
 	tab_sqrt.c \
 	tab_sub.c \
 	tab_sum.c \
diff --git a/src/makefile_darwin b/src/makefile_darwin
index 8ab9beb..79dc341 100644
--- a/src/makefile_darwin
+++ b/src/makefile_darwin
@@ -29,6 +29,8 @@ SRC = tab_abs.c \
 	tab_copy.c \
 	tab_counter.c \
 	tab_cross_corr.c \
+	tab_dbtopow.c \
+	tab_dbtorms.c \
 	tab_div.c \
 	tab_eq.c \
 	tab_eq_scalar.c \
@@ -52,9 +54,11 @@ SRC = tab_abs.c \
 	tab_mul_scalar.c \
 	tab_ne.c \
 	tab_ne_scalar.c \
+	tab_powtodb.c \
 	tab_reverse.c \
 	tab_rfft.c \
 	tab_rifft.c \
+	tab_rmstodb.c \
 	tab_sqrt.c \
 	tab_sub.c \
 	tab_sum.c \
diff --git a/src/makefile_win b/src/makefile_win
index 97fb9cd..9686ad1 100644
--- a/src/makefile_win
+++ b/src/makefile_win
@@ -31,6 +31,8 @@ SRC =	tab_abs.c \
 	tab_copy.c \

 	tab_counter.c \

 	tab_cross_corr.c \

+	tab_dbtopow.c \

+	tab_dbtorms.c \

 	tab_div.c \

 	tab_eq.c \

 	tab_eq_scalar.c \

@@ -54,9 +56,11 @@ SRC =	tab_abs.c \
 	tab_mul_scalar.c \

 	tab_ne.c \

 	tab_ne_scalar.c \

+	tab_powtodb.c \

 	tab_reverse.c \

 	tab_rfft.c \

 	tab_rifft.c \

+	tab_rmstodb.c \

 	tab_sqrt.c \

 	tab_sub.c \

 	tab_sum.c \

diff --git a/src/tab_carth2polar.c b/src/tab_carth2polar.c
index 9dccd68..bc450ff 100644
--- a/src/tab_carth2polar.c
+++ b/src/tab_carth2polar.c
@@ -86,7 +86,7 @@ static void tab_carth2polar_bang(t_tab_carth2polar *x)
     if(n)
     {
       t_garray *a;
-      t_float rcp_two_pi=0.125f/atan(1.0);
+      t_float rcp_two_pi=0.125/atan(1.0);
       
       for(i=0; i<n; i++)
       {
@@ -156,7 +156,7 @@ static void tab_carth2polar_list(t_tab_carth2polar *x, t_symbol *s, int argc, t_
       if(n)
       {
         t_garray *a;
-        t_float rcp_two_pi=0.125f/atan(1.0);
+        t_float rcp_two_pi=0.125/atan(1.0);
         
         for(i=0; i<n; i++)
         {
@@ -231,5 +231,4 @@ void tab_carth2polar_setup(void)
   class_addmethod(tab_carth2polar_class, (t_method)tab_carth2polar_src_im, gensym("src1_im"), A_DEFSYMBOL, 0);
   class_addmethod(tab_carth2polar_class, (t_method)tab_carth2polar_dst_mag, gensym("dst_mag"), A_DEFSYMBOL, 0);
   class_addmethod(tab_carth2polar_class, (t_method)tab_carth2polar_dst_arg, gensym("dst_arg"), A_DEFSYMBOL, 0);
-//  class_sethelpsymbol(tab_carth2polar_class, gensym("iemhelp2/help-tab_carth2polar"));
 }
diff --git a/src/tab_complex_inv.c b/src/tab_complex_inv.c
index 3b14af6..f363d05 100644
--- a/src/tab_complex_inv.c
+++ b/src/tab_complex_inv.c
@@ -92,7 +92,7 @@ static void tab_complex_inv_bang(t_tab_complex_inv *x)
         
         re = iemarray_getfloat(vec_src1_re, i);
         im = iemarray_getfloat(vec_src1_im, i);
-        abs = 1.0f / (re*re + im*im);
+        abs = 1.0 / (re*re + im*im);
         iemarray_setfloat(vec_dst_re, i, re*abs);
         iemarray_setfloat(vec_dst_im, i, -im*abs);
       }
@@ -160,7 +160,7 @@ static void tab_complex_inv_list(t_tab_complex_inv *x, t_symbol *s, int argc, t_
           
           re = iemarray_getfloat(vec_src1_re, i);
           im = iemarray_getfloat(vec_src1_im, i);
-          abs = 1.0f / (re*re + im*im);
+          abs = 1.0 / (re*re + im*im);
           iemarray_setfloat(vec_dst_re, i, re*abs);
           iemarray_setfloat(vec_dst_im, i, -im*abs);
         }
@@ -235,5 +235,4 @@ void tab_complex_inv_setup(void)
   class_addmethod(tab_complex_inv_class, (t_method)tab_complex_inv_src1_im, gensym("src1_im"), A_DEFSYMBOL, 0);
   class_addmethod(tab_complex_inv_class, (t_method)tab_complex_inv_src1_im, gensym("src_im"), A_DEFSYMBOL, 0);
   class_addmethod(tab_complex_inv_class, (t_method)tab_complex_inv_dst_im, gensym("dst_im"), A_DEFSYMBOL, 0);
-//  class_sethelpsymbol(tab_complex_inv_class, gensym("iemhelp2/tab_complex_inv-help"));
 }
diff --git a/src/tab_const.c b/src/tab_const.c
index 461f950..7d846a3 100644
--- a/src/tab_const.c
+++ b/src/tab_const.c
@@ -44,7 +44,7 @@ static void tab_const_bang(t_tab_const *x)
       t_garray *a;
       
       for(i=0; i<n; i++)
-        iemarray_setfloat(vec_dst, i, 0.0f);
+        iemarray_setfloat(vec_dst, i, 0.0);
       outlet_bang(x->x_obj.ob_outlet);
       a = (t_garray *)pd_findbyclass(x->x_sym_dst, garray_class);
       garray_redraw(a);
@@ -156,5 +156,4 @@ void tab_const_setup(void)
   class_addfloat(tab_const_class, (t_method)tab_const_float);
   class_addlist(tab_const_class, (t_method)tab_const_list);
   class_addmethod(tab_const_class, (t_method)tab_const_dst, gensym("dst"), A_DEFSYMBOL, 0);
-//  class_sethelpsymbol(tab_const_class, gensym("iemhelp2/tab_const-help"));
 }
diff --git a/src/tab_conv.c b/src/tab_conv.c
index 8352faa..164b766 100644
--- a/src/tab_conv.c
+++ b/src/tab_conv.c
@@ -203,7 +203,7 @@ static void tab_conv_list(t_tab_conv *x, t_symbol *s, int argc, t_atom *argv)
   int i, j, k, l, m, n, p;
   int ok_src1, ok_src2, ok_dst;
   iemarray_t *vec_sig, *vec_ir, *vec_dst;
-  t_float sum=0.0f;
+  t_float sum=0.0;
   
   if((argc >= 5) &&
     IS_A_FLOAT(argv,0) &&
@@ -257,7 +257,7 @@ static void tab_conv_list(t_tab_conv *x, t_symbol *s, int argc, t_atom *argv)
         l = m - 1;
         for(i=0; i<l; i++)
         {
-          sum = 0.0f;
+          sum = 0.0;
           for(j=0, k=i-1; j<i; j++, k--)
             sum += iemarray_getfloat(vec_sig, j) * iemarray_getfloat(vec_ir, k);
           iemarray_setfloat(vec_dst, 0, sum);
@@ -268,7 +268,7 @@ static void tab_conv_list(t_tab_conv *x, t_symbol *s, int argc, t_atom *argv)
         l = n - m + 1;
         for(i=0; i<l; i++)
         {
-          sum = 0.0f;
+          sum = 0.0;
           for(j=0, k=m-1; j<m; j++, k--)
             sum += iemarray_getfloat(vec_sig, j) * iemarray_getfloat(vec_ir, k);
           iemarray_setfloat(vec_dst, 0, sum);
@@ -279,7 +279,7 @@ static void tab_conv_list(t_tab_conv *x, t_symbol *s, int argc, t_atom *argv)
         l = m - 1;
         for(i=l-1; i>=0; i--)
         {
-          sum = 0.0f;
+          sum = 0.0;
           for(j=0, k=i-1; j<i; j++, k--)
             sum += iemarray_getfloat(vec_sig, j) * iemarray_getfloat(vec_ir, k);
           iemarray_setfloat(vec_dst, 0, sum);
@@ -310,7 +310,7 @@ static void tab_conv_list(t_tab_conv *x, t_symbol *s, int argc, t_atom *argv)
         l = m - 1;
         for(i=0; i<l; i++)
         {
-          sum = 0.0f;
+          sum = 0.0;
           for(j=0, k=i-1; j<i; j++, k--)
             sum += iemarray_getfloat(vec_sig, j) * iemarray_getfloat(vec_ir, k);
           iemarray_setfloat(vec_dst, 0, sum);
@@ -324,7 +324,7 @@ static void tab_conv_list(t_tab_conv *x, t_symbol *s, int argc, t_atom *argv)
         l = n - m + 1;
         for(i=0; i<l; i++)
         {
-          sum = 0.0f;
+          sum = 0.0;
           for(j=0, k=m-1; j<m; j++, k--)
             sum += iemarray_getfloat(vec_sig, j) * iemarray_getfloat(vec_ir, k);
           iemarray_setfloat(vec_dst, 0, sum);
@@ -338,7 +338,7 @@ static void tab_conv_list(t_tab_conv *x, t_symbol *s, int argc, t_atom *argv)
         l = m - 1;
         for(i=l-1; i>=0; i--)
         {
-          sum = 0.0f;
+          sum = 0.0;
           for(j=0, k=i-1; j<i; j++, k--)
             sum += iemarray_getfloat(vec_sig, j) * iemarray_getfloat(vec_ir, k);
           iemarray_setfloat(vec_dst, 0, sum);
@@ -411,5 +411,4 @@ void tab_conv_setup(void)
   class_addmethod(tab_conv_class, (t_method)tab_conv_src1, gensym("src1"), A_DEFSYMBOL, 0);
   class_addmethod(tab_conv_class, (t_method)tab_conv_src2, gensym("src2"), A_DEFSYMBOL, 0);
   class_addmethod(tab_conv_class, (t_method)tab_conv_dst, gensym("dst"), A_DEFSYMBOL, 0);
-//  class_sethelpsymbol(tab_conv_class, gensym("iemhelp2/tab_conv-help"));
 }