... than you will ever need and "read" through it character by character. something like character (len=1000000000000000000) :: x !or maybe smaller ;) x=' ' read(...) x do i = 1,10000000000000000000000 if(x(I:I) == '1') vector(i) = 1 if(x(I:I) == '0') vector(i) = 0 if(x(I:I) == ' ') exit enddo here, I will ...

sk8terg1rl wrote: ... do i = 1,10000000000000000000000 if(x(I:I) == '1') vector(i) = 1 if(x(I:I) == '0') vector(i) = 0 if(x(I:I) == ' ') exit enddo here, I will be the actual length Why did you do x(I:I) instead of x(I)? It's a design flaw of F77 that persists into the later versions of the standard because of backward ...

..., bigger than you will ever need and "read" through it character by character. something like character (len=1000000000000000000) :: x !or maybe smaller ;) x=' ' read(...) x do i = 1,10000000000000000000000 if(x(I:I) == '1') vector(i) = 1 if(x(I:I) == '0') vector(i) = 0 if(x(I:I) == ' ') exit enddo here, I will be ...

... character string, bigger than you will ever need and "read" through it character by character. something like character (len=1000000000000000000) :: x !or maybe smaller ;) x=' ' read(...) x do i = 1,10000000000000000000000 if(x(I:I) == '1') vector(i) = 1 if(x(I:I) == '0') vector(i) = 0 if(x(I:I) == ' ') exit enddo here, I will be the ...