type_material_manager Derived Type

type, public :: type_material_manager


Inherits

type~~type_material_manager~~InheritsGraph type~type_material_manager type_material_manager holder_wrfs holder_wrfs type~type_material_manager->holder_wrfs wrf type~holder_dens holder_dens type~type_material_manager->type~holder_dens den type~holder_gccs holder_gccs type~type_material_manager->type~holder_gccs gcc type~holder_hcfs holder_hcfs type~type_material_manager->type~holder_hcfs hcf type~holder_sphs holder_sphs type~type_material_manager->type~holder_sphs sph type~holder_thcs holder_thcs type~type_material_manager->type~holder_thcs thc type~holder_vhcs holder_vhcs type~type_material_manager->type~holder_vhcs vhc type~abst_den abst_den type~holder_dens->type~abst_den p type~abst_gcc abst_gcc type~holder_gccs->type~abst_gcc p type~abst_hcf abst_hcf type~holder_hcfs->type~abst_hcf p type~abst_sph abst_sph type~holder_sphs->type~abst_sph p type~abst_thc abst_thc type~holder_thcs->type~abst_thc p type~abst_vhc abst_vhc type~holder_vhcs->type~abst_vhc p type~abst_hcf_base abst_hcf_base type~abst_hcf->type~abst_hcf_base base type~abst_hcf_impedance abst_hcf_impedance type~abst_hcf->type~abst_hcf_impedance impedance type~abst_hcf_viscosity abst_hcf_viscosity type~abst_hcf->type~abst_hcf_viscosity viscosity

Inherited by

type~~type_material_manager~~InheritedByGraph type~type_material_manager type_material_manager type~type_properties_manager type_properties_manager type~type_properties_manager->type~type_material_manager materials type~type_ftdss type_ftdss type~type_ftdss->type~type_properties_manager property

Components

Type Visibility Attributes Name Initial
type(holder_dens), private, allocatable :: den(:)
type(holder_gccs), private, allocatable :: gcc(:)
type(holder_hcfs), private, allocatable :: hcf(:)
integer(kind=int32), private, allocatable :: region_id_map(:)
type(holder_sphs), private, allocatable :: sph(:)
type(holder_thcs), private, allocatable :: thc(:)
type(holder_vhcs), private, allocatable :: vhc(:)
type(holder_wrfs), private, allocatable :: wrf(:)

Type-Bound Procedures

procedure, public, pass(self) :: get_den => get_den_ptr

  • public function get_den_ptr(self, region_id) result(den_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(in), target :: self
    integer(kind=int32), intent(in) :: region_id

    Return Value class(abst_den), pointer

procedure, public, pass(self) :: get_gcc => get_gcc_ptr

  • public function get_gcc_ptr(self, region_id) result(gcc_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(in), target :: self
    integer(kind=int32), intent(in) :: region_id

    Return Value class(abst_gcc), pointer

procedure, public, pass(self) :: get_hcf => get_hcf_ptr

  • public function get_hcf_ptr(self, region_id) result(hcf_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(in), target :: self
    integer(kind=int32), intent(in) :: region_id

    Return Value class(abst_hcf), pointer

procedure, public, pass(self) :: get_sph => get_sph_ptr

  • public function get_sph_ptr(self, region_id) result(sph_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(in), target :: self
    integer(kind=int32), intent(in) :: region_id

    Return Value class(abst_sph), pointer

procedure, public, pass(self) :: get_thc => get_thc_ptr

  • public function get_thc_ptr(self, region_id) result(thc_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(in), target :: self
    integer(kind=int32), intent(in) :: region_id

    Return Value class(abst_thc), pointer

procedure, public, pass(self) :: get_vhc => get_vhc_ptr

  • public function get_vhc_ptr(self, region_id) result(vhc_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(in), target :: self
    integer(kind=int32), intent(in) :: region_id

    Return Value class(abst_vhc), pointer

procedure, public, pass(self) :: get_wrf => get_wrf_ptr

  • public function get_wrf_ptr(self, region_id) result(wrf_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(in), target :: self
    integer(kind=int32), intent(in) :: region_id

    Return Value class(abst_wrf), pointer

procedure, public, pass(self) :: initialize => initialize_type_material_manager

Source Code

    type :: type_material_manager
        private
        type(holder_thcs), allocatable :: thc(:)
        type(holder_dens), allocatable :: den(:)
        type(holder_sphs), allocatable :: sph(:)
        type(holder_vhcs), allocatable :: vhc(:)
        type(holder_gccs), allocatable :: gcc(:)
        type(holder_wrfs), allocatable :: wrf(:)
        type(holder_hcfs), allocatable :: hcf(:)

        integer(int32), allocatable :: region_id_map(:)
    contains
        procedure, public, pass(self) :: initialize => initialize_type_material_manager

        procedure, public, pass(self) :: get_thc => get_thc_ptr
        procedure, public, pass(self) :: get_den => get_den_ptr
        procedure, public, pass(self) :: get_sph => get_sph_ptr
        procedure, public, pass(self) :: get_vhc => get_vhc_ptr
        procedure, public, pass(self) :: get_gcc => get_gcc_ptr
        procedure, public, pass(self) :: get_wrf => get_wrf_ptr
        procedure, public, pass(self) :: get_hcf => get_hcf_ptr

    end type type_material_manager