particle_status_name Function

public pure function particle_status_name(status) result(name)

collision query または粒子 step の失敗 status の名前。未知の値は 'unknown'。

Arguments

Type IntentOptional Attributes Name
integer(kind=i32), intent(in) :: status

Return Value character(len=32)


Source Code

  pure function particle_status_name(status) result(name)
    integer(i32), intent(in) :: status
    character(len=32) :: name

    select case (status)
    case (collision_query_image_limit)
      name = 'image_limit'
    case (collision_query_index_range)
      name = 'index_range'
    case (collision_query_invalid_segment)
      name = 'invalid_segment'
    case (collision_query_grid_stalled)
      name = 'grid_stalled'
    case (particle_step_invalid_boundary)
      name = 'invalid_boundary'
    case (particle_step_multiple_box_events)
      name = 'multiple_box_events'
    case (particle_step_ambiguous_open_corner)
      name = 'ambiguous_open_corner'
    case default
      name = 'unknown'
    end select
  end function particle_status_name