construct_type_gcc_seg_m Module Function

module function construct_type_gcc_seg_m(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~~construct_type_gcc_seg_m~~CalledByGraph proc~construct_type_gcc_seg_m construct_type_gcc_seg_m interface~construct_type_gcc_seg_m construct_type_GCC_Seg_m interface~construct_type_gcc_seg_m->proc~construct_type_gcc_seg_m interface~type_gcc_segregation_m type_gcc_segregation_m interface~type_gcc_segregation_m->interface~construct_type_gcc_seg_m

Source Code

    module function construct_type_gcc_seg_m(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_segregation_m :: property)

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

    end function construct_type_gcc_seg_m