col_constructor_integer Subroutine

    subroutine col_constructor_integer(this, dcol)
        class(column), intent(inout) :: this
        integer(ik), dimension(:), intent(in) :: dcol

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

        this % dtype = INTEGER_NUM
        this % n = size(dcol, dim=1)
        allocate (this % icol(this % n))
        this % icol = dcol

    end subroutine col_constructor_integer