[Vegan-commits] r696 - pkg/vegan/src

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

Author: jarioksa
Date: 2009-02-24 10:44:48 +0100 (Tue, 24 Feb 2009)
New Revision: 696

Modified:
   pkg/vegan/src/nestedness.c
Log:
nestedness: fixed comparision between an integer and a pointer

Modified: pkg/vegan/src/nestedness.c
===================================================================
--- pkg/vegan/src/nestedness.c	2009-02-24 07:52:35 UTC (rev 695)
+++ pkg/vegan/src/nestedness.c	2009-02-24 09:44:48 UTC (rev 696)
@@ -354,14 +354,14 @@
     /* Swap */
     if (ev == 1) {
         /* fixed column sums */
-        if (direct == 0) {
+        if (*direct == 0) {
             m[ij[0]] = sm[1];
             m[ij[1]] = sm[0];
             m[ij[2]] = sm[3];
             m[ij[3]] = sm[2];
         }
         /* fixed row sums */
-        if (direct == 1) {
+        if (*direct == 1) {
         for (k = 0; k < 4; k++)
             m[ij[0]] = sm[2];
             m[ij[1]] = sm[3];