33 lines
1.2 KiB
C
33 lines
1.2 KiB
C
#include <stdio.h>
|
|
|
|
int main()
|
|
{
|
|
/* Local variables */
|
|
float base, emin, prec, emax, rmin, rmax, t, sfmin;
|
|
extern float slamch_(char *);
|
|
float rnd, eps;
|
|
|
|
eps = slamch_("Epsilon");
|
|
sfmin = slamch_("Safe minimum");
|
|
base = slamch_("Base");
|
|
prec = slamch_("Precision");
|
|
t = slamch_("Number of digits in mantissa");
|
|
rnd = slamch_("Rounding mode");
|
|
emin = slamch_("Minnimum exponent");
|
|
rmin = slamch_("Underflow threshold");
|
|
emax = slamch_("Largest exponent");
|
|
rmax = slamch_("Overflow threshold");
|
|
|
|
printf(" Epsilon = %e\n", eps);
|
|
printf(" Safe minimum = %e\n", sfmin);
|
|
printf(" Base = %.0f\n", base);
|
|
printf(" Precision = %e\n", prec);
|
|
printf(" Number of digits in mantissa = %.0f\n", t);
|
|
printf(" Rounding mode = %.0f\n", rnd);
|
|
printf(" Minimum exponent = %.0f\n", emin);
|
|
printf(" Underflow threshold = %e\n", rmin);
|
|
printf(" Largest exponent = %.0f\n", emax);
|
|
printf(" Overflow threshold = %e\n", rmax);
|
|
printf(" Reciprocal of safe minimum = %e\n", 1./sfmin);
|
|
return 0;
|
|
}
|