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 ...@@ -38,8 +38,8 @@ Type(Cell), Dimension(:), Allocatable :: cells
Contains Contains
Subroutine Interact_single(cell_i) Subroutine Interact_single(cell_i) BIND(C)
Integer, Intent(in) :: cell_i Integer(Kind=C_INT), Intent(in) :: cell_i
Integer :: i,j Integer :: i,j
...@@ -85,9 +85,9 @@ end do ...@@ -85,9 +85,9 @@ end do
End Subroutine 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 Integer :: i, j
Real(Kind=dp) :: xx, yy, zz, r, f, ir, ir6, ir12, fxx, fyy, fzz, fix, fiy, fiz 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 ...@@ -205,6 +205,8 @@ do i = 1, 1000
call cell_init(i, 1000) call cell_init(i, 1000)
end do end do
print *, "num_threads = ", num_threads
sched = f_qsched_create() sched = f_qsched_create()
call qsched_init(sched, num_threads, 0) 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