home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / sys / sgi / 18024 < prev    next >
Encoding:
Text File  |  1992-12-15  |  1.4 KB  |  47 lines
  1. Newsgroups: comp.sys.sgi
  2. Path: sparky!uunet!usc!sdd.hp.com!ncr-sd!crash!photon.photon.com!wmc
  3. From: wmc@photon.com (Bill Cornette)
  4. Subject: f77 compiler bug?
  5. Message-ID: <1992Dec15.001050.5454@photon.com>
  6. Sender: usenet@photon.com (Usenet dummy users)
  7. Organization: Photon Research Associates, Inc.
  8. X-Newsreader: TIN [version 1.1 PL6]
  9. Date: Tue, 15 Dec 1992 00:10:50 GMT
  10. Lines: 35
  11.  
  12.     I seem to have encountered a bug in our f77 compiler.  The following
  13. code:
  14.  
  15.  
  16.       real   tref,temp,xk
  17.       double precision qrot
  18. c
  19.       data   tref /273./, temp /304./, xk /1.50/
  20. c
  21.       qrot=dprod(tref,1./temp)**xk
  22.       print *,qrot
  23. c
  24.       qrot=dprod(tref,1./temp)
  25.       qrot=qrot**xk
  26.       print *,qrot
  27. c
  28.       stop
  29.       end
  30.  
  31. produces the results:
  32.  
  33.  
  34. 0.0000000
  35. 0.85.....  (I don't recall the exact number, but it is the corret one)
  36.  
  37. I don't know of any reason why I can't raise the INTRINSIC function
  38. dprod to a power directly.  Anyone have any comments?
  39. ---------------------------------------------------------------------------
  40. ---------------------------------------------------------------------------
  41. William M. Cornette         Photon Research Associates, Inc.
  42. (619) 455-9741              9393 Towne Centre Drive, Suite 200
  43. FAX (619) 455-0658          San Diego, California  92121
  44. wmc@photon.com
  45. ---------------------------------------------------------------------------
  46. T.A.N.S.T.A.A.F.L.
  47.