home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / fortran / 3063 < prev    next >
Encoding:
Internet Message Format  |  1992-08-17  |  818 b 
  1. Path: sparky!uunet!haven.umd.edu!purdue!yuma!csn!copper!aspen.craycos.com!jrbd
  2. From: jrbd@craycos.com (James Davies)
  3. Newsgroups: comp.lang.fortran
  4. Subject: Re: how to quit on an NaN result?
  5. Message-ID: <1992Aug17.151505.18062@craycos.com>
  6. Date: 17 Aug 92 15:15:05 GMT
  7. References: <1992Aug16.200837.14024@samba.oit.unc.edu> <1992Aug16.221125.19419@ccu1.aukuni.ac.nz>
  8. Organization: Cray Computer Corporation
  9. Lines: 14
  10.  
  11. In article <1992Aug16.221125.19419@ccu1.aukuni.ac.nz> ecmtwhk@ccu1.aukuni.ac.nz (Thomas Koenig) writes:
  12. >Bruce.Scott@bbs.oit.unc.edu (Bruce Scott) writes:
  13. >
  14. >>How can I check forNaN's and quit when one arises.
  15. >
  16. >NaN's are supposed to fail every test, so
  17. >
  18. >      IF ((.NOT.AVAR.GE.0.) .AND. (.NOT.AVAR.LT.0.)) STOP
  19. >
  20. >should do the trick.
  21.  
  22. Would this have the same effect?
  23.  
  24.     IF (AVAR .NE. AVAR) STOP
  25.