home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / fortran / 4708 < prev    next >
Encoding:
Text File  |  1992-12-14  |  2.5 KB  |  64 lines
  1. Newsgroups: comp.lang.fortran
  2. Path: sparky!uunet!elroy.jpl.nasa.gov!nntp-server.caltech.edu!draco.macsch.com!convex.is.macsch.com!dnl
  3. From: dnl@convex.is.macsch.com (David Lombard)
  4. Subject: Re: Need help with named common blocks
  5. Message-ID: <1992Dec15.011150.25966@draco.macsch.com>
  6. Sender: usenet@draco.macsch.com (Usenet Poster)
  7. Organization: MacNeal-Schwendler Corp.
  8. References: <jumper.724304615@fritz.catt.ncsu.edu> <1992Dec14.145241.16794@e2big.mko.dec.com>
  9. Distribution: comp
  10. Date: Tue, 15 Dec 92 01:11:50 GMT
  11. Lines: 51
  12.  
  13. In article <1992Dec14.145241.16794@e2big.mko.dec.com> lionel@quark.enet.dec.com (Steve Lionel) writes:
  14. >
  15. >In article <jumper.724304615@fritz.catt.ncsu.edu>, 
  16. >jumper@fritz.catt.ncsu.edu (Michael Lanham) writes:
  17. >|>
  18. >|>I have several program src files.  In the file with the BLOCK DATA segment,
  19. >|>the COMMON block is named and shaped as follows:
  20. >|>
  21. >|>      IMPLICIT INTEGER (A-Z)
  22. >|>      COMMON/SHARE1/TABLE(1770),NOPU(54),FLHS(54),UNUSE0(122),
  23. >|>     -           XLATE(127),KWT1(50),KWT2(50),STACK1(50),STACK2(50),
  24. >|>     -           SYMBOL(8),VALUE(8),UNUSE5(16),CHAR(80),VALUXY(12),
  25. >|>     -           LISTX(61),INTERX(70),SYNTAB(2,26),CHARX(26),TAG(50),
  26. >|>     -           (50)
  27. >|>
  28. >|>
  29. >|>
  30. >|>In most of the other modules the common block share1 is entered the same way.
  31. >|>Now I found an additional SHARE1 that is different.
  32. >|>
  33. >|>      COMMON/SHARE1/NSVT(1000),OSVT(1000),
  34. >|>     -             OPND(3),LINE(133),UNUSE3(574),
  35. >|>     -             OUTTAB(50,4),SUPP(100,2),SYMBL(2),UNUSE2(18)
  36. >|>
  37. >|>Is an accurate way of thinking of SHARE1 is the first declaration plus the
  38. >|>second concatenated to the end of the second?  I need to know this so I can
  39. >|>correctly build my union in C to accurately reflect the SHARE1 structure.
  40. >|>
  41. >
  42. >Yep.
  43. >
  44. >    Any common block name _cb_ or an omitted _cb_ for blank common
  45. >    may occur more than once in one or more COMMON statements in
  46. >    a program unit.  The list _nlist_ following each successive
  47. >    appearance of the same common block name is treated as a 
  48. >    continuation of the list for that common block name.
  49. >
  50. >        ANSI X3.9-1978, s8.3.1, p8-4, lines 1-5
  51. >
  52.  
  53. I think he meant that the two commons are in two different modules, in which
  54. case your explanation is in error.
  55.  
  56. Regards,
  57. DNL
  58.  
  59.                  MY_COMMENTS = MY_OPINIONS = NOBODY_ELSES;
  60.  
  61. David N. Lombard    The first thing we do,         The MacNeal-Schwendler Corp
  62. dnl@macsch.com      Let's kill all the lawyers.    815 Colorado Blvd
  63. (213) 259-4911      II Henry VI, IV.ii             Los Angeles, CA  90041
  64.