Is there a way to store the index ii after which the line ends, so the sum can just go ip to this one.
I tried this, but - no surprise - it doesn't work...
(Hope you understand, waht I mean)
[CODE]
read (line, *, end=888) (val(ii), ii = 1, linemax)
k = ii !k is that ii where the line...