append_real_values Subroutine

public subroutine append_real_values(values, add_values)

既存の実数要素配列へ追加分を連結する。

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(inout), allocatable :: values(:)
real(kind=dp), intent(in) :: add_values(:)

Called by

proc~~append_real_values~~CalledByGraph proc~append_real_values append_real_values proc~build_template_mesh build_template_mesh proc~build_template_mesh->proc~append_real_values 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

  subroutine append_real_values(values, add_values)
    real(dp), allocatable, intent(inout) :: values(:)
    real(dp), intent(in) :: add_values(:)
    real(dp), allocatable :: tmp(:)
    integer(i32) :: n0, n1

    n0 = size(values)
    n1 = size(add_values)
    allocate (tmp(n0 + n1))
    if (n0 > 0) tmp(1:n0) = values
    if (n1 > 0) tmp(n0 + 1:n0 + n1) = add_values
    call move_alloc(tmp, values)
  end subroutine append_real_values