From 5577334c17d0e5ca17f63a2e5fb7e1fab307cead Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Wed, 16 Jun 2021 12:21:27 +0200
Subject: [PATCH] Fix C99

---
 src/cipsi/stochastic_cipsi.irp.f | 2 +-
 src/csf/tree_utils.c             | 9 ++++++---
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/cipsi/stochastic_cipsi.irp.f b/src/cipsi/stochastic_cipsi.irp.f
index 77c6ed48..781fcda6 100644
--- a/src/cipsi/stochastic_cipsi.irp.f
+++ b/src/cipsi/stochastic_cipsi.irp.f
@@ -13,7 +13,7 @@ subroutine run_stochastic_cipsi
 
   double precision :: rss
   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
   threshold_generators = 1.d0
diff --git a/src/csf/tree_utils.c b/src/csf/tree_utils.c
index 019fdaa9..5336a6da 100644
--- a/src/csf/tree_utils.c
+++ b/src/csf/tree_utils.c
@@ -62,7 +62,8 @@ void getIthBF(Node *inode, int isomo, bool foundBF, int NSOMOMax, int getaddr, i
 
     if(isomo == NSOMOMax){
         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;
                 inode = inode->PREV;
             }
@@ -150,7 +151,8 @@ void getIthDet(Node *inode, int isomo, bool foundBF, int NSOMOMax, int getaddr,
 
     if(isomo == NSOMOMax){
         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;
                 inode = inode->PREV;
             }
@@ -224,7 +226,8 @@ void getDetlist(Node *inode, int isomo, int NSOMOMax, int *vecBF, int *detlist){
 
     if(isomo == NSOMOMax){
         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));
         }
         detlist[inode->addr]=idet;