construct_type_hcf_impedance Module Function

module function construct_type_hcf_impedance(omega) result(structure)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: omega

Return Value class(abst_hcf_impedance), allocatable


Called by

proc~~construct_type_hcf_impedance~~CalledByGraph proc~construct_type_hcf_impedance construct_type_hcf_impedance interface~construct_type_hcf_impedance construct_type_hcf_impedance interface~construct_type_hcf_impedance->proc~construct_type_hcf_impedance proc~construct_hcf_impedance construct_hcf_impedance proc~construct_hcf_impedance->interface~construct_type_hcf_impedance proc~create_type_hcf_base_impedance create_type_hcf_base_impedance proc~create_type_hcf_base_impedance->proc~construct_hcf_impedance proc~create_type_hcf_base_impedance_viscosity create_type_hcf_base_impedance_viscosity proc~create_type_hcf_base_impedance_viscosity->proc~construct_hcf_impedance proc~create_type_hcf_impedance create_type_hcf_impedance proc~create_type_hcf_impedance->proc~construct_hcf_impedance proc~create_type_hcf_impedance_viscosity create_type_hcf_impedance_viscosity proc~create_type_hcf_impedance_viscosity->proc~construct_hcf_impedance proc~initialize_holder_hcfs initialize_holder_hcfs proc~initialize_holder_hcfs->proc~create_type_hcf_base_impedance proc~initialize_holder_hcfs->proc~create_type_hcf_base_impedance_viscosity proc~initialize_holder_hcfs->proc~create_type_hcf_impedance proc~initialize_holder_hcfs->proc~create_type_hcf_impedance_viscosity interface~initialize_holder_hcfs holder_hcfs%initialize_holder_hcfs interface~initialize_holder_hcfs->proc~initialize_holder_hcfs

Source Code

    module function construct_type_hcf_impedance(omega) result(structure)
        implicit none
        real(real64), intent(in) :: omega
        class(abst_hcf_impedance), allocatable :: structure

        if (allocated(structure)) deallocate (structure)
        allocate (type_hcf_impedance_exp :: structure)

        structure%omega = omega

    end function construct_type_hcf_impedance