長方形外周を反時計回りに見たとき、辺遷移で通過するコーナー数を返す。
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer(kind=i32), | intent(in) | :: | edge_from | |||
| integer(kind=i32), | intent(in) | :: | edge_to |
integer(i32) function transition_corner_count(edge_from, edge_to) result(n_corner) integer(i32), intent(in) :: edge_from, edge_to integer(i32) :: i_from, i_to i_from = edge_order_index(edge_from) i_to = edge_order_index(edge_to) n_corner = modulo(i_to - i_from, 4_i32) end function transition_corner_count