change_col_character Subroutine

private subroutine change_col_character(this, i, val)

Type Bound

column

Arguments

Type IntentOptional Attributes Name
class(column), intent(inout) :: this
integer, intent(in) :: i
character(len=*), intent(in) :: val

Source Code

    subroutine change_col_character(this, i, val)
        class(column), intent(inout) :: this
        integer, intent(in) :: i
        character(len=*), intent(in) :: val

        if (this % dtype /= CHARACTER_NUM) error stop 'column is not of type character'

        this % charcol(i) = val

    end subroutine change_col_character