home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / fortran / 4384 < prev    next >
Encoding:
Text File  |  1992-11-20  |  2.0 KB  |  49 lines
  1. Newsgroups: comp.lang.fortran
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!uwm.edu!linac!unixhub!slacvx.slac.stanford.edu!fairfield
  3. From: fairfield@slacvx.slac.stanford.edu
  4. Subject: Re: passing a string constant to a subroutine
  5. Message-ID: <1992Nov19.192855.1@slacvx.slac.stanford.edu>
  6. Lines: 37
  7. Sender: news@unixhub.SLAC.Stanford.EDU
  8. Organization: Stanford Linear Accelerator Center
  9. References: <EJH.92Nov19160031@khonshu.colorado.edu>
  10. Date: Fri, 20 Nov 1992 03:28:55 GMT
  11.  
  12. In article <EJH.92Nov19160031@khonshu.colorado.edu>, ejh@khonshu.colorado.edu (Edward J. Hartnett) writes:
  13. > When I want to pass a string constant to a subroutine, what size do I
  14. > declare the character variable to be in the subprogram. For example
  15. > I have a subroutine:
  16. > 
  17. >       subroutine ask_data_type(prog, typenum)
  18. > 
  19. > This is intended to be called from one of several programs, and the
  20. > program name is to be passed in as the first parameter. Inside the
  21. > subroutine I have:
  22. >       character*20 prog
  23.  
  24. [description of incorrect execution, etc., deleted]
  25.  
  26.     Within your subroutine, declare PROG so:
  27.  
  28.     CHARACTER*(*) PROG
  29.  
  30. This is called a "passed-length character argument".  If ASK_DATA_TYPE 
  31. needs to know the length of PROG, use LEN(PROG).  This is all standard 
  32. Fortran 77.
  33.  
  34.  > But I'm just wondering if what I did was non-standard or what.
  35.  
  36.     Not non-standard, just a "programming error" ;-)  That is, you called
  37. ASK_DATA_TYPE with an actual argument that didn't match the declaration 
  38. of the dummy argument within ASK_DATA_TYPE.  The same kind of thing would
  39. happen if the subroutine declared one of its dummy arguments to be
  40. DOUBLE PRECISION but you called it with a REAL...
  41.  
  42.     Cheers, Ken
  43. -- 
  44.  Dr. Kenneth H. Fairfield    |  Internet: Fairfield@Slac.Stanford.Edu
  45.  SLAC, P.O.Box 4349, MS 98   |  DECnet:   45537::FAIRFIELD (45537=SLACVX)
  46.  Stanford, CA   94309        |  BITNET    Fairfield@Slacvx
  47.  ----------------------------------------------------------------------------
  48.  These opinions are mine, not SLAC's, Stanford's, nor the DOE's...
  49.