Algorithm 270: finding eigenvectors by Gaussian elimination [F2]
Albert Newhouse · Communications of the ACM · 1965
f o r symbol : = ~'al(LA,'), caI('V'), ~'al(+D'), /'alt'--~,'), ~a l ( < t h e n , ) , val( + c 0 I ( < w h i l e ' ) , or+/("(hi') (hi spae(sb+7"or++[s+/mboll := .~ir(+i,(;~af/cr[<~ymlt+Ui:= 2; ti)r symbol := m d ( ' g o t o ' ) , r ( j ( q i e g l n ' ) , val('if'), /'~//('t:'or'), c ( ?l ( ' p r o e e d u r e ' ) , val(%;tllue'), v 0 l ( ' o w r / ' ) .c 0 [ ( I r e a l ' ) j r c+d(', ~) d o