home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / fortran / 4729 < prev    next >
Encoding:
Text File  |  1992-12-15  |  2.4 KB  |  61 lines
  1. Newsgroups: comp.lang.fortran
  2. Path: sparky!uunet!stanford.edu!unixhub!slacvx.slac.stanford.edu!fairfield
  3. From: fairfield@slacvx.slac.stanford.edu
  4. Subject: Re: SUMMARY: CHARACTER FUNCTION as dummy argument
  5. Message-ID: <1992Dec15.111717.1@slacvx.slac.stanford.edu>
  6. Lines: 49
  7. Sender: news@unixhub.SLAC.Stanford.EDU
  8. Organization: Stanford Linear Accelerator Center
  9. References: <BURLEY.92Dec15044825@apple-gunkies.gnu.ai.mit.edu>
  10. Date: Tue, 15 Dec 1992 19:17:17 GMT
  11.  
  12.     A few comments on Craig Burley's summary:
  13.  
  14. In article <BURLEY.92Dec15044825@apple-gunkies.gnu.ai.mit.edu>, burley@apple-gunkies.gnu.ai.mit.edu (Craig Burley) writes:
  15.  
  16. First:
  17. [...]
  18. > If anyone has a system that supports the code in Sample 1 (like VAX/VMS
  19. > FORTRAN), it'd be interesting to see how well it handled the following:
  20. > 
  21. > C Sample 6
  22. >     CHARACTER*(*) CFUNC
  23. >     EXTERNAL CFUNC
  24. >     CALL X (CFUNC)
  25. >     PRINT *, 'Done!'
  26. >     END
  27.  
  28. VAX Fortran rejects this at compile time, to wit (I called the source file
  29. BURLEY.FOR, thus BURLEY$MAIN):
  30.  
  31. 00001       CHARACTER*(*) CFUNC
  32. 00002       EXTERNAL CFUNC
  33. 00003       CALL X (CFUNC)
  34. 00004       PRINT *, 'Done!'
  35. 00005       END
  36. %FORT-F-ADJLENUSE, Passed length character name used in invalid context 
  37.      [CFUNC] in module BURLEY$MAIN 
  38.  
  39. The rest of Sample 6 compiled fine...
  40.  
  41.     I won't comment on whether or not the VAX way of passing character
  42. arguments (functions and/or variables) is efficient or not since someone
  43. like Steve Lionel is in a _much_ better position to answer (although I
  44. do suspect there's no performance hit on VMS because ALL character
  45. entities are passed by [the address of a] descriptor).  However, while I do
  46. appreciate issues of efficiency in Fortran code, CHARACTER manipulations
  47. are one place I think we should "look the other way", so to speak.  These
  48. manipulation most often occur in the user interface, and users are SLOW
  49. DEVICES ;-)  Furthermore, if you DO need efficient character manipulation,
  50. try recoding using the equivalent of Hollerith data: it's MUCH faster to
  51. compare INTEGER variables, even in a loop, than to compare CHARACTER
  52. variables.  (Well, I admit there is likely hardware dependency in this...).
  53.  
  54.     Cheers, Ken
  55. --
  56.  Dr. Kenneth H. Fairfield    |  Internet: Fairfield@Slac.Stanford.Edu
  57.  SLAC, P.O.Box 4349, MS 98   |  DECnet:   45537::FAIRFIELD (45537=SLACVX)
  58.  Stanford, CA   94309        |  BITNET    Fairfield@Slacvx
  59.  ----------------------------------------------------------------------------
  60.  These opinions are mine, not SLAC's, Stanford's, nor the DOE's...
  61.