57 





GO TO 90 



58 



92 



A(J,K) = TD 



59 





0(J,K) = TDI 



60 



90 



GO TO (700,40,60,70) ,11 



61 



700 



C = DET*A(J,K) - DETI*Q(J,K) 



62 





DETI = DET*0(J,K) + DETI*A(J,K) 



63 





DET = C 



64 





GO TO (30,100) , II 



65 



100 



CONTINUE 



66 





RETURN 



67 





END 



62 



