The R Project SVN R

Rev

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

Rev 75197 Rev 77400
Line 1091... Line 1091...
1091 
#endif
 1091 
#endif
1092 
    PROTECT(ans = allocVector(VECSXP, nans));
 1092 
    PROTECT(ans = allocVector(VECSXP, nans));
1093 
    for(int i = 0; i < 9; i++)
 1093 
    for(int i = 0; i < 9; i++)
1094 
	SET_VECTOR_ELT(ans, i, allocVector(i > 0 ? INTSXP : REALSXP, N));
 1094 
	SET_VECTOR_ELT(ans, i, allocVector(i > 0 ? INTSXP : REALSXP, N));
1095 
    if(!isgmt) {
 1095 
    if(!isgmt) {
1096 
	SET_VECTOR_ELT(ans, 9, allocVector(STRSXP, n));
 1096 
	SET_VECTOR_ELT(ans, 9, allocVector(STRSXP, N));
1097 
#ifdef HAVE_TM_GMTOFF
 1097 
#ifdef HAVE_TM_GMTOFF
1098 
	SET_VECTOR_ELT(ans, 10, allocVector(INTSXP, n));
 1098 
	SET_VECTOR_ELT(ans, 10, allocVector(INTSXP, N));
1099 
#endif
 1099 
#endif
1100 
    }
 1100 
    }
1101 
 
 1101 
 
1102 
    PROTECT(ansnames = allocVector(STRSXP, nans));
 1102 
    PROTECT(ansnames = allocVector(STRSXP, nans));
1103 
    for(int i = 0; i < nans; i++)
 1103 
    for(int i = 0; i < nans; i++)