add_vertex_occurrence Subroutine

  1. fossil_facet_object.f90
  2. fossil_facet_object
  3. add_vertex_occurrence

private elemental subroutine add_vertex_occurrence(self, vertex_id, facet_id)

Add vertex occurrence.

Arguments

Type IntentOptional AttributesName
class(facet_object), intent(inout) :: self

Facet.
integer(kind=I4P), intent(in) :: vertex_id

Vertex ID in local numeration, 1, 2 or 3.
integer(kind=I4P), intent(in) :: facet_id

Other facet ID containing vertex.

Source Code

add_vertex_occurrence

Source Code

   elemental subroutine add_vertex_occurrence(self, vertex_id, facet_id)
   !< Add vertex occurrence.
   class(facet_object), intent(inout) :: self      !< Facet.
   integer(I4P),        intent(in)    :: vertex_id !< Vertex ID in local numeration, 1, 2 or 3.
   integer(I4P),        intent(in)    :: facet_id  !< Other facet ID containing vertex.

   select case(vertex_id)
   case(1)
      call add_occurrence(occurrence=self%vertex_1_occurrence)
   case(2)
      call add_occurrence(occurrence=self%vertex_2_occurrence)
   case(3)
      call add_occurrence(occurrence=self%vertex_3_occurrence)
   endselect
   contains
      pure subroutine add_occurrence(occurrence)
      !< Add new occurrence into a generic occurrencies array.
      integer(I4P), allocatable, intent(inout) :: occurrence(:)     !< Occurrences array.
      integer(I4P), allocatable                :: occurrence_tmp(:) !< Temporary occurences array.
      integer(I4P)                             :: no                !< Occurrences number.

      if (allocated(occurrence)) then
         no = size(occurrence, dim=1)
         allocate(occurrence_tmp(1:no+1))
         occurrence_tmp(1:no) = occurrence
         occurrence_tmp(no+1) = facet_id
         call move_alloc(from=occurrence_tmp, to=occurrence)
      else
         allocate(occurrence(1))
         occurrence(1) = facet_id
      endif
      endsubroutine add_occurrence
   endsubroutine add_vertex_occurrence

All Procedures

aabb_assign_aabb aabb_node_assign_aabb_node aabb_tree_assign_aabb_tree add_facets add_facets add_vertex_occurrence allocate_facets analize bmax bmin build_connectivity check_normal check_vertices_occurrencies cli_parse cli_parse cli_parse cli_parse cli_parse cli_parse close_file closest_point closest_point compute_bb_from_facets compute_metrix compute_metrix compute_normal compute_normals compute_octants compute_octants compute_volume create_aabb_tree destroy destroy destroy destroy destroy distance distance distance distance distance distance_from_facets distance_from_facets do_ray_intersect do_ray_intersect do_ray_intersect edge_connection_in_other_ref facet_assign_facet file_stl_assign_file_stl first_child_node first_node flip_edge has_facets has_facets initialize initialize initialize initialize initialize is_allocated is_inside is_point_inside_polyhedron_ri is_point_inside_polyhedron_sa load_facets_number_from_file load_from_file load_from_file_ascii load_from_file_binary load_header_from_file make_normal_consistent mirror_by_matrix mirror_by_matrix mirror_by_normal mirror_by_normal nodes_number nodes_number_at_level open_file parent_node ray_intersections_number ray_intersections_number ray_intersections_number resize resize reverse_normal reverse_normals rotate_by_axis_angle rotate_by_axis_angle rotate_by_matrix rotate_by_matrix sanitize_normals save_facets_into_file_stl save_facets_into_file_stl save_geometry_tecplot_ascii save_geometry_tecplot_ascii save_geometry_tecplot_ascii save_header_into_file save_into_file save_into_file_ascii save_into_file_binary save_into_file_stl save_trailer_into_file solid_angle statistics tetrahedron_volume translate translate update_connectivity update_extents update_extents vertex vertex_global_id