home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / fortran / 4690 < prev    next >
Encoding:
Text File  |  1992-12-13  |  1.7 KB  |  46 lines
  1. Newsgroups: comp.lang.fortran
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!caen!uvaarpa!concert!rock!taco!fritz.catt.ncsu.edu!jumper
  3. From: jumper@fritz.catt.ncsu.edu (Michael Lanham)
  4. Subject: Need help with named common blocks
  5. Message-ID: <jumper.724304615@fritz.catt.ncsu.edu>
  6. Sender: news@ncsu.edu (USENET News System)
  7. Organization: North Carolina State University
  8. Distribution: comp
  9. Date: Mon, 14 Dec 1992 03:43:35 GMT
  10. Lines: 34
  11.  
  12. Hi,
  13.  
  14. I need a moderate tutorial on named common blocks. Let me describe what I have
  15. and then you can tell me how to think of it.
  16.  
  17. I have several program src files.  In the file with the BLOCK DATA segment,
  18. the COMMON block is named and shaped as follows:
  19.  
  20.       IMPLICIT INTEGER (A-Z)
  21.       COMMON/SHARE1/TABLE(1770),NOPU(54),FLHS(54),UNUSE0(122),
  22.      -           XLATE(127),KWT1(50),KWT2(50),STACK1(50),STACK2(50),
  23.      -           SYMBOL(8),VALUE(8),UNUSE5(16),CHAR(80),VALUXY(12),
  24.      -           LISTX(61),INTERX(70),SYNTAB(2,26),CHARX(26),TAG(50),
  25.      -           (50)
  26.  
  27.  
  28.  
  29. In most of the other modules the common block share1 is entered the same way.
  30. Now I found an additional SHARE1 that is different.
  31.  
  32.       COMMON/SHARE1/NSVT(1000),OSVT(1000),
  33.      -             OPND(3),LINE(133),UNUSE3(574),
  34.      -             OUTTAB(50,4),SUPP(100,2),SYMBL(2),UNUSE2(18)
  35.  
  36. Is an accurate way of thinking of SHARE1 is the first declaration plus the
  37. second concatenated to the end of the second?  I need to know this so I can
  38. correctly build my union in C to accurately reflect the SHARE1 structure.
  39.  
  40. Please help...
  41.  
  42. He who will not reason, is a bigot; he who cannot is a fool;
  43. and he who dares not is a slave.      --- Sir William Drummond
  44.  
  45. Michael Lanham       mjlanham@eos.ncsu.edu   &  jumper@catt.ncsu.edu
  46.