f_to_d.f90 dft.sh 入出力修正