push_tri Subroutine

public pure subroutine push_tri(v0, v1, v2, itri, a, b, c)

三角形頂点 a,b,c を出力配列の次インデックスへ書き込む。

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(inout) :: v0(:,:)
real(kind=dp), intent(inout) :: v1(:,:)
real(kind=dp), intent(inout) :: v2(:,:)
integer(kind=i32), intent(inout) :: itri

現在までに書き込んだ三角形数（呼び出し内で1増加）。
real(kind=dp), intent(in) :: a(3)
real(kind=dp), intent(in) :: b(3)
real(kind=dp), intent(in) :: c(3)

Called by

proc~~push_tri~~CalledByGraph proc~push_tri push_tri proc~make_annulus make_annulus proc~make_annulus->proc~push_tri proc~make_box make_box proc~make_box->proc~push_tri proc~make_cylinder make_cylinder proc~make_cylinder->proc~push_tri proc~make_plate_hole make_plate_hole proc~make_plate_hole->proc~push_tri proc~make_sphere make_sphere proc~make_sphere->proc~push_tri proc~build_one_template build_one_template proc~build_one_template->proc~make_annulus proc~build_one_template->proc~make_box proc~build_one_template->proc~make_cylinder proc~build_one_template->proc~make_plate_hole proc~build_one_template->proc~make_sphere proc~make_disk make_disk proc~build_one_template->proc~make_disk proc~make_disk->proc~make_annulus proc~build_template_mesh build_template_mesh proc~build_template_mesh->proc~build_one_template proc~build_mesh_from_config build_mesh_from_config proc~build_mesh_from_config->proc~build_template_mesh proc~load_or_init_run_state load_or_init_run_state proc~load_or_init_run_state->proc~build_mesh_from_config program~main main program~main->proc~load_or_init_run_state

Source Code

  pure subroutine push_tri(v0, v1, v2, itri, a, b, c)
    real(dp), intent(inout) :: v0(:, :), v1(:, :), v2(:, :)
    integer(i32), intent(inout) :: itri
    real(dp), intent(in) :: a(3), b(3), c(3)
    itri = itri + 1
    v0(:, itri) = a
    v1(:, itri) = b
    v2(:, itri) = c
  end subroutine push_tri