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