add ddw_tJ.f90