31 MAY 1979


41450 4460P93 4470 4510
452013f,5
4530 4540
4550it98 4560 4590 4600A'99 4610
4620C 4630C 4640#100 4650#200 4660 46701300
4660
-4690


WRI T    ,(6U3)TRAT1,TRAT2 ,TRAT3,TRATZ [*O.AT, X,  TPATL=tF6.3*  Xo'T. T2=0 ,=6 ,,5X, &ITFATJ== vfZ6.3,5XsTRATZ=6,F6 3,) WnITC(69.86)C11,C22,C17vC21 FOR',4AT(SX, :C11='49F6o3, 5X,'.22--',F6*3,SX,'C12=' ,
IF6*.3,SXs C21=' F6*3/)
   I TE 6, 98) MOB I 1 082,10D3 MCSZ
 FOr.f.AT (5X,1 '406 1=, F6& 2v 5Xo 140B2= * oF8s 2v 5X, &'0 ?AO3= '*f92,5X," ,1MC3Z=4 ,F8 ,2/) WRITE('6, 99) MfBMDBHPHZ,.,S FORMAT 5X,'COND M00=1 9 FSo.,3K,'HALL MOB= ,F8e2,3X, 16HALL FACTOR=' ,F7,43X,'RpZsISTIVITv=' ,F8.3///f/


 CONTINUE CONT INU:
 WRI TE (6300)
 FORMAT(IHI)
 S TOP
 I ND