fortran2003のFLUSH命令を使え。