mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-08-16 18:38:28 +02:00
to be cleaned from print
This commit is contained in:
parent
4fac9f06c9
commit
d13693a822
@ -4979,23 +4979,28 @@ qmckl_exit_code qmckl_compute_dim_cord_vect (
|
|||||||
return QMCKL_INVALID_ARG_2;
|
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){
|
for (int p=2; p < cord_num; ++p){
|
||||||
|
printf("in da loop\n");
|
||||||
for (int k=p-1; k <= 0; --k) {
|
for (int k=p-1; k <= 0; --k) {
|
||||||
if (k != 0) {
|
if (k != 0) {
|
||||||
lmax = p - k;
|
lmax = p - k;
|
||||||
} else {
|
} else {
|
||||||
lmax = p - k - 2;
|
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;
|
// if ( iand(p - k - l, 1_8) == 1) continue;
|
||||||
// Does it make sense? it should
|
// Does it make sense? it should
|
||||||
if ( ((p - k - l) & 1)==1) continue;
|
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;
|
return QMCKL_SUCCESS;
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user