init Subroutine

private subroutine init(self)

初始化

Type Bound

density_summation

Arguments

Type IntentOptional Attributes Name
class(density_summation), intent(inout) :: self

Contents

Source Code


Source Code

    subroutine init(self)
        class(density_summation), intent(inout) :: self

        select case (spc_obj%density_summation_method)
        case ('continuous')
            self%density => continuous_density_summation
        case ('normalized')
            self%density => normalized_density_summation
        case ('denormalized')
            self%density => denormalized_density_summation
        case default
            self%density => denormalized_density_summation
        end select

    end subroutine init