|j|@h[i][j]-=f*@ort[j]endend@ort[m]=scale*@ort[m]@h[m][m-1]=scale*gendend#Accumulatetransformations(Algol'sortran