SUBROUTINE wrt_impulse
      END SUBROUTINE wrt_impulse