home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / fortran / 2831 < prev    next >
Encoding:
Internet Message Format  |  1992-07-25  |  1.0 KB
  1. Path: sparky!uunet!darwin.sura.net!mips!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!eff!snorkelwacker.mit.edu!ai-lab!life.ai.mit.edu!burley
  2. From: burley@albert.gnu.ai.mit.edu (Craig Burley)
  3. Newsgroups: comp.lang.fortran
  4. Subject: Re: why are fortran binaries so large?
  5. Message-ID: <BURLEY.92Jul24221336@albert.gnu.ai.mit.edu>
  6. Date: 25 Jul 92 02:13:36 GMT
  7. References: <dedmunds.711917278@sfu.ca> <BURLEY.92Jul24130228@geech.gnu.ai.mit.edu>
  8. Sender: news@ai.mit.edu
  9. Organization: Free Software Foundation 545 Tech Square Cambridge, MA 02139
  10. Lines: 21
  11. In-reply-to: burley@geech.gnu.ai.mit.edu's message of 24 Jul 92 17:02:28 GMT
  12.  
  13. In article <BURLEY.92Jul24130228@geech.gnu.ai.mit.edu> burley@geech.gnu.ai.mit.edu (Craig Burley) writes:
  14.  
  15.      SUBROUTINE NEXT(N)
  16.      INTEGER N,NEXTN
  17.      LOGICAL FIRST
  18.      DATA FIRST/.TRUE./
  19.      IF (FIRST) NEXTN = 0
  20. ----
  21. Oops, please insert
  22.  
  23.       FIRST = .FALSE.
  24.  
  25. here!
  26. ----
  27.      NEXTN = NEXTN + 1
  28.      N = NEXTN
  29.      END
  30. --
  31.  
  32. James Craig Burley, Software Craftsperson    burley@gnu.ai.mit.edu
  33. Member of the League for Programming Freedom (LPF)
  34.