ver0026 f_to_d_e.f90/ f_to_d_h.f90 subroutine化