5 ! Contributed by Keith Refson
9 character(len
=258) :: inp
= ' 1.0 1.0 1.0'
10 character(len
=7) :: inp2
= '1 2 3 4'
12 real :: a1
, a2
, a3
, a4
14 read(inp2
,*,iostat
=ios
) a1
, a2
, a3
, a4
17 read(inp
,*,iostat
=ios
) a1
, a2
, a3
, a4
19 ! write(*,*) 'IOSTAT=',ios