smooth_interior_vtx_implementation Submodule

  1. smooth_interior_vtx.f90
  2. smooth_interior_vtx_implementation

Uses

  • module~~smooth_interior_vtx_implementation~~UsesGraph module~smooth_interior_vtx_implementation smooth_interior_vtx_implementation module~tools_mesh_optimize tools_mesh_optimize module~smooth_interior_vtx_implementation->module~tools_mesh_optimize module~class_bc class_bc module~tools_mesh_optimize->module~class_bc module~class_connectivity class_connectivity module~tools_mesh_optimize->module~class_connectivity module~class_iterating class_iterating module~tools_mesh_optimize->module~class_iterating module~class_vertex class_vertex module~tools_mesh_optimize->module~class_vertex module~class_mesh class_mesh module~tools_mesh_optimize->module~class_mesh module~class_motion class_motion module~class_bc->module~class_motion module~class_bc_math class_bc_math module~class_bc->module~class_bc_math module~class_psblas class_psblas module~class_bc->module~class_psblas module~class_bc_wall class_bc_wall module~class_bc->module~class_bc_wall module~class_connectivity->module~class_psblas module~class_iterating->module~class_psblas module~class_vector class_vector module~class_vertex->module~class_vector module~class_vertex->module~class_psblas module~class_mesh->module~class_connectivity module~class_mesh->module~class_vertex module~class_cell class_cell module~class_mesh->module~class_cell module~class_keytable class_keytable module~class_mesh->module~class_keytable module~class_mesh->module~class_vector module~class_surface class_surface module~class_mesh->module~class_surface module~class_least_squares class_least_squares module~class_mesh->module~class_least_squares module~class_mesh->module~class_psblas psb_base_mod psb_base_mod module~class_mesh->psb_base_mod module~grid_interface grid_interface module~class_mesh->module~grid_interface module~class_face class_face module~class_mesh->module~class_face module~class_motion->module~class_vector module~class_motion->module~class_psblas module~class_cell->module~class_psblas module~class_bc_math->module~class_psblas module~class_vector->module~class_psblas module~class_surface->module~class_connectivity module~class_cylinder class_cylinder module~class_surface->module~class_cylinder module~class_plane class_plane module~class_surface->module~class_plane module~class_least_squares->module~class_connectivity module~class_least_squares->module~class_psblas module~class_stopwatch class_stopwatch module~class_psblas->module~class_stopwatch module~tools_psblas tools_psblas module~class_psblas->module~tools_psblas module~class_bc_wall->module~class_mesh module~class_bc_wall->module~class_bc_math module~class_bc_wall->module~class_vector module~class_bc_wall->module~class_psblas module~class_dimensions class_dimensions module~class_bc_wall->module~class_dimensions module~class_material class_material module~class_bc_wall->module~class_material module~units_interface units_interface module~grid_interface->module~units_interface module~object_interface object_interface module~grid_interface->module~object_interface module~class_face->module~class_psblas module~class_cylinder->module~class_vertex module~class_cylinder->module~class_vector module~class_cylinder->module~class_psblas module~class_stopwatch->psb_base_mod module~class_stopwatch->module~tools_psblas module~tools_psblas->psb_base_mod psb_prec_mod psb_prec_mod module~tools_psblas->psb_prec_mod psb_krylov_mod psb_krylov_mod module~tools_psblas->psb_krylov_mod module~class_dimensions->module~class_psblas module~class_material->module~class_psblas matlib matlib module~class_material->matlib module~units_interface->module~object_interface module~class_plane->module~class_vector module~class_plane->module~class_psblas

Contents

Module Procedures


Module Procedures

module procedure smooth_interior_vtx module subroutine smooth_interior_vtx(iv, msh, c2v, shared_flag, all_tets)

$ j = 0 $ random_iteration: do $ j = j + 1 $ $ ! set up connectivity array and check if any cells are tangled $ local_tangled = 0 $ $ update_volume: do itet = 1,num_incident_tet $ $ if ( shared_flag(iv) ) then ! use global id's set above $ ic = ic2v(itet) $ $ !lookup vertex numbers, global cell and vertex id's $ call get_kt_row (msh%ov2c_sup, ic, iv2c) $ $ ! make a copy to dereference iv2c $ index_copy(1:4) = iv2c(1:4) $

Read more…

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: iv
type(mesh), intent(inout) :: msh
type(connectivity), intent(in) :: c2v
logical, intent(in) :: shared_flag(:)
logical, intent(in) :: all_tets(:)