col_constructor_logical Subroutine

    subroutine col_constructor_logical(this, dcol)
        class(column), intent(inout) :: this
        logical, dimension(:), intent(in) :: dcol

        if (this % initialized) call this % destroy()
        this % initialized = .true.

        this % dtype = LOGICAL_NUM
        this % n = size(dcol, dim=1)
        allocate (this % lcol(this % n))
        this % lcol = dcol

    end subroutine col_constructor_logical