蛇足だが >>259 の
do while ( .true. )
は
do
だけでおｋ

まあ、
do while (io==0)
に直させるためにワザと do while にしたのかもしれないが