[Analogue-commits] r309 - pkg/src

[noreply at r-forge.r-project.org]

Author: gsimpson
Date: 2013-03-21 16:22:33 +0100 (Thu, 21 Mar 2013)
New Revision: 309

Modified:
   pkg/src/distx.c
   pkg/src/distxy.c
Log:
fix uninitialise variable and minor tweka

Modified: pkg/src/distx.c
===================================================================
--- pkg/src/distx.c	2013-03-18 05:14:48 UTC (rev 308)
+++ pkg/src/distx.c	2013-03-21 15:22:33 UTC (rev 309)
@@ -237,6 +237,8 @@
     
     count = 0;
     dist = 0.0;
+    nomin = 0.0;
+
     for (j=0; j<nc; j++) {
 	if (R_FINITE(x[i1]) && R_FINITE(x[i2])) {
 	    dev = x[i1] - x[i2];

Modified: pkg/src/distxy.c
===================================================================
--- pkg/src/distxy.c	2013-03-18 05:14:48 UTC (rev 308)
+++ pkg/src/distxy.c	2013-03-21 15:22:33 UTC (rev 309)
@@ -48,6 +48,7 @@
     
     count = 0;
     dist = 0.0;
+
     for (j=0; j<nc; j++) {
 	if (R_FINITE(x[i1]) && R_FINITE(y[i2])) {
 	    dev = x[i1] - y[i2];
@@ -160,6 +161,8 @@
     
     count = 0;
     dist = 0.0;
+    dev = 0.0;
+
     for (j=0; j<nc; j++) {
 	if (R_FINITE(x[i1]) && R_FINITE(y[i2])) {
 	    if(x[i1] != 0 || y[i2] != 0) {
@@ -186,6 +189,8 @@
 	
     count = 0;
     dist = 0.0;
+    dev = 0.0;
+
     for (j=0; j<nc; j++) {
 	if (R_FINITE(x[i1]) && R_FINITE(y[i2])) {
 	    if(x[i1] != 0 || y[i2] != 0) {