From cdea4aa298dde19faf1061977f709a3f93e830ee Mon Sep 17 00:00:00 2001
From: Aidan Chalk <aidan.chalk@stfc.ac.uk>
Date: Tue, 9 May 2017 14:26:47 +0100
Subject: [PATCH] Fixed some issues that seemed to appear between C and FORTRAN
 that i don't think should be required

---
 fortran_examples/test_n2.F90 | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/fortran_examples/test_n2.F90 b/fortran_examples/test_n2.F90
index 0943a54..9991890 100644
--- a/fortran_examples/test_n2.F90
+++ b/fortran_examples/test_n2.F90
@@ -38,8 +38,8 @@ Type(Cell), Dimension(:), Allocatable :: cells
 
 Contains
 
-Subroutine Interact_single(cell_i)
-Integer, Intent(in) :: cell_i
+Subroutine Interact_single(cell_i) BIND(C)
+Integer(Kind=C_INT), Intent(in) :: cell_i
 
 Integer :: i,j
 
@@ -85,9 +85,9 @@ end do
 
 End Subroutine
 
-Subroutine Interact(cell_i, cell_j)
+Subroutine Interact(cell_i, cell_j) BIND(C)
 
-Integer, Intent(in) :: cell_i, cell_j
+Integer(Kind=C_INT), Intent(in) :: cell_i, cell_j
 
 Integer :: i, j
 Real(Kind=dp) :: xx, yy, zz, r, f, ir, ir6, ir12, fxx, fyy, fzz, fix, fiy, fiz
@@ -205,6 +205,8 @@ do i = 1, 1000
   call cell_init(i, 1000)
 end do
 
+print *, "num_threads = ", num_threads
+
 sched = f_qsched_create()
 call qsched_init(sched, num_threads, 0)
 
-- 
GitLab