The R Project SVN R

Rev

Rev 4903 | Rev 5055 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4903 Rev 4928
Line 285... Line 285...
285 
    w = INTEGER(sw);
 285 
    w = INTEGER(sw);
286 
 
 286 
 
287 
    /* Determine the column widths */
 287 
    /* Determine the column widths */
288 
 
 288 
 
289 
    for (j = 0; j < c; j++) {
 289 
    for (j = 0; j < c; j++) {
- 
 
 290 
	formatComplex(&x[j * r], r,
290 
	formatComplex(&x[j * r], r, &wr[j], &dr[j], &er[j],
 291 
		      &wr[j], &dr[j], &er[j],
291 
		      &wi[j], &di[j], &ei[j]);
 292 
		      &wi[j], &di[j], &ei[j]);
292 
	if (!isNull(cl))
 293 
	if (!isNull(cl))
293 
	    clabw = strlen(CHAR(STRING(cl)[j]));
 294 
	    clabw = strlen(CHAR(STRING(cl)[j]));
294 
	else
 295 
	else
295 
	    clabw = IndexWidth(j + 1) + 3;
 296 
	    clabw = IndexWidth(j + 1) + 3;