From 751d918147e50c13308225015f420854817bab0c Mon Sep 17 00:00:00 2001
From: vijay gopal chilkuri <vijay.gopal.c@gmail.com>
Date: Thu, 8 Jul 2021 10:28:15 +0530
Subject: [PATCH] Fixed size_t to int64_t. #22

---
 org/qmckl_jastrow.org | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/org/qmckl_jastrow.org b/org/qmckl_jastrow.org
index 62c49ff..2b76cbc 100644
--- a/org/qmckl_jastrow.org
+++ b/org/qmckl_jastrow.org
@@ -1132,15 +1132,15 @@ assert(!qmckl_nucleus_provided(context));
 
 rc = qmckl_get_nucleus_coord (context, 'N', nucl_coord2);
 assert(rc == QMCKL_SUCCESS);
-for (size_t k=0 ; k<3 ; ++k) {
-  for (size_t i=0 ; i<nucl_num ; ++i) {
+for (int64_t k=0 ; k<3 ; ++k) {
+  for (int64_t i=0 ; i<nucl_num ; ++i) {
     assert( nucl_coord[nucl_num*k+i] == nucl_coord2[3*i+k] );
   }
 }
 
 rc = qmckl_get_nucleus_coord (context, 'T', nucl_coord2);
 assert(rc == QMCKL_SUCCESS);
-for (size_t i=0 ; i<3*nucl_num ; ++i) {
+for (int64_t i=0 ; i<3*nucl_num ; ++i) {
   assert( nucl_coord[i] == nucl_coord2[i] );
 }
 
@@ -1154,7 +1154,7 @@ assert(rc == QMCKL_SUCCESS);
 
 rc = qmckl_get_nucleus_charge(context, nucl_charge2);
 assert(rc == QMCKL_SUCCESS);
-for (size_t i=0 ; i<nucl_num ; ++i) {
+for (int64_t i=0 ; i<nucl_num ; ++i) {
   assert( nucl_charge[i] == nucl_charge2[i] );
  }
 assert(qmckl_nucleus_provided(context));
@@ -3594,7 +3594,7 @@ qmckl_exit_code qmckl_provide_een_rescaled_n(qmckl_context context)
    | int64_t       | nucl_num                                                 | in  | Number of atoms                     |
    | int64_t       | cord_num                                                 | in  | Order of polynomials                |
    | double        | rescale_factor_kappa_en                                  | in  | Factor to rescale ee distances      |
-   | double        | en_distance[walk_num][elec_num][nucl_num]            | in  | Electron-nucleus distances          |
+   | double        | en_distance[walk_num][elec_num][nucl_num]                | in  | Electron-nucleus distances          |
    | double        | een_rescaled_n[walk_num][elec_num][nucl_num][0:cord_num] | out | Electron-nucleus rescaled distances |
 
     #+begin_src f90 :comments org :tangle (eval f) :noweb yes