Re: A problem in writting a sequential binary file (compiled with LF95)
- From: "jon" <jon_d_r@xxxxxxx>
- Date: 27 Nov 2006 10:11:52 -0800
P.Wholey wrote:
Hey, Guys:program binarytest
real*8 test(20000)
integer*4 testnum
testnum=1001
do i=1,20000
test(i)=i*i*3./1000.
enddo
OPEN(33, FILE='test', ACCESS='sequential', FORM='binary')
do i=1,testnum
write(33)test(i)
enddo
CLOSE(33)
stop
end
Many thanks in advance!
This works ok with LF compiler version 7.10.02. It produces 1001 * 8 =
8008 bytes
.
- References:
- Prev by Date: Re: ARRAY EQUATION VS FORALL
- Next by Date: Re: Absoft f77 compiler error
- Previous by thread: Re: A problem in writting a sequential binary file (compiled with LF95)
- Index(es):
