double x=20,y=20,z=5;
UF_FEATURE_SIGN sign = UF_NULLSIGN;
double block_orig[3] = {-x/2,-y/2,-z};
char len1[120],len2[120],len3[120];
int sig=15;
tag_t blk_obj;
gcvt(x,sig,len1);
gcvt(y,sig,len2);
gcvt(z,sig,len3);
char *block_len[3]={len1,len2,len3};
UF_CALL(UF_MODL_create_block(sign,NULL_TAG, block_orig, block_len, &blk_obj)); |