xwb -- you are right ! i completely forgot that little detail ... i'm a bit rusty :(
instead, try something like the following revised code :-
DO I = 1 , N
READ (1,*) A (I)
BACKSPACE 1
IF ( A (I) == 85337 ) THEN
READ (1,*) A (I), B (I) , C (I) , D (I) , E (I) , F (I)
ELSE...