float scale = chf("scale");

matrix3 trn = primintrinsic(0, "transform", @primnum);

matrix scalem = maketransform(0, 0, {0,0,0}, {0,0,0}, scale, @P);

trn *= matrix3(scalem);

setprimintrinsic(0, "transform", @primnum, trn);

#wrangle #Houdini