home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / fortran / 4703 < prev    next >
Encoding:
Text File  |  1992-12-14  |  1.7 KB  |  40 lines
  1. Newsgroups: comp.lang.fortran
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!sdd.hp.com!ux1.cso.uiuc.edu!news.cso.uiuc.edu!uimrl7.mrl.uiuc.edu!ercolessi
  3. From: ercolessi@uimrl3.mrl.uiuc.edu (furio ercolessi)
  4. Subject: Re: Need help with named common blocks
  5. References: <jumper.724304615@fritz.catt.ncsu.edu> <1992Dec13.211623.1@slacvx.slac.stanford.edu>
  6. Message-ID: <Bz9xzs.F9n@news.cso.uiuc.edu>
  7. Sender: usenet@news.cso.uiuc.edu (Net Noise owner)
  8. Reply-To: ercolessi@uimrl3.mrl.uiuc.edu (furio ercolessi)
  9. Organization: MRL - UIUC
  10. Distribution: comp
  11. Date: Tue, 15 Dec 1992 00:14:15 GMT
  12. Lines: 26
  13.  
  14. In article <1992Dec13.211623.1@slacvx.slac.stanford.edu>, fairfield@slacvx.slac.stanford.edu
  15. writes:
  16. |>In article <jumper.724304615@fritz.catt.ncsu.edu>, jumper@fritz.catt.ncsu.edu (Michael Lanham)
  17. |>writes:
  18. |>[...]
  19. |>> I have several program src files.  In the file with the BLOCK DATA segment,
  20. |>> the COMMON block is named and shaped as follows:
  21. |>> 
  22. |>>       IMPLICIT INTEGER (A-Z)
  23. |>>       COMMON/SHARE1/TABLE(1770),NOPU(54),FLHS(54),UNUSE0(122),
  24. |>>      -           XLATE(127),KWT1(50),KWT2(50),STACK1(50),STACK2(50),
  25. |>>      -           SYMBOL(8),VALUE(8),UNUSE5(16),CHAR(80),VALUXY(12),
  26. |>>      -           LISTX(61),INTERX(70),SYNTAB(2,26),CHARX(26),TAG(50),
  27. |>>      -           (50)
  28. |>
  29. |> [...]
  30. |>... something like CHAR(80) is most likely declared later to be
  31. |>of type CHARACTER*1 (or BYTE or INTEGER*1 or LOGICAL*1)...  
  32.  
  33. I think that the standard does not allow mixing character and non-character
  34. variables in the same common block. Correct me if I am wrong.
  35. --
  36. Furio Ercolessi
  37. Materials Research Laboratory           |   Intl School for Advanced Studies
  38. Univ. of Illinois at Urbana-Champaign   |   Trieste, Italy
  39. furio@uiuc.edu                          |   furio@sissa.it
  40.