关于模块外的等价声明报错

heuwcy · 发表于 2022-5-26 15:44:30

新手求助，我在模块内定义了一个全局变量fa，然后想在主程序（子程序）中将这个全局变量等价到其他变量，但是这里会报错，因为好像是由于模块定义的变量在外部无法等价，请问有解决方案吗。

kyra · 发表于 2022-5-26 15:58:20

本帖最后由 kyra 于 2022-5-26 16:11 编辑

可以用指针~~
此外，请不要用 EQUIVALENCE 和 common 语句了。
再另外，如果 module 和使用该module的程序单元写在一个源代码文件里。module需要写前面。

[Fortran] 纯文本查看 复制代码

module ccc
  real(8) , target :: fa(20) , test(20)
end module ccc

use ccc
real(8) , pointer :: a(:)
a=>fa

heuwcy · 发表于 2022-5-26 16:14:01

你好十分感谢我这个模块是在其他f文件里粘到这方便截图，另外有关于指针的详细说明吗想了解一下详细的原理和用法

kyra · 发表于 2022-5-26 16:36:28

本帖最后由 kyra 于 2022-5-26 16:38 编辑

http://pan.fcode.cn
《Fortran 90 & 95 Array and Pointer Techniques》

[指针] 关于模块外的等价声明报错