TaoSetType: Do not destroy gradient and stepdirection vectors

This fixes the case

Vec G;
Tao tao;
TaoSetGradient(tao,G...);
TaoSetType(tao,...);