fix compilation warningsHEADmaster

18 files changed, 24 insertions, 41 deletions

diff --git a/src/c/signalProcessing/%k/dmodka.c b/src/c/signalProcessing/%k/dmodka.c
index 8368cb6b..d9dab00b 100644
--- a/src/c/signalProcessing/%k/dmodka.c
+++ b/src/c/signalProcessing/%k/dmodka.c
@@ -41,9 +41,9 @@ void dmodka(double* inp,int size,double* oup)
 	{
 	ones[i]=1;
 	}
-	double a[size],b[size],c[size],an[size],bn[size],cn[size],kans[size];
+	double a[size],b[size],c[size],an[size],bn[size],cn[size];
 	
-	int j,kk,l,m;
+	int j,kk,l;
 	for(j=0;j<size;j++)
 	{
 	a[j]=1;
@@ -57,7 +57,6 @@ void dmodka(double* inp,int size,double* oup)
 	c[l]=sqrt(inp[l]);
 	
 	}
-	int x=0;	
 	
 	while(max_calc(c,size)>eps)
 	{
@@ -88,7 +87,7 @@ void dmodka(double* inp,int size,double* oup)
 		c[z]=cn[z];
 		}
 	}
-	int q,w;
+	int q;
 	for(q=0;q<size;q++)
 	{
 	oup[q]=PI*(ones[q]/(2*a[q]));
diff --git a/src/c/signalProcessing/%sn/zmodsna.c b/src/c/signalProcessing/%sn/zmodsna.c
index 85bc0c16..a84b9ecb 100644
--- a/src/c/signalProcessing/%sn/zmodsna.c
+++ b/src/c/signalProcessing/%sn/zmodsna.c
@@ -16,9 +16,8 @@
 #define CA 0.0003
 
 
-doubleComplex zmodsnsproto(doubleComplex uu,double emmc,doubleComplex* sni)
+void zmodsnsproto(doubleComplex uu,double emmc,doubleComplex* sni)
 {
-	doubleComplex ans;
 	double uur,uui;
 	uur=zreals(uu);
 	uui=zimags(uu);
diff --git a/src/c/signalProcessing/cheb2mag/dcheb2mags.c b/src/c/signalProcessing/cheb2mag/dcheb2mags.c
index 006c5917..b63d3efe 100644
--- a/src/c/signalProcessing/cheb2mag/dcheb2mags.c
+++ b/src/c/signalProcessing/cheb2mag/dcheb2mags.c
@@ -17,7 +17,7 @@ void dcheb2mags(double n,double omegar, double A, double* sample,int size,double
 	double e;
 	//e=sqrt(A*A-1);
 	e=1/(pow(10,A/10)-1);
-	double x,k,cn,h,tp;
+	double x,cn,h,tp;
 	int i;
 	for(i=0;i<size;i++)
 	{
diff --git a/src/c/signalProcessing/ffilt/gffilts.c b/src/c/signalProcessing/ffilt/gffilts.c
index 09876d00..d4bdd75e 100644
--- a/src/c/signalProcessing/ffilt/gffilts.c
+++ b/src/c/signalProcessing/ffilt/gffilts.c
@@ -18,7 +18,6 @@ void gffilts(char* ft,int size,double N,double fc,double fh,double* oup)
 	int sz=N;
 	double X[sz];
 	double no22=(N-1)/2;
-	int ino22=(int)no22;
 	if(ft[0]=='l')
 	{
 		dfilt_sincs(N,fc,X);
diff --git a/src/c/signalProcessing/fft/fft842.c b/src/c/signalProcessing/fft/fft842.c
index 162490fe..e3737f86 100644
--- a/src/c/signalProcessing/fft/fft842.c
+++ b/src/c/signalProcessing/fft/fft842.c
@@ -29,7 +29,6 @@ static int fastlog2( int n)
 
 void fft842 (doubleComplex* b, int size , int in)
 {
-  double fn;
   doubleComplex temp ;
 
   int L[16],L1,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,L13,L14,L15;
@@ -39,7 +38,6 @@ void fft842 (doubleComplex* b, int size , int in)
 
   n2pow = fastlog2( size );
   nthpo = size ;
-  fn = 1.0 / (double)nthpo;
 
 
   if(in==FORWARD)
diff --git a/src/c/signalProcessing/filt_sinc/dfilt_sincs.c b/src/c/signalProcessing/filt_sinc/dfilt_sincs.c
index 1b7d1b18..384f372a 100644
--- a/src/c/signalProcessing/filt_sinc/dfilt_sincs.c
+++ b/src/c/signalProcessing/filt_sinc/dfilt_sincs.c
@@ -39,7 +39,6 @@ void dfilt_sincs(double N,double fc,double* oup)
 	xn[(int)no2]=2*fc;
 	xd[(int)no2]=1;
 	}
-	double x[sz];
 	int k;
 	for(k=0;k<N;k++)
 	{
diff --git a/src/c/signalProcessing/fsfirlin/dfsfirlina.c b/src/c/signalProcessing/fsfirlin/dfsfirlina.c
index e44f464e..8d4a6d70 100644
--- a/src/c/signalProcessing/fsfirlin/dfsfirlina.c
+++ b/src/c/signalProcessing/fsfirlin/dfsfirlina.c
@@ -41,7 +41,6 @@ void dfsfirlina(double* hd,int size,double flag,double* hst)
 	double eps=pow(-1,(n-1));
 	double s1[sz+1],s2[sz+1];
 	double s[2*(sz)+1];
-	double sr[2*(sz)+1];
 	if(flag==1)
 	{
 	int j,k;
diff --git a/src/c/signalProcessing/sincd/dsincds.c b/src/c/signalProcessing/sincd/dsincds.c
index c9f2f815..f1744b69 100644
--- a/src/c/signalProcessing/sincd/dsincds.c
+++ b/src/c/signalProcessing/sincd/dsincds.c
@@ -28,7 +28,6 @@ void dsincds(double n,double flg,double* oup)
 	double eps=pow(-1,(n-1));
 	double s1[sz+1],s2[sz+1];
 	double s[2*(sz)+1];
-	double sr[2*(sz)+1];
 	if(flg==1)
 	{
 	int j,k;
diff --git a/src/c/signalProcessing/sincd/u8sincds.c b/src/c/signalProcessing/sincd/u8sincds.c
index ff0a2acc..0c2584f2 100644
--- a/src/c/signalProcessing/sincd/u8sincds.c
+++ b/src/c/signalProcessing/sincd/u8sincds.c
@@ -28,7 +28,6 @@ void u8sincds(int n,int flg,double* oup)
 	double eps=pow(-1,(n-1));
 	double s1[sz+1],s2[sz+1];
 	double s[2*(sz)+1];
-	double sr[2*(sz)+1];
 	if(flg==1)
 	{
 	int j,k;
diff --git a/src/c/signalProcessing/transforms/dct/cdcta.c b/src/c/signalProcessing/transforms/dct/cdcta.c
index 7ff83645..3bd58bf5 100644
--- a/src/c/signalProcessing/transforms/dct/cdcta.c
+++ b/src/c/signalProcessing/transforms/dct/cdcta.c
@@ -22,13 +22,12 @@
 
 void cdcta(floatComplex *in,int row,int col,int sign,floatComplex *out)
 {
-	int i,j,k,u,v;
+	int i,j,u,v;
 	int n;
 	int x,y;
 	float res,ress,vv,ff;
-	float re,z,q,m;
-	floatComplex accu = FloatComplex(0, 0);
-	floatComplex temp,mm,aa,bb,cc;
+	float z,q;
+	floatComplex temp,mm,aa,bb;
 	if(sign==-1)
 	{
 		if(row==1)
@@ -183,7 +182,6 @@ void cdcta(floatComplex *in,int row,int col,int sign,floatComplex *out)
 					out[x]=FloatComplex(0,0);
 					for(i=0;i<row;i++)
 					{
-						re=0;
 						mm=FloatComplex(0,0);
 						temp=FloatComplex(0,0);
 						for(j=0;j<col;j++)
diff --git a/src/c/signalProcessing/transforms/dct/ddcta.c b/src/c/signalProcessing/transforms/dct/ddcta.c
index 3802c816..87159af6 100644
--- a/src/c/signalProcessing/transforms/dct/ddcta.c
+++ b/src/c/signalProcessing/transforms/dct/ddcta.c
@@ -17,7 +17,7 @@
 
 void ddcta(double *in,int row,int col,int sign,double *out)
 {
-	int i,j,k,u,v;
+	int i,j,u,v;
 	int n;
 	int x,y;
 	double res,ress;
diff --git a/src/c/signalProcessing/transforms/dct/sdcta.c b/src/c/signalProcessing/transforms/dct/sdcta.c
index 9f380e8b..ff09e5d6 100644
--- a/src/c/signalProcessing/transforms/dct/sdcta.c
+++ b/src/c/signalProcessing/transforms/dct/sdcta.c
@@ -17,7 +17,7 @@
 
 void sdcta(float *in,int row,int col,int sign,float *out)
 {
-	int i,j,k,u,v;
+	int i,j,u,v;
 	int n;
 	int x,y;
 	float res,ress;
diff --git a/src/c/signalProcessing/transforms/dct/zdcta.c b/src/c/signalProcessing/transforms/dct/zdcta.c
index 3ae2e333..bf71200b 100644
--- a/src/c/signalProcessing/transforms/dct/zdcta.c
+++ b/src/c/signalProcessing/transforms/dct/zdcta.c
@@ -22,13 +22,12 @@
 
 void zdcta(doubleComplex *in,int row,int col,int sign,doubleComplex *out)
 {
-	int i,j,k,u,v;
+	int i,j,u,v;
 	int n;
 	int x,y;
 	double  res,ress,vv,ff;
-	double  re,z,q,m;
-	doubleComplex accu = DoubleComplex(0, 0);
-	doubleComplex temp,mm,aa,bb,cc;
+	double  z,q;
+	doubleComplex temp,mm,aa,bb;
 	if(sign==-1)
 	{
 		if(row==1)
@@ -183,7 +182,6 @@ void zdcta(doubleComplex *in,int row,int col,int sign,doubleComplex *out)
 					out[x]=DoubleComplex(0,0);
 					for(i=0;i<row;i++)
 					{
-						re=0;
 						mm=DoubleComplex(0,0);
 						temp=DoubleComplex(0,0);
 						for(j=0;j<col;j++)
diff --git a/src/c/signalProcessing/transforms/idct/cidcta.c b/src/c/signalProcessing/transforms/idct/cidcta.c
index ae98ba19..dad49504 100644
--- a/src/c/signalProcessing/transforms/idct/cidcta.c
+++ b/src/c/signalProcessing/transforms/idct/cidcta.c
@@ -22,13 +22,12 @@
 
 void cidcta(floatComplex *in,int row,int col,floatComplex *out)
 {
-	int i,j,k,u,v;
+	int i,j,u,v;
 	int n=col;
 	int x,y;
-	float res,ress,vv,ff;
-	float re,z,q,m;
-	floatComplex accu = FloatComplex(0, 0);
-	floatComplex temp,mm,aa,bb;
+	float res,ress,vv;
+	float z,q;
+	floatComplex temp,mm,aa;
 	if(row==1)
 	{
 		res=1./sqrt(n);
@@ -72,7 +71,6 @@ void cidcta(floatComplex *in,int row,int col,floatComplex *out)
 				out[x]=FloatComplex(0,0);
 				for(i=0;i<row;i++)
 				{
-					re=0;
 					mm=FloatComplex(0,0);
 					temp=FloatComplex(0,0);
 					for(j=0;j<col;j++)
diff --git a/src/c/signalProcessing/transforms/idct/didcta.c b/src/c/signalProcessing/transforms/idct/didcta.c
index 5f475160..671c5105 100644
--- a/src/c/signalProcessing/transforms/idct/didcta.c
+++ b/src/c/signalProcessing/transforms/idct/didcta.c
@@ -17,7 +17,7 @@
 
 void didcta(double *in,int row,int col,double *out)
 {
-	int i,j,k,u,v;
+	int i,j,u,v;
 	int n=col;
 	int x,y;
 	double res,ress;
diff --git a/src/c/signalProcessing/transforms/idct/sidcta.c b/src/c/signalProcessing/transforms/idct/sidcta.c
index 62f85da0..54dffeef 100644
--- a/src/c/signalProcessing/transforms/idct/sidcta.c
+++ b/src/c/signalProcessing/transforms/idct/sidcta.c
@@ -17,7 +17,7 @@
 
 void sidcta(float *in,int row,int col,float *out)
 {
-	int i,j,k,u,v;
+	int i,j,u,v;
 	int n=col;
 	int x,y;
 	float res,ress;
diff --git a/src/c/signalProcessing/transforms/idct/zidcta.c b/src/c/signalProcessing/transforms/idct/zidcta.c
index cc01c966..10c035cd 100644
--- a/src/c/signalProcessing/transforms/idct/zidcta.c
+++ b/src/c/signalProcessing/transforms/idct/zidcta.c
@@ -22,13 +22,12 @@
 
 void zidcta(doubleComplex *in,int row,int col,doubleComplex *out)
 {
-	int i,j,k,u,v;
+	int i,j,u,v;
 	int n=col;
 	int x,y;
-	double res,ress,vv,ff;
-	double re,z,q,m;
-	doubleComplex accu = DoubleComplex(0, 0);
-	doubleComplex temp,mm,aa,bb;
+	double res,ress,vv;
+	double z,q;
+	doubleComplex temp,mm,aa;
 	if(row==1)
 	{
 		res=1./sqrt(n);
@@ -72,7 +71,6 @@ void zidcta(doubleComplex *in,int row,int col,doubleComplex *out)
 				out[x]=DoubleComplex(0,0);
 				for(i=0;i<row;i++)
 				{
-					re=0;
 					mm=DoubleComplex(0,0);
 					temp=DoubleComplex(0,0);
 					for(j=0;j<col;j++)
diff --git a/src/c/signalProcessing/zpch2/dzpch2s.c b/src/c/signalProcessing/zpch2/dzpch2s.c
index 22a46a64..73ca0212 100644
--- a/src/c/signalProcessing/zpch2/dzpch2s.c
+++ b/src/c/signalProcessing/zpch2/dzpch2s.c
@@ -19,7 +19,7 @@
 double dzpch2s(double N, double A, double omegar,doubleComplex* zeros,doubleComplex* poles) 
 {
 	int k,j;
-	double e,xk,realVal,gain;
+	double xk,gain;
 	doubleComplex accumulate1,accumulate2,tp1,tp2;
 	accumulate1=DoubleComplex(1,0);	
 	accumulate2=DoubleComplex(1,0);