Re: Does this string processing work for you?


"Arjen Markus" <arjen.markus@xxxxxxxxxx> wrote in message
news:1127994635.662422.247740@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> But what happens with a loop like:
>
> read( s, *, err=1 ) ( v(i) ,i=7,100,3 )
>
> (By the way the final value of "i" with the Intel Fortran compiler
> on Linux is 103)
>
> Regards,
>
> Arjen
>

The task is to find a EASY way to process unknown #items from file record
strings.
Your bum-fuzzling artifice above is not pertinent to this task, but if you
HAVE to spread the items into the receiving array
below can do your 7,100,3 spreading
! -------------------
program process_string
character(200) :: s = '1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17'
integer :: v(100), n

s(len_trim(s)+1:) = ' ' // char(0)
read (s,*,err=1) (v(7+(n-1)*3),n=1,size(v))

1 write (*,'(999I3)') n, v(1:n-1)
end program


18 0 0 0 0 0 0 1 0 0 2 0 0 3 0 0 4 0


.

Quantcast