change_col_real Subroutine

private subroutine change_col_real(this, i, val)

Type Bound

column

Arguments

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

Source Code

    subroutine change_col_real(this, i, val)
        class(column), intent(inout) :: this
        integer, intent(in) :: i
        real(rk), intent(in) :: val

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

        this % rcol(i) = val

    end subroutine change_col_real