On the subject of "COMMON statement", I noticed the following statement
in the latest Working Draft of F2K (5.5.2, page 91):
> C596 (R562) A _variable-name_ or _proc-pointer-name_ shall not be a
> name made accessible by use accociation.
What does it mean?
For example, if I have a module
| MODULE m_FooCommon
| PRIVATE; PUBLIC :: X,Y,Z
| COMMON/Foo/X,Y,Z
| END MODULE m_FooCommon
is it okey in another module to do
| MODULE m_FooUser
| USE m_FooCommon,only : X
| END MODULE m_FooUser
or
| MODULE m_FooUser
| USE m_FooCommon,only : A => X
| END MODULE m_FooUser
?
Both work for me on my current computing environment. However, I did
have occational problems with it using different compilers, sometime
because the _common-block-name_ foo was not made PUBLIC (alghouth it is
illegal with other compilers). It suddenly occurs to me that this form
might not conform with the standard.
All the best,
Jing
--
________________________________ _-__-_-_ _-___---
Jing Guo, [log in to unmask], (301)614-6172(o), (301)614-6297(fx)
Data Assimilation Office, Code 910.3, NASA/GSFC, Greenbelt, MD 20771
|