Skip to content
Snippets Groups Projects
Commit cdea4aa2 authored by Aidan Chalk's avatar Aidan Chalk
Browse files

Fixed some issues that seemed to appear between C and FORTRAN that i don't think should be required

parent a3a6f11c
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment