The R Project SVN R

Rev

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

Rev 68947 Rev 69670
Line 82... Line 82...
82 
	    vmaxset(vmax);
 82 
	    vmaxset(vmax);
83 
#endif
 83 
#endif
84 
	    return ML_POSINF;
 84 
	    return ML_POSINF;
85 
	}
 85 
	}
86 
	else if(ncalc < -1)
 86 
	else if(ncalc < -1)
87 
	    MATHLIB_WARNING4(_("bessel_y(%g): ncalc (=%ld) != nb (=%ld); alpha=%g. Arg. out of range?\n"),
 87 
	    MATHLIB_WARNING4(_("bessel_y(%g): ncalc (=%d) != nb (=%d); alpha=%g. Arg. out of range?\n"),
88 
			     x, ncalc, nb, alpha);
 88 
			     x, ncalc, nb, alpha);
89 
	else /* ncalc >= 0 */
 89 
	else /* ncalc >= 0 */
90 
	    MATHLIB_WARNING2(_("bessel_y(%g,nu=%g): precision lost in result\n"),
 90 
	    MATHLIB_WARNING2(_("bessel_y(%g,nu=%g): precision lost in result\n"),
91 
			     x, alpha+(double)nb-1);
 91 
			     x, alpha+(double)nb-1);
92 
    }
 92 
    }
Line 131... Line 131...
131 
    Y_bessel(&x, &alpha, &nb, by, &ncalc);
 131 
    Y_bessel(&x, &alpha, &nb, by, &ncalc);
132 
    if(ncalc != nb) {/* error input */
 132 
    if(ncalc != nb) {/* error input */
133 
	if(ncalc == -1)
 133 
	if(ncalc == -1)
134 
	    return ML_POSINF;
 134 
	    return ML_POSINF;
135 
	else if(ncalc < -1)
 135 
	else if(ncalc < -1)
136 
	    MATHLIB_WARNING4(_("bessel_y(%g): ncalc (=%ld) != nb (=%ld); alpha=%g. Arg. out of range?\n"),
 136 
	    MATHLIB_WARNING4(_("bessel_y(%g): ncalc (=%d) != nb (=%d); alpha=%g. Arg. out of range?\n"),
137 
			     x, ncalc, nb, alpha);
 137 
			     x, ncalc, nb, alpha);
138 
	else /* ncalc >= 0 */
 138 
	else /* ncalc >= 0 */
139 
	    MATHLIB_WARNING2(_("bessel_y(%g,nu=%g): precision lost in result\n"),
 139 
	    MATHLIB_WARNING2(_("bessel_y(%g,nu=%g): precision lost in result\n"),
140 
			     x, alpha+(double)nb-1);
 140 
			     x, alpha+(double)nb-1);
141 
    }
 141 
    }