Swap order of arguments in get_excitation_degree_c

Author: scemama

external/simple_gpu

@@ -10,10 +10,10 @@
 #include <arm_neon.h>
 #endif
 
-void get_excitation_degree_c(const int32_t nint,
-                             const uint64_t *restrict key1,
+void get_excitation_degree_c(const uint64_t *restrict key1,
                              const uint64_t *restrict key2,
-                             int32_t *restrict degree_ptr) {
+                             int32_t *restrict degree_ptr,
+                             const int32_t nint) {
 
   const size_t n = (size_t)nint << 1; // n = Nint * 2
   uint64_t total_pop = 0;

src/determinants/c_slater_rules.c

@@ -9,7 +9,7 @@ subroutine get_excitation_degree(key1,key2,degree,Nint)
   integer(bit_kind), intent(in)  :: key1(Nint*2)
   integer(bit_kind), intent(in)  :: key2(Nint*2)
   integer, intent(out)           :: degree
-  call get_excitation_degree_c(Nint,key1,key2,degree)
+  call get_excitation_degree_c(key1,key2,degree,Nint)
 end
 
 subroutine get_excitation_degree_ref(key1,key2,degree,Nint)

src/determinants/slater_rules.irp.f

@@ -25,7 +25,7 @@ module slater_rules_opt
 
 #+begin_src f90 :tangle slater_rules_opt.f90
   interface
-    subroutine get_excitation_degree_c(nint, key1, key2, degree) bind(C)
+    subroutine get_excitation_degree_c(key1, key2, degree, nint) bind(C)
       import :: c_int, c_int64_t
       integer(c_int), value, intent(in)  :: nint
       integer(c_int64_t), intent(in)     :: key1(2*nint)
@@ -37,10 +37,10 @@ module slater_rules_opt
 
 
 #+begin_src c :tangle c_slater_rules.c
-void get_excitation_degree_c(const int32_t nint,
-                             const uint64_t *restrict key1,
+void get_excitation_degree_c(const uint64_t *restrict key1,
                              const uint64_t *restrict key2,
-                             int32_t *restrict degree_ptr) {
+                             int32_t *restrict degree_ptr,
+                             const int32_t nint) {
 
   const size_t n = (size_t)nint << 1; // n = Nint * 2
   uint64_t total_pop = 0;

src/determinants/slater_rules.org

@@ -3,7 +3,7 @@ module slater_rules_opt
   implicit none
 
   interface
-    subroutine get_excitation_degree_c(nint, key1, key2, degree) bind(C)
+    subroutine get_excitation_degree_c(key1, key2, degree, nint) bind(C)
       import :: c_int, c_int64_t
       integer(c_int), value, intent(in)  :: nint
       integer(c_int64_t), intent(in)     :: key1(2*nint)
@@ -12,5 +12,4 @@ subroutine get_excitation_degree_c(nint, key1, key2, degree) bind(C)
     end subroutine get_excitation_degree_c
   end interface
 
-
 end module slater_rules_opt