素朴な疑問なんですが
write( *,101) n
write(10,101) n

こういう式って一行にまとめられないんですか