construct_type_hcf_base_durner Module Function

module function construct_type_hcf_base_durner(alpha1, n1, w1, alpha2, n2, l) result(structure)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: alpha1
real(kind=real64), intent(in) :: n1
real(kind=real64), intent(in) :: w1
real(kind=real64), intent(in) :: alpha2
real(kind=real64), intent(in) :: n2
real(kind=real64), intent(in) :: l

Return Value class(abst_hcf_base), allocatable


Called by

proc~~construct_type_hcf_base_durner~~CalledByGraph proc~construct_type_hcf_base_durner construct_type_hcf_base_durner interface~construct_type_hcf_base_durner construct_type_hcf_base_durner interface~construct_type_hcf_base_durner->proc~construct_type_hcf_base_durner proc~construct_hcf_base construct_hcf_base proc~construct_hcf_base->interface~construct_type_hcf_base_durner proc~create_type_hcf_base create_type_hcf_base proc~create_type_hcf_base->proc~construct_hcf_base proc~create_type_hcf_base_impedance create_type_hcf_base_impedance proc~create_type_hcf_base_impedance->proc~construct_hcf_base proc~create_type_hcf_base_impedance_viscosity create_type_hcf_base_impedance_viscosity proc~create_type_hcf_base_impedance_viscosity->proc~construct_hcf_base proc~create_type_hcf_base_viscosity create_type_hcf_base_viscosity proc~create_type_hcf_base_viscosity->proc~construct_hcf_base proc~initialize_holder_hcfs initialize_holder_hcfs proc~initialize_holder_hcfs->proc~create_type_hcf_base 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_base_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_base_durner(alpha1, n1, w1, alpha2, n2, l) result(structure)
        implicit none
        real(real64), intent(in) :: alpha1
        real(real64), intent(in) :: n1
        real(real64), intent(in) :: w1
        real(real64), intent(in) :: alpha2
        real(real64), intent(in) :: n2
        real(real64), intent(in) :: l
        class(abst_hcf_base), allocatable :: structure

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

        structure%alpha1 = alpha1
        structure%n1 = n1
        structure%m1 = 1.0d0 - 1.0d0 / n1
        structure%w1 = w1
        structure%alpha2 = alpha2
        structure%n2 = n2
        structure%m2 = 1.0d0 - 1.0d0 / n2
        structure%w2 = 1.0d0 - w1
        structure%l = l

    end function construct_type_hcf_base_durner