updated DGETRUN