cell_id Function

public pure function cell_id(ix, iy, iz, nx, ny) result(cid)

3次元セル添字 (ix,iy,iz) をCSR一次元インデックスへ変換する。

Arguments

Type IntentOptional Attributes Name
integer(kind=i32), intent(in) :: ix
integer(kind=i32), intent(in) :: iy
integer(kind=i32), intent(in) :: iz
integer(kind=i32), intent(in) :: nx
integer(kind=i32), intent(in) :: ny

Return Value integer(kind=i32)


Called by

proc~~cell_id~~CalledByGraph proc~cell_id cell_id proc~find_first_hit_base_grid find_first_hit_base_grid proc~find_first_hit_base_grid->proc~cell_id proc~find_first_hit_base find_first_hit_base proc~find_first_hit_base->proc~find_first_hit_base_grid proc~find_first_hit find_first_hit proc~find_first_hit->proc~find_first_hit_base proc~find_first_hit_periodic2 find_first_hit_periodic2 proc~find_first_hit->proc~find_first_hit_periodic2 proc~find_first_hit_periodic2->proc~find_first_hit_base proc~sample_photo_raycast_particles sample_photo_raycast_particles proc~sample_photo_raycast_particles->proc~find_first_hit proc~sample_photo_species_state sample_photo_species_state proc~sample_photo_species_state->proc~sample_photo_raycast_particles proc~init_particle_batch_from_config init_particle_batch_from_config proc~init_particle_batch_from_config->proc~sample_photo_species_state

Source Code

  pure integer(i32) function cell_id(ix, iy, iz, nx, ny) result(cid)
    integer(i32), intent(in) :: ix, iy, iz, nx, ny
    cid = (iz - 1_i32)*(nx*ny) + (iy - 1_i32)*nx + ix
  end function cell_id