conservative_compressible_pointer Function

  1. foreseer_conservative_compressible.f90
  2. foreseer_conservative_compressible
  3. conservative_compressible_pointer

public function conservative_compressible_pointer(to, error_message) result(pointer_)

Return conservative_compressible pointer associated to conservative_object or its extensions until conservative_compressible included.

Arguments

Type IntentOptional AttributesName
class(conservative_object), intent(in), target:: to

Target of associate.
character(len=*), intent(in), optional :: error_message

Auxiliary error message.

Return Value class(conservative_compressible), pointer

Associated pointer.

Called By

proc~~conservative_compressible_pointer~~CalledByGraph proc~conservative_compressible_pointer conservative_compressible_pointer proc~solve~2 solve proc~solve~2->proc~conservative_compressible_pointer proc~compute_roe_state compute_roe_state proc~compute_roe_state->proc~conservative_compressible_pointer program~foreseer_test_conservative_compressible foreseer_test_conservative_compressible program~foreseer_test_conservative_compressible->proc~conservative_compressible_pointer proc~solve~3 solve proc~solve~3->proc~conservative_compressible_pointer proc~solve~5 solve proc~solve~5->proc~compute_roe_state
Help

Source Code

conservative_compressible_pointer

Source Code

   function conservative_compressible_pointer(to, error_message) result(pointer_)
   !< Return [[conservative_compressible]] pointer associated to [[conservative_object]] or its extensions until
   !< [[conservative_compressible]] included.
   !<
   !< @note A type-guard check is performed and error stop is raised if necessary.
   class(conservative_object), intent(in), target   :: to            !< Target of associate.
   character(*),               intent(in), optional :: error_message !< Auxiliary error message.
   class(conservative_compressible), pointer        :: pointer_      !< Associated pointer.

   select type(to)
   type is(conservative_compressible)
      pointer_ => to
   class default
      write(stderr, '(A)') 'error: cast conservative_object to conservative_compressible failed!'
      if (present(error_message)) write(stderr, '(A)') error_message
      stop
   endselect
   endfunction conservative_compressible_pointer

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