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