Remove unused variables.

7 files changed, 5 insertions, 13 deletions

diff --git a/src/PJ_isea.c b/src/PJ_isea.c
index 3097e762..cd3314e6 100644
--- a/src/PJ_isea.c
+++ b/src/PJ_isea.c
@@ -976,13 +976,11 @@ ISEA_STATIC
 struct isea_pt
 isea_forward(struct isea_dgg *g, struct isea_geo *in)
 {
-	int             tri, downtri;
+	int             tri;
 	struct isea_pt  out, coord;
 
 	tri = isea_transform(g, in, &out);
 
-	downtri = (((tri - 1) / 5) % 2 == 1);
-
 	if (g->output == ISEA_PLANE) {
 		isea_tri_plane(tri, &out, g->radius);
 		return out;
diff --git a/src/PJ_lcca.c b/src/PJ_lcca.c
index dc27a282..2625024f 100644
--- a/src/PJ_lcca.c
+++ b/src/PJ_lcca.c
@@ -51,7 +51,7 @@ INVERSE(e_inverse); /* ellipsoid & spheroid */
 }
 FREEUP; if (P) { if (P->en) pj_dalloc(P->en); pj_dalloc(P); } }
 ENTRY0(lcca)
-	double s2p0, N0, R0, tan0, tan20;
+	double s2p0, N0, R0, tan0;
 
 	if (!(P->en = pj_enfn(P->es))) E_ERROR_0;
 	if (!pj_param(P->ctx, P->params, "tlat_0").i) E_ERROR(50);
@@ -63,7 +63,6 @@ ENTRY0(lcca)
 	N0 = sqrt(R0);
 	R0 *= P->one_es * N0;
 	tan0 = tan(P->phi0);
-	tan20 = tan0 * tan0;
 	P->r0 = N0 / tan0;
 	P->C = 1. / (6. * R0 * N0);
 	P->inv = e_inverse;
diff --git a/src/PJ_qsc.c b/src/PJ_qsc.c
index 1c7a4435..cb91e86a 100644
--- a/src/PJ_qsc.c
+++ b/src/PJ_qsc.c
@@ -109,7 +109,7 @@ FORWARD(e_forward);
         double sinlon, coslon;
         double q, r, s;
         double theta, phi;
-        double t, mu, nu;
+        double t, mu; /* nu; */
         int area;
 
         /* Convert the geodetic latitude to a geocentric latitude.
diff --git a/src/cs2cs.c b/src/cs2cs.c
index 357c4859..9a61993e 100644
--- a/src/cs2cs.c
+++ b/src/cs2cs.c
@@ -53,7 +53,6 @@ tag = '#';	/* beginning of line tag character */
 "%s\nusage: %s [ -eEfIlrstvwW [args] ] [ +opts[=arg] ]\n"
 "                   [+to [+opts[=arg] [ files ]\n";
 
-static struct FACTORS facs;
 static double (*informat)(const char *, 
                           char **); /* input data deformatter function */
 
diff --git a/src/gen_cheb.c b/src/gen_cheb.c
index 82cd926a..f06a7449 100644
--- a/src/gen_cheb.c
+++ b/src/gen_cheb.c
@@ -10,7 +10,7 @@
 #endif
 	void
 gen_cheb(int inverse, projUV (*proj)(projUV), char *s, PJ *P, int iargc, char **iargv) {
-	int NU = 15, NV = 15, i, res = -1, errin = 0, pwr;
+	int NU = 15, NV = 15, res = -1, errin = 0, pwr;
 	char *arg, fmt[15];
 	projUV low, upp, resid;
 	Tseries *F;
@@ -33,7 +33,7 @@ gen_cheb(int inverse, projUV (*proj)(projUV), char *s, PJ *P, int iargc, char **
 	if (iargc > 0) { /* proj execution audit trail */
 		int n = 0, L;
 
-		for( i = 0 ; iargc ; --iargc) {
+		for ( ; iargc ; --iargc) {
 			arg = *iargv++;
 			if (*arg != '+') {
 				if (!n) { putchar('#'); ++n; }
diff --git a/src/geocent.c b/src/geocent.c
index d95a778b..6ac6c40b 100644
--- a/src/geocent.c
+++ b/src/geocent.c
@@ -362,10 +362,8 @@ void pj_Convert_Geocentric_To_Geodetic (GeocentricInfo *gi,
     double CPHI;     /* cos of searched geodetic latitude */
     double SPHI;     /* sin of searched geodetic latitude */
     double SDPHI;    /* end-criterium: addition-theorem of sin(Latitude(iter)-Latitude(iter-1)) */
-    int At_Pole;     /* indicates location is in polar region */
     int iter;        /* # of continous iteration, max. 30 is always enough (s.a.) */
 
-    At_Pole = FALSE;
     P = sqrt(X*X+Y*Y);
     RR = sqrt(X*X+Y*Y+Z*Z);
 
@@ -373,7 +371,6 @@ void pj_Convert_Geocentric_To_Geodetic (GeocentricInfo *gi,
     if (P/gi->Geocent_a < genau) {
 
 /*  special case, if P=0. (X=0., Y=0.) */
-        At_Pole = TRUE;
 	*Longitude = 0.;
 
 /*  if (X,Y,Z)=(0.,0.,0.) then Height becomes semi-minor axis
diff --git a/src/pj_init.c b/src/pj_init.c
index bea4f86c..a7de2df4 100644
--- a/src/pj_init.c
+++ b/src/pj_init.c
@@ -422,7 +422,6 @@ pj_init_ctx(projCtx ctx, int argc, char **argv) {
 
     /* check if +init present */
     if (pj_param(ctx, start, "tinit").i) {
-        paralist *last = curr;
         int found_def = 0;
 
         if (!(curr = get_init(ctx,&start, curr,