At 23:00 14-10-00 +0900, you wrote:
>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')
! Modified by JvO
> ix = 1 ! <===
> DO
> READ (1,*,END=11,ERR=8) Nx,fx(ix) !
> If (fx(ix)<0) then
> fx(ix)=0.0
> end if
> ix = ix + 1 ! <===
> END DO
>8 continue
> Print *, "ERROR"
> stop
>11 continue
> close (1)
> write (3,*) FX ! (fx(ix),ix=1,8)
> close (3)
>
> END
---
Met vriendelijke groet,
___ __
/ \/ / /
__/ /__/
Jan van Oosterwijk
Prinses Margrietlaan 12
2264 TB Leidschendam
tel. 070 888 0239
mailto:[log in to unmask]
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|