home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / fortran / 4691 < prev    next >
Encoding:
Text File  |  1992-12-14  |  2.2 KB  |  57 lines
  1. Newsgroups: comp.lang.fortran
  2. Path: sparky!uunet!cis.ohio-state.edu!zaphod.mps.ohio-state.edu!caen!deccrl!news.crl.dec.com!dbased.nuo.dec.com!e2big.mko.dec.com!quark.enet.dec.com!lionel
  3. From: lionel@quark.enet.dec.com (Steve Lionel)
  4. Subject: Re: Need help with named common blocks
  5. Message-ID: <1992Dec14.145241.16794@e2big.mko.dec.com>
  6. Lines: 43
  7. Sender: usenet@e2big.mko.dec.com (Mr. USENET)
  8. Reply-To: lionel@quark.enet.dec.com (Steve Lionel)
  9. Organization: Digital Equipment Corporation, Nashua NH
  10. References:  <jumper.724304615@fritz.catt.ncsu.edu>
  11. Distribution: comp
  12. Date: Mon, 14 Dec 1992 14:52:41 GMT
  13.  
  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. Steve Lionel                    lionel@quark.enet.dec.com
  53. SDT Languages Group
  54. Digital Equipment Corporation
  55. 110 Spit Brook Road
  56. Nashua, NH 03062
  57.