type_GCC_NonSeg_Pa_Construct Module Function

module function type_GCC_NonSeg_Pa_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_pa_construct~~CalledByGraph proc~type_gcc_nonseg_pa_construct type_GCC_NonSeg_Pa_Construct interface~type_gcc_nonseg_pa_construct type_GCC_NonSeg_Pa_Construct interface~type_gcc_nonseg_pa_construct->proc~type_gcc_nonseg_pa_construct interface~type_gcc_non_segregation_pa type_gcc_non_segregation_pa interface~type_gcc_non_segregation_pa->interface~type_gcc_nonseg_pa_construct

Source Code

    module function type_GCC_NonSeg_Pa_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_pa :: property)

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

    end function type_GCC_NonSeg_Pa_Construct