RUNT VERSION FEB 7* B 17il2 Ut/?^/76 



365 10 RL(I»L) • RL(I#L) ♦ HOW(I.J) ♦ RNO'^CJ.D 



<flO RK(I,<.) » RK(I,^) - Ff IN{ J)*POT(I. J) ♦ •= ITN ( J ) ♦HQwC I . J ) 



436 RLdj-t) « RL(r»4) - FF IN( J ) ♦HOW( I. J ) - FITN( J ) ♦poK I . J ) 



463 <iX lFtJ-N)2,7»7 



466 2 Xll«)<12 



470 Y21-Y22 



471 P0l«PQ2 



473 T01.1Q2 



474 A911-4<)12 



476 *1J1]»A1012 



477 C11»C12 



501 S11'=S12 



502 t21«E22 

 504 7 CONTINUE 

 507 GO TO 1 



5o7 9 IS • f^ - 1 ♦ 1 



512 00 12 L ' 1.3 



513 RK(I.L) • kK(IS.L) ♦ (-1.0)**L 

 527 12 RL(I»L) ■= RL ( IS. L I ♦(-1.0 ) ♦♦L 



545 DO 11 J « l.N 



546 DO 16 IC ' 1»? 



547 16 IF (J .EO. JC(IC)) GO TO 11 

 555 JS » N - J ♦ 1 



560 PI(I.J) « RI( IS. JS) 



570 PJd.J) = RJdS.JS) 



601 RK(I.4) » RK(I,4) - FEINI J)*POT(I<;, JS) ♦ ^ t in ( J ) *HOW( IS. JS ) 



627 RL(I»4) ' RKI.4) - Ft IN ( J ) ♦HQW{ I"? , J S » - F I jvj { J ) ♦PCT ( I S. JS ) 



655 11 CONTINUE 



660 1 CONTINUE 



663 12 >= 



664 32 CO 22 I'l.N 



666 00 14 IC • 1.5 



667 14 IF(I .EO, JCtlO) GO TO 22 

 675 12 « 12 + 1 



677 II • 12 ♦ NC 



701 DO 31 L • 1.4 



702 8(I2»L) ' RK(I,L) 

 712 31 BULL) • RL<l.L) 



725 J2 « U 



726 DO 22 J-l.N 



730 DO 15 IC • 1.5 



731 15 IF (J .EO. JCdO) GO TO 22 

 737 J2 » J2 + 1 



741 JN « J2 ♦ NC 



743 *(I2. J2) • Rid. J) 



754 A(I2.JN) - - RJd.J) 



765 AdI,J2) ■ RJCI. J) 



776 AdI. JN) = Rid. J) 



1007 22 CONTINUE 



1014 SCALE=1. 



1015 NN • 2*NC 



1017 LL-LNEQF(50.NN,4.A»B,SCALE,ERASe) 



1030 PRINT 27. SCALE 



1035 27 FORMAK //.SX.+DETfRMlNANT' ♦.1PE12.4) 



1035 12-0 



1035 DO 26 I - l.N 



Table D-2. Continued 



123 



