Number of vertices and triangle indices of arrow(..., n_segments, ...).
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n_segments |
segments around |
||
| integer, | intent(out) | :: | n_vertices |
number of vertices |
||
| integer, | intent(out) | :: | n_indices |
number of triangle indices (3 per triangle) |
pure subroutine arrow_size(n_segments, n_vertices, n_indices) integer, intent(in) :: n_segments !! segments around integer, intent(out) :: n_vertices !! number of vertices integer, intent(out) :: n_indices !! number of triangle indices (3 per triangle) n_vertices = 6 * (n_segments + 1) + 2 n_indices = 15 * n_segments end subroutine arrow_size