col_constructor_character Subroutine

    subroutine col_constructor_character(this, dcol)
        class(column), intent(inout) :: this
        character(len=*), dimension(:), intent(in) :: dcol

        integer :: elem_len

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

        this % n = size(dcol, dim=1)
        elem_len = len(dcol(1))

        this % dtype = CHARACTER_NUM
        allocate (character(elem_len) :: this % charcol(this % n))
        this % charcol = dcol

    end subroutine col_constructor_character