home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / fortran / 4352 < prev    next >
Encoding:
Internet Message Format  |  1992-11-18  |  889 b 
  1. Path: sparky!uunet!ukma!asuvax!ncar!csn!copper!aspen.craycos.com!jrbd
  2. From: jrbd@craycos.com (James Davies)
  3. Newsgroups: comp.lang.fortran
  4. Subject: Re: How does one return a logical value...???
  5. Message-ID: <1992Nov18.170045.3979@craycos.com>
  6. Date: 18 Nov 92 17:00:45 GMT
  7. References: <BxwrJC.GME@cs.uiuc.edu>
  8. Organization: Cray Computer Corporation
  9. Lines: 15
  10.  
  11. In article <BxwrJC.GME@cs.uiuc.edu> ctaylor@cs.uiuc.edu (Conrad W Taylor) writes:
  12. >
  13. >         I have written a function which returns a logical
  14. >value, CheckActivity(previous, ROWS, COLS), previous is an
  15. >array.  I'm using it like this:
  16. >
  17. >        IF (CheckActivity(previous, ROWS, COLS) .EQ.  .TRUE.) THEN
  18. >          uncontrol = uncontrol + 1
  19. >        ENDIF
  20. >
  21. >My compiler says that I have mixed types when I use .TRUE. .
  22.  
  23. You need to declare the return type of checkactivity in the routine 
  24. that calls it:
  25.     logical checkactivity
  26.