Fortran では、function の副作用は嫌われていて、文法的には許されていますが、道徳的に禁止になっています。Fortran95 以降では pure 指定子が出来たので、常に pure というのが行儀のよさだと思います。副作用のある場合は、サブルーチンを使います。この…