G_APPEND
Setenv(vp, lp = globone(lp, G_APPEND));
case G_APPEND:
v->vec[subscr - 1] = globone(p, G_APPEND);