rpat_assign_rpat Subroutine

  1. foreseer_riemann_pattern_compressible_object.f90
  2. foreseer_riemann_pattern_compressible_object
  3. rpat_assign_rpat

private pure subroutine rpat_assign_rpat(lhs, rhs)

Operator =.

Arguments

Type IntentOptional AttributesName
class(riemann_pattern_compressible_object), intent(inout) :: lhs

Left hand side.
class(riemann_pattern_object), intent(in) :: rhs

Right hand side.

Source Code

rpat_assign_rpat

Source Code

   pure subroutine rpat_assign_rpat(lhs, rhs)
   !< Operator `=`.
   class(riemann_pattern_compressible_object), intent(inout) :: lhs !< Left hand side.
   class(riemann_pattern_object),              intent(in)    :: rhs !< Right hand side.

   select type(rhs)
   class is(riemann_pattern_compressible_object)
      lhs%eos_1 = rhs%eos_1
      lhs%r_1   = rhs%r_1
      lhs%u_1   = rhs%u_1
      lhs%p_1   = rhs%p_1
      lhs%a_1   = rhs%a_1
      lhs%eos_4 = rhs%eos_4
      lhs%r_4   = rhs%r_4
      lhs%u_4   = rhs%u_4
      lhs%p_4   = rhs%p_4
      lhs%a_4   = rhs%a_4
      lhs%u23   = rhs%u23
      lhs%p23   = rhs%p23
      lhs%r_2   = rhs%r_2
      lhs%a_2   = rhs%a_2
      lhs%r_3   = rhs%r_3
      lhs%a_3   = rhs%a_3
      lhs%s_1   = rhs%s_1
      lhs%s_2   = rhs%s_2
      lhs%s_3   = rhs%s_3
      lhs%s_4   = rhs%s_4
   endselect
   endsubroutine rpat_assign_rpat

All Procedures

add add add_euler array array compute_derivate compute_dt compute_fluxes compute_fluxes compute_fluxes_from_primitive compute_post_rarefaction compute_post_shock compute_roe_state compute_states23_from_u23 compute_u23 compute_up23 compute_waves compute_waves_u23 compute_waves_up23 cons_assign_cons cons_divide_real cons_multiply_cons cons_multiply_real conservative_compressible conservative_compressible_instance conservative_compressible_pointer conservative_to_primitive_compressible cp cv delta density description description description description destroy destroy destroy dEuler_dt energy energy eos_assign_eos eos_compressible eos_compressible_instance eos_compressible_pointer eta euler_assign_euler euler_assign_real euler_local_error euler_multiply_euler euler_multiply_real g gm1 gp1 impose_boundary_conditions initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize left_eigenvectors momentum negative negative output parse_command_line_interface positive positive pressure pressure prim_assign_prim prim_divide_real prim_multiply_prim prim_multiply_real primitive_compressible primitive_compressible_instance primitive_compressible_pointer primitive_to_conservative_compressible R real_multiply_cons real_multiply_euler real_multiply_prim reconstruct_interfaces_characteristic reconstruct_interfaces_conservative reconstruct_interfaces_primitive right_eigenvectors rpat_assign_rpat save_time_serie solve solve solve solve solve speed_of_sound sub sub sub_euler temperature velocity