| 176 |
|
static IDF_FIELD * |
| 177 |
|
get_vlist(IDF_OBJECT *param, const char *zname) |
| 178 |
|
{ |
| 179 |
< |
const int itm_len = sizeof(IDF_FIELD)+6; |
| 180 |
< |
static char fld_buf[4*itm_len]; |
| 181 |
< |
static char *next_fbp = fld_buf; |
| 182 |
< |
int i; |
| 183 |
< |
IDF_FIELD *res; |
| 179 |
> |
#define itm_len (sizeof(IDF_FIELD)+6) |
| 180 |
> |
static char fld_buf[4*itm_len]; |
| 181 |
> |
static char *next_fbp = fld_buf; |
| 182 |
> |
int i; |
| 183 |
> |
IDF_FIELD *res; |
| 184 |
|
/* check if subsurface */ |
| 185 |
|
if (!strcmp(param->pname, SUBSURF_PNAME)) { |
| 186 |
|
if (zname != NULL) { |
| 219 |
|
sprintf(res->val, "%d", i/3); |
| 220 |
|
} |
| 221 |
|
return(res); |
| 222 |
+ |
#undef itm_len |
| 223 |
|
} |
| 224 |
|
|
| 225 |
|
/* Get/allocate surface polygon */ |
| 324 |
|
rad_subsurface(IDF_OBJECT *param, FILE *ofp) |
| 325 |
|
{ |
| 326 |
|
const char *sname = idf_getfield(param,NAME_FLD)->val; |
| 327 |
< |
SURFACE *surf = get_surface(idf_getfield(param,SS_VERT_FLD)); |
| 327 |
> |
SURFACE *surf = get_surface(get_vlist(param, NULL)); |
| 328 |
|
double area; |
| 329 |
|
int i; |
| 330 |
|
|