type_GCC_NonSeg_m_Construct Module Function

module function type_GCC_NonSeg_m_Construct(Tf, Lf) result(property)

Arguments

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

Return Value class(abst_gcc), allocatable


Called by

proc~~type_gcc_nonseg_m_construct~~CalledByGraph proc~type_gcc_nonseg_m_construct type_GCC_NonSeg_m_Construct interface~type_gcc_nonseg_m_construct type_GCC_NonSeg_m_Construct interface~type_gcc_nonseg_m_construct->proc~type_gcc_nonseg_m_construct interface~type_gcc_non_segregation_m type_gcc_non_segregation_m interface~type_gcc_non_segregation_m->interface~type_gcc_nonseg_m_construct

Source Code

    module function type_GCC_NonSeg_m_Construct(Tf, Lf) result(property)
        implicit none
        real(real64), intent(in) :: Tf
        real(real64), intent(in) :: Lf
        class(abst_gcc), allocatable :: property

        if (allocated(property)) deallocate (property)
        allocate (type_gcc_non_segregation_m :: property)

        select type (this => property)
        type is (type_gcc_non_segregation_m)
            this%Lf = Lf
            this%Tf = Tf
        end select

    end function type_GCC_NonSeg_m_Construct