home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_09_07 / 9n07087a < prev    next >
Text File  |  1991-02-13  |  6KB  |  87 lines
  1.  
  2. #include "float.h"
  3. struct {
  4.     double n[308];
  5.     double p[DBL_MAX_10_EXP + 1];
  6. }      dp10_ = {
  7. /*C the subnormal values are not accepted by all compilers
  8. {     0.,
  9.      1e-323,1e-322,1e-321,1e-320,1e-319,1e-318,1e-317,1e-316,1e-315,
  10.      1e-314,1e-313,1e-312,1e-311,1e-310,1e-309,1e-308, */
  11.     {
  12.         0., 1e-307, 1e-306,
  13.         1e-305, 1e-304, 1e-303, 1e-302, 1e-301, 1e-300, 1e-299, 1e-298, 1e-297,
  14.         1e-296, 1e-295, 1e-294, 1e-293, 1e-292, 1e-291, 1e-290, 1e-289, 1e-288,
  15.         1e-287, 1e-286, 1e-285, 1e-284, 1e-283, 1e-282, 1e-281, 1e-280, 1e-279,
  16.         1e-278, 1e-277, 1e-276, 1e-275, 1e-274, 1e-273, 1e-272, 1e-271, 1e-270,
  17.         1e-269, 1e-268, 1e-267, 1e-266, 1e-265, 1e-264, 1e-263, 1e-262, 1e-261,
  18.         1e-260, 1e-259, 1e-258, 1e-257, 1e-256, 1e-255, 1e-254, 1e-253, 1e-252,
  19.         1e-251, 1e-250, 1e-249, 1e-248, 1e-247, 1e-246, 1e-245, 1e-244, 1e-243,
  20.         1e-242, 1e-241, 1e-240, 1e-239, 1e-238, 1e-237, 1e-236, 1e-235, 1e-234,
  21.         1e-233, 1e-232, 1e-231, 1e-230, 1e-229, 1e-228, 1e-227, 1e-226, 1e-225,
  22.         1e-224, 1e-223, 1e-222, 1e-221, 1e-220, 1e-219, 1e-218, 1e-217, 1e-216,
  23.         1e-215, 1e-214, 1e-213, 1e-212, 1e-211, 1e-210, 1e-209, 1e-208, 1e-207,
  24.         1e-206, 1e-205, 1e-204, 1e-203, 1e-202, 1e-201, 1e-200, 1e-199, 1e-198,
  25.         1e-197, 1e-196, 1e-195, 1e-194, 1e-193, 1e-192, 1e-191, 1e-190, 1e-189,
  26.         1e-188, 1e-187, 1e-186, 1e-185, 1e-184, 1e-183, 1e-182, 1e-181, 1e-180,
  27.         1e-179, 1e-178, 1e-177, 1e-176, 1e-175, 1e-174, 1e-173, 1e-172, 1e-171,
  28.         1e-170, 1e-169, 1e-168, 1e-167, 1e-166, 1e-165, 1e-164, 1e-163, 1e-162,
  29.         1e-161, 1e-160, 1e-159, 1e-158, 1e-157, 1e-156, 1e-155, 1e-154, 1e-153,
  30.         1e-152, 1e-151, 1e-150, 1e-149, 1e-148, 1e-147, 1e-146, 1e-145, 1e-144,
  31.         1e-143, 1e-142, 1e-141, 1e-140, 1e-139, 1e-138, 1e-137, 1e-136, 1e-135,
  32.         1e-134, 1e-133, 1e-132, 1e-131, 1e-130, 1e-129, 1e-128, 1e-127, 1e-126,
  33.         1e-125, 1e-124, 1e-123, 1e-122, 1e-121, 1e-120, 1e-119, 1e-118, 1e-117,
  34.         1e-116, 1e-115, 1e-114, 1e-113, 1e-112, 1e-111, 1e-110, 1e-109, 1e-108,
  35.         1e-107, 1e-106, 1e-105, 1e-104, 1e-103, 1e-102, 1e-101, 1e-100, 1.e-99,
  36.         1.e-98, 1.e-97, 1.e-96, 1.e-95, 1.e-94, 1.e-93, 1.e-92, 1.e-91, 1.e-90,
  37.         1.e-89, 1.e-88, 1.e-87, 1.e-86, 1.e-85, 1.e-84, 1.e-83, 1.e-82, 1.e-81,
  38.         1.e-80, 1.e-79, 1.e-78, 1.e-77, 1.e-76, 1.e-75, 1.e-74, 1.e-73, 1.e-72,
  39.         1.e-71, 1.e-70, 1.e-69, 1.e-68, 1.e-67, 1.e-66, 1.e-65, 1.e-64, 1.e-63,
  40.         1.e-62, 1.e-61, 1.e-60, 1.e-59, 1.e-58, 1.e-57, 1.e-56, 1.e-55, 1.e-54,
  41.         1.e-53, 1.e-52, 1.e-51, 1.e-50, 1.e-49, 1.e-48, 1.e-47, 1.e-46, 1.e-45,
  42.         1.e-44, 1.e-43, 1.e-42, 1.e-41, 1.e-40, 1.e-39, 1.e-38, 1.e-37, 1.e-36,
  43.         1.e-35, 1.e-34, 1.e-33, 1.e-32, 1.e-31, 1.e-30, 1.e-29, 1.e-28, 1.e-27,
  44.         1.e-26, 1.e-25, 1.e-24, 1.e-23, 1.e-22, 1.e-21, 1.e-20, 1.e-19, 1.e-18,
  45.         1.e-17, 1.e-16, 1.e-15, 1.e-14, 1.e-13, 1.e-12, 1.e-11, 1.e-10, 1.e-09,
  46.         1.e-08, 1.e-07, 1.e-06, 1.e-05, 1.e-04, 1.e-03, 1.e-02, 1.e-01
  47.     },
  48.     {
  49.         1.e+00,
  50.         1.e+01, 1.e+02, 1.e+03, 1.e+04, 1.e+05, 1.e+06, 1.e+07, 1.e+08, 1.e+09,
  51.         1.e+10, 1.e+11, 1.e+12, 1.e+13, 1.e+14, 1.e+15, 1.e+16, 1.e+17, 1.e+18,
  52.         1.e+19, 1.e+20, 1.e+21, 1.e+22, 1.e+23, 1.e+24, 1.e+25, 1.e+26, 1.e+27,
  53.         1.e+28, 1.e+29, 1.e+30, 1.e+31, 1.e+32, 1.e+33, 1.e+34, 1.e+35, 1.e+36,
  54.         1.e+37, 1.e+38, 1.e+39, 1.e+40, 1.e+41, 1.e+42, 1.e+43, 1.e+44, 1.e+45,
  55.         1.e+46, 1.e+47, 1.e+48, 1.e+49, 1.e+50, 1.e+51, 1.e+52, 1.e+53, 1.e+54,
  56.         1.e+55, 1.e+56, 1.e+57, 1.e+58, 1.e+59, 1.e+60, 1.e+61, 1.e+62, 1.e+63,
  57.         1.e+64, 1.e+65, 1.e+66, 1.e+67, 1.e+68, 1.e+69, 1.e+70, 1.e+71, 1.e+72,
  58.         1.e+73, 1.e+74, 1.e+75, 1.e+76, 1.e+77, 1.e+78, 1.e+79, 1.e+80, 1.e+81,
  59.         1.e+82, 1.e+83, 1.e+84, 1.e+85, 1.e+86, 1.e+87, 1.e+88, 1.e+89, 1.e+90,
  60.         1.e+91, 1.e+92, 1.e+93, 1.e+94, 1.e+95, 1.e+96, 1.e+97, 1.e+98, 1.e+99,
  61.         1e100, 1e101, 1e102, 1e103, 1e104, 1e105, 1e106, 1e107, 1e108,
  62.         1e109, 1e110, 1e111, 1e112, 1e113, 1e114, 1e115, 1e116, 1e117,
  63.         1e118, 1e119, 1e120, 1e121, 1e122, 1e123, 1e124, 1e125, 1e126,
  64.         1e127, 1e128, 1e129, 1e130, 1e131, 1e132, 1e133, 1e134, 1e135,
  65.         1e136, 1e137, 1e138, 1e139, 1e140, 1e141, 1e142, 1e143, 1e144,
  66.         1e145, 1e146, 1e147, 1e148, 1e149, 1e150, 1e151, 1e152, 1e153,
  67.         1e154, 1e155, 1e156, 1e157, 1e158, 1e159, 1e160, 1e161, 1e162,
  68.         1e163, 1e164, 1e165, 1e166, 1e167, 1e168, 1e169, 1e170, 1e171,
  69.         1e172, 1e173, 1e174, 1e175, 1e176, 1e177, 1e178, 1e179, 1e180,
  70.         1e181, 1e182, 1e183, 1e184, 1e185, 1e186, 1e187, 1e188, 1e189,
  71.         1e190, 1e191, 1e192, 1e193, 1e194, 1e195, 1e196, 1e197, 1e198,
  72.         1e199, 1e200, 1e201, 1e202, 1e203, 1e204, 1e205, 1e206, 1e207,
  73.         1e208, 1e209, 1e210, 1e211, 1e212, 1e213, 1e214, 1e215, 1e216,
  74.         1e217, 1e218, 1e219, 1e220, 1e221, 1e222, 1e223, 1e224, 1e225,
  75.         1e226, 1e227, 1e228, 1e229, 1e230, 1e231, 1e232, 1e233, 1e234,
  76.         1e235, 1e236, 1e237, 1e238, 1e239, 1e240, 1e241, 1e242, 1e243,
  77.         1e244, 1e245, 1e246, 1e247, 1e248, 1e249, 1e250, 1e251, 1e252,
  78.         1e253, 1e254, 1e255, 1e256, 1e257, 1e258, 1e259, 1e260, 1e261,
  79.         1e262, 1e263, 1e264, 1e265, 1e266, 1e267, 1e268, 1e269, 1e270,
  80.         1e271, 1e272, 1e273, 1e274, 1e275, 1e276, 1e277, 1e278, 1e279,
  81.         1e280, 1e281, 1e282, 1e283, 1e284, 1e285, 1e286, 1e287, 1e288,
  82.         1e289, 1e290, 1e291, 1e292, 1e293, 1e294, 1e295, 1e296, 1e297,
  83.         1e298, 1e299, 1e300, 1e301, 1e302, 1e303, 1e304, 1e305, 1e306,
  84.         1e307, 1e308
  85.     }
  86. };
  87.