LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-02 02:35:18 +02:00
Code Releases Activity

Fix C99

Browse Source
This commit is contained in:
Anthony Scemama 2021-06-16 12:21:27 +02:00
parent c2bb6e92f0
commit 5577334c17
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/cipsi/stochastic_cipsi.irp.f
View File

@ -13,7 +13,7 @@ subroutine run_stochastic_cipsi
double precision :: rss double precision :: rss
double precision, external :: memory_of_double double precision, external :: memory_of_double
PROVIDE H_apply_buffer_allocated PROVIDE H_apply_buffer_allocated distributed_davidson mo_two_e_integrals_in_map
N_iter = 1 N_iter = 1
threshold_generators = 1.d0 threshold_generators = 1.d0

9
src/csf/tree_utils.c
View File

@ -62,7 +62,8 @@ void getIthBF(Node *inode, int isomo, bool foundBF, int NSOMOMax, int getaddr, i
if(isomo == NSOMOMax){ if(isomo == NSOMOMax){
if(inode->addr == getaddr){ if(inode->addr == getaddr){
for(int i = NSOMOMax-1; i > -1; i--){ int i;
for(i = NSOMOMax-1; i > -1; i--){
vecBF[i] = inode->cpl; vecBF[i] = inode->cpl;
inode = inode->PREV; inode = inode->PREV;
} }
@ -150,7 +151,8 @@ void getIthDet(Node *inode, int isomo, bool foundBF, int NSOMOMax, int getaddr,
if(isomo == NSOMOMax){ if(isomo == NSOMOMax){
if(inode->addr == getaddr){ if(inode->addr == getaddr){
for(int i = NSOMOMax-1; i > -1; i--){ int i;
for(i = NSOMOMax-1; i > -1; i--){
vecBF[i] = inode->cpl; vecBF[i] = inode->cpl;
inode = inode->PREV; inode = inode->PREV;
} }
@ -224,7 +226,8 @@ void getDetlist(Node *inode, int isomo, int NSOMOMax, int *vecBF, int *detlist){
if(isomo == NSOMOMax){ if(isomo == NSOMOMax){
int idet=0; int idet=0;
for(int k=0;k<NSOMOMax;k++){ int k;
for(k=0;k<NSOMOMax;k++){
if(vecBF[k] == 1) idet = idet | (1<<(NSOMOMax-1-k)); if(vecBF[k] == 1) idet = idet | (1<<(NSOMOMax-1-k));
} }
detlist[inode->addr]=idet; detlist[inode->addr]=idet;