mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-08-16 18:38:28 +02:00
compute_dim_cord_vect done
This commit is contained in:
parent
d13693a822
commit
a4ba5deac4
@ -4979,29 +4979,22 @@ qmckl_exit_code qmckl_compute_dim_cord_vect (
|
||||
return QMCKL_INVALID_ARG_2;
|
||||
}
|
||||
|
||||
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) {
|
||||
|
||||
for (int p=2; p <= cord_num; ++p){
|
||||
for (int k=p-1; k >= 0; --k) {
|
||||
if (k != 0) {
|
||||
lmax = p - k;
|
||||
} else {
|
||||
lmax = p - k - 2;
|
||||
}
|
||||
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
|
||||
for (int l = lmax; l >= 0; --l) {
|
||||
if ( ((p - k - l) & 1)==1) continue;
|
||||
printf("in da loop\n");
|
||||
*dim_cord_vect = *dim_cord_vect + 1;
|
||||
*dim_cord_vect=*dim_cord_vect+1;
|
||||
}
|
||||
}
|
||||
}
|
||||
printf("hello 2 %d\n", *dim_cord_vect);
|
||||
|
||||
|
||||
return QMCKL_SUCCESS;
|
||||
}
|
||||
#+end_src
|
||||
|
Loading…
Reference in New Issue
Block a user