change_col_integer Subroutine

private subroutine change_col_integer(this, i, val)

Type Bound

column

Arguments

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

Source Code

    subroutine change_col_integer(this, i, val)
        class(column), intent(inout) :: this
        integer, intent(in) :: i
        integer(ik), intent(in) :: val

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

        this % icol(i) = val

    end subroutine change_col_integer