diff --git a/org/qmckl_jastrow.org b/org/qmckl_jastrow.org
index 9674f47..518ddfb 100644
--- a/org/qmckl_jastrow.org
+++ b/org/qmckl_jastrow.org
@@ -4979,23 +4979,28 @@ qmckl_exit_code qmckl_compute_dim_cord_vect (
     return QMCKL_INVALID_ARG_2;
   }
 
-  dim_cord_vect = 0;
+  printf("hello %d\n", *dim_cord_vect);
+  *dim_cord_vect = 0;
 
   for (int p=2; p < cord_num; ++p){
+    printf("in da loop\n");
     for (int k=p-1; k <= 0; --k) {
       if (k != 0) {
         lmax = p - k;
       } else {
         lmax = p - k - 2;
       }
-      for (l = lmax; l <= 0; --l) {
+      printf("lmax %d\n", lmax);
+      for (int l = lmax; l <= 0; --l) {
 //        if ( iand(p - k - l, 1_8) == 1) continue;
 //    Does it make sense? it should
         if ( ((p - k - l) & 1)==1) continue;
-        dim_cord_vect = dim_cord_vect + 1;
+        printf("in da loop\n");
+        *dim_cord_vect = *dim_cord_vect + 1;
       }
     }
   }
+  printf("hello 2 %d\n", *dim_cord_vect);
 
   return QMCKL_SUCCESS;
 }