home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / fortran / 3161 < prev    next >
Encoding:
Internet Message Format  |  1992-08-25  |  1.3 KB
  1. Path: sparky!uunet!stanford.edu!agate!redwood.CS.Berkeley.EDU!jhauser
  2. From: jhauser@redwood.CS.Berkeley.EDU (John Hauser)
  3. Newsgroups: comp.lang.fortran
  4. Subject: Re: Ignoring Least Significant Bit in a Real Compare
  5. Date: 26 Aug 1992 00:06:00 GMT
  6. Organization: University of California at Berkeley
  7. Lines: 20
  8. Distribution: usa
  9. Message-ID: <17eht8INN1o8@agate.berkeley.edu>
  10. References: <1992Aug21.203055.29668@aero.org> <1992Aug24.185047.27463@news.eng.convex.com> <3634@execu.execu.com>
  11. NNTP-Posting-Host: redwood.cs.berkeley.edu
  12.  
  13. In article <3634@execu.execu.com> mike@execu.execu.com (Mike McCants) writes:
  14.  >In article <1992Aug24.185047.27463@news.eng.convex.com> joelw@convex.com (Joel Williamson) writes:
  15.  >>>I am working on a 60-bit CDC machine in Fortran-4.
  16.  >>>      REQ = .FALSE.
  17.  >>>      IF (ABS(X1-X2) .LT. EPS) REQ = .TRUE.
  18.  >
  19.  >>In article <1992Aug21.203055.29668@aero.org> wae@aero.org (William A. Emanuelsen) writes:
  20.  >>try:
  21.  >>    J = I1 .OR. I2
  22.  >                ^^
  23.  >Inclusive or?!
  24.  >Exclusive or [.XOR. or XOR(I1,I2)?] is correct.
  25.  >
  26.  >>    REQ = (J.EQ.1) .OR. (J.EQ.0)
  27.  
  28. Neither is correct.  (Hint:  3 XOR 4 = 7.)
  29.  
  30. ----------------------------------------------------------------------------
  31. Boycott redwood.  Boycott Louisiana-Pacific.  Keep the forests.  YYYYYYYYYYY
  32. John Hauser---jhauser@cs.berkeley.edu  YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY
  33.