home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / fortran / 3293 < prev    next >
Encoding:
Internet Message Format  |  1992-08-30  |  2.1 KB
  1. Xref: sparky comp.lang.fortran:3293 comp.unix.cray:257
  2. Path: sparky!uunet!crdgw1!uakari.primate.wisc.edu!sdd.hp.com!ux1.cso.uiuc.edu!news.cso.uiuc.edu!uxa.cso.uiuc.edu!dslg0849
  3. From: d-lewart@uiuc.edu (Daniel S. Lewart)
  4. Newsgroups: comp.lang.fortran,comp.unix.cray
  5. Subject: Re: CRAY-YMP single precision machine constants.
  6. Message-ID: <Btu8Kr.7KH@news.cso.uiuc.edu>
  7. Date: 31 Aug 92 07:53:13 GMT
  8. References: <1992Aug27.160828.18574@tamsun.tamu.edu>
  9. Sender: usenet@news.cso.uiuc.edu (Net Noise owner)
  10. Reply-To: d-lewart@uiuc.edu (Daniel S. Lewart)
  11. Organization: University of Illinois at Urbana
  12. Lines: 37
  13. Originator: dslg0849@uxa.cso.uiuc.edu
  14.  
  15. ssp2537@tamsun.tamu.edu (Satya Srinivas Padavala) writes:
  16.  
  17. >      I am wondering if any knowledgeable soul could help me with the following
  18. > problem. I have been using in my code, BLAS (Basic Linear Algebra Subprograms),
  19. > which are routines called by public domain math packages such as LINPACK,
  20. > EISPACK etc. I have recently started working on a CRAY-YMP and am need of the
  21. > following machine constants for single precision for that machine.
  22.  
  23. >  1) Smallest positive magintude
  24. >  2) Largest positive magnitude
  25. >  3) Smallest relative spacing
  26. >  4) Largest relative spacing
  27. -------------------------------------------------------------------------------
  28. *
  29. *
  30. *
  31. *     Print machine constants, by Daniel S. Lewart (d-lewart@uiuc.edu).
  32. *
  33.       print 200, r1mach(1)
  34.       print 210, r1mach(2)
  35.       print 220, r1mach(3)
  36.       print 230, r1mach(4)
  37.  
  38. 200   format ( 'Smallest positive magnitude =', 1p, e17.9 )
  39. 210   format ( 'Largest positive magnitude  =', 1p, e17.9 )
  40. 220   format ( 'Smallest relative spacing   =', 1p, e16.9 )
  41. 230   format ( 'Largest relative spacing    =', 1p, e16.9 )
  42.  
  43.       end
  44. -------------------------------------------------------------------------------
  45. Smallest positive magnitude = 3.667207735-2466
  46. Largest positive magnitude  = 2.726870339+2465
  47. Smallest relative spacing   = 7.105427358E-15
  48. Largest relative spacing    = 1.421085472E-14
  49. -------------------------------------------------------------------------------
  50. Daniel Lewart
  51. d-lewart@uiuc.edu
  52.