change_col_logical Subroutine

private subroutine change_col_logical(this, i, val)

Type Bound

column

Arguments

Type IntentOptional Attributes Name
class(column), intent(inout) :: this
integer, intent(in) :: i
logical, intent(in) :: val

Source Code

    subroutine change_col_logical(this, i, val)
        class(column), intent(inout) :: this
        integer, intent(in) :: i
        logical, intent(in) :: val

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

        this % lcol(i) = val

    end subroutine change_col_logical