home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / fortran / 4790 < prev    next >
Encoding:
Internet Message Format  |  1992-12-17  |  1.2 KB
  1. Path: sparky!uunet!spool.mu.edu!agate!agate.berkeley.edu!dodd
  2. From: dodd@mycenae.cchem.berkeley.edu (Lawrence R. Dodd)
  3. Newsgroups: comp.lang.fortran
  4. Subject: Re: Uglifier (was Re: Real Programmers)
  5. Date: 17 Dec 92 04:20:04
  6. Organization: Dept of Chemical Engineering, Polytechnic Univ, NY, USA
  7. Lines: 21
  8. Message-ID: <DODD.92Dec17042004@mycenae.cchem.berkeley.edu>
  9. References: <1992Dec16.164347.21210@craycos.com>
  10.     <1992Dec17.102911.8075@newssrv.edvz.univie.ac.at>
  11. NNTP-Posting-Host: mycenae.cchem.berkeley.edu
  12. In-reply-to: pm@cc.univie.ac.at's message of Thu, 17 Dec 1992 10:29:11 GMT
  13.  
  14. >>>>> "Peter" == Peter Marksteiner <pm@cc.univie.ac.at> writes:
  15.  
  16.   Peter> Here's my favourite ugly program (uglified by hand, not by an automatic
  17.   Peter> uglifier).
  18.  
  19.                [much ugly code deleted]
  20.  
  21.   Peter> C  ... CALCULATE STARTING VALUES
  22.   Peter> C
  23.   Peter>       DO 10 I=Z-NDIF
  24.   Peter>          C1 = 1.D0
  25.   Peter> C        OOO0O(I)=SQRT(PI)*(I+1)/X(N)
  26.   Peter> C        CALL REPLSR(OOO0O,O0OOO,NDIF,O,O0O0,OOO0O,C1)
  27.   Peter>    10 CONTINUE        
  28.   Peter>       IF(DABS(O).LT.1.E-15.AND.Z.GT.0.5) THEN
  29.   Peter>           C=137.542
  30.   Peter>           OOO0O=C
  31.   Peter>      END IF
  32.  
  33. get rid of those indents. It makes it too easy to read.  Every should start at
  34. column 7.
  35.