From e66950bbeaebd15752101b2df7b7ef8b7d3f52d5 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Mon, 14 Nov 2022 15:06:58 +0100
Subject: [PATCH] Fixed Fortran interface of Jastrow (2)

---
 org/qmckl_jastrow.org | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/org/qmckl_jastrow.org b/org/qmckl_jastrow.org
index 33c0a76..f5bc3d5 100644
--- a/org/qmckl_jastrow.org
+++ b/org/qmckl_jastrow.org
@@ -978,7 +978,7 @@ interface
    end function qmckl_set_jastrow_aord_num
    
    integer(qmckl_exit_code) function qmckl_set_jastrow_bord_num (context, &
-        aord_num) bind(C)
+        bord_num) bind(C)
      use, intrinsic :: iso_c_binding
      import
      implicit none
@@ -987,7 +987,7 @@ interface
    end function qmckl_set_jastrow_bord_num
    
    integer(qmckl_exit_code) function qmckl_set_jastrow_cord_num (context, &
-        aord_num) bind(C)
+        cord_num) bind(C)
      use, intrinsic :: iso_c_binding
      import
      implicit none
@@ -1010,8 +1010,8 @@ interface
      import
      implicit none
      integer (qmckl_context) , intent(in)  , value :: context
-     integer(c_int64_t), intent(in) :: type_nucl_vector(size_max)
      integer(c_int64_t), intent(in), value  :: size_max
+     integer(c_int64_t), intent(in) :: type_nucl_vector(size_max)
    end function qmckl_set_jastrow_type_nucl_vector
    
    integer(qmckl_exit_code) function qmckl_set_jastrow_aord_vector(context, &
@@ -1020,8 +1020,8 @@ interface
      import
      implicit none
      integer (qmckl_context) , intent(in)  , value :: context
-     double precision, intent(in) :: aord_vector(size_max)
      integer(c_int64_t), intent(in), value  :: size_max
+     double precision, intent(in) :: aord_vector(size_max)
    end function qmckl_set_jastrow_aord_vector
    
    integer(qmckl_exit_code) function qmckl_set_jastrow_bord_vector(context, &
@@ -1030,8 +1030,8 @@ interface
      import
      implicit none
      integer (qmckl_context) , intent(in)  , value :: context
-     double precision, intent(in) :: bord_vector(size_max)
      integer(c_int64_t), intent(in), value  :: size_max
+     double precision, intent(in) :: bord_vector(size_max)
    end function qmckl_set_jastrow_bord_vector
    
    integer(qmckl_exit_code) function qmckl_set_jastrow_cord_vector(context, &
@@ -1040,8 +1040,8 @@ interface
      import
      implicit none
      integer (qmckl_context) , intent(in)  , value :: context
-     double precision, intent(in) :: cord_vector(size_max)
      integer(c_int64_t), intent(in), value  :: size_max
+     double precision, intent(in) :: cord_vector(size_max)
    end function qmckl_set_jastrow_cord_vector
    
 end interface