add subroutine dlaed0