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.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|