00001 interface
00002 INTEGER FUNCTION COLLIDE_Init(mpi_comm,gridStart,gridSize)
00003 integer, intent(in) :: mpi_comm
00004 double precision, intent(in) :: gridStart(3), gridSize(3)
00005 end subroutine
00006
00007 subroutine COLLIDE_Boxes(c,nObj,boxes)
00008 integer, intent(in) :: c, nObj
00009 double precision, intent(in) :: boxes(6,nObj)
00010 end subroutine
00011 subroutine COLLIDE_Boxes_prio(c,nObj,boxes,prio)
00012 integer, intent(in) :: c, nObj
00013 double precision, intent(in) :: boxes(6,nObj)
00014 integer, intent(in) :: prio(nObj)
00015 end subroutine
00016
00017 integer function COLLIDE_Count(c)
00018 integer, intent(in) :: c
00019 end function
00020 subroutine COLLIDE_List(c,collisions)
00021 integer, intent(in) :: c
00022 integer, intent(out) :: collisions(3,:)
00023 end subroutine
00024
00025 subroutine COLLIDE_Destroy(c)
00026 integer, intent(in) :: c
00027 end subroutine
00028
00029 end interface