fortran 仕事用

open (unit=31, file='${ofname1}.txt', position='append', form='FORMATTED')
write(*,*) ${time_step}, pn, plonn,
write(31,*) ${time_step}, pn, plonn
close(31)