Searched refs:cubeloops (Results 1 – 3 of 3) sorted by relevance
258 if (.not. allocated(cubeloops)) allocate(cubeloops(0:nprocs))269 cubeloops(0) = 0271 cubeloops(i) = sum(cubedists(0:i-1))276 call mpi_bcast(cubeloops(0), nprocs + 1, impi, master, comm, ierr)277 cube_start = cubeloops(myid) + 1278 cube_finish = cubeloops(myid+1)
101 integer(ip), dimension(:), save, allocatable :: cubeloops variable
744 if (allocated(cubeloops)) deallocate(cubeloops)