Dear Sir: Please very kindly advise me why my progrom can not run even compile passed. I want read one column data and write them into one row data. What is the correct program? Please also send me an e-mail to [log in to unmask] Thank you very much. Bai ---- fxb.r---- 1,1.1 2,2.2 3,3.3 4,4.4 5,5.5 6,6.6 7,7.7 8,8.8 ---- fx.txt--- 1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 ----- program --- PROGRAM dd Dimension FX(8) OPEN( 1, FILE ='fxb.r') OPEN( 3, FILE ='fx.txt') DO 8 READ (1,*,END=11,ERR=8) Nx,fx(ix) If (fx(ix)<0) then fx(ix)=0.0 end if write (3,*) (fx(ix),ix=1,8) END DO 11 close (1) close (3) END _________________________________________________________________________ Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com. Share information about yourself, create your own public profile at http://profiles.msn.com. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%