The R Project SVN R

Rev

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

Rev 63171 Rev 63181
Line 955... Line 955...
955 
    /*-- Now, global var.  nn := #{coefficients} = (relevant degree)+1 */
 955 
    /*-- Now, global var.  nn := #{coefficients} = (relevant degree)+1 */
956 
 
 956 
 
957 
    if (nn == 1) return;
 957 
    if (nn == 1) return;
958 
 
 958 
 
959 
    /* Use a single allocation as these as small */
 959 
    /* Use a single allocation as these as small */
960 
    void *vmax = vmaxget();
 960 
    const void *vmax = vmaxget();
961 
    tmp = (double *) R_alloc((size_t) (10*nn), sizeof(double));
 961 
    tmp = (double *) R_alloc((size_t) (10*nn), sizeof(double));
962 
    pr = tmp; pi = tmp + nn; hr = tmp + 2*nn; hi = tmp + 3*nn;
 962 
    pr = tmp; pi = tmp + nn; hr = tmp + 2*nn; hi = tmp + 3*nn;
963 
    qpr = tmp + 4*nn; qpi = tmp + 5*nn; qhr = tmp + 6*nn; qhi = tmp + 7*nn;
 963 
    qpr = tmp + 4*nn; qpi = tmp + 5*nn; qhr = tmp + 6*nn; qhi = tmp + 7*nn;
964 
    shr = tmp + 8*nn; shi = tmp + 9*nn;
 964 
    shr = tmp + 8*nn; shi = tmp + 9*nn;
965
965