求助！如何将动态数组用在common公用区中？

jinguangyang

我在"com.f90"声明了一个动态数组，com.f90 内容如下
real,allocatable：：x(：)
common x
主程序如下：
program main
include "com.f90"
read*,i
allocate(x( i ))
do j=1,i
  x(j)=j+1
enddo
end

程序中报错：Error: Conflicting attributes or multiple declaration of name.   [X]
到底是什么缘故？
如果我想在公用区中存储动态数组改如何修改？
请各位高手不吝指点，谢过先！

GWinston

动态数组不能放入公用区中。
建议：

  module com1
  real,allocatable::x(
  endmodule
  
  program main
  use com1
  read(*,*) i
  allocate(x(i))
  do j=1,i
  x(j)=j+1
  enddo
  write(*,*)x
  deallocate(x)
  end

jinguangyang

但是如果我在其他子程序中调用x数组怎么办,如
subroutine  sub
use com1
real y
y=x(1)
print*,y
end
可以吗?

jinguangyang

我想我可能没有说清楚,我是想定义一个上下界变化的数组,根据输入的参数分配单元,然后将该数组能被其他的子程序所调用,因为参数传递太麻烦了,每次都要写一大堆变量名,所以我就想利用公用区.希望大家帮我想出一个好的方法!

GWinston

jinguangyang wrote:
但是如果我在其他子程序中调用x数组怎么办,如
subroutine  sub
use com1
real y
y=x(1)
print*,y
end
可以吗?

  可以，但要保证com1中的x没有被释放掉

iwtry

可以尝试用GWinston 的方法，module可以实现你想的，可以看看彭国伦的书，上面有介绍。

jinguangyang

彭国伦的书我也看过，但是还是有问题，那就是我因为要用数组，在module中的common存放数组不能赋初值，不能用data语句，blockdata好像也不行。

GWinston

有必要在module中用common吗？

hillyuan

Try not using common anymore. It is an old style and hrad to maintenence. Module can do ALL the thing common do but give much better quality. For exampler, explicit interface is much less error-prone, you can include dynamic array in it etc.

jinguangyang

那就请各位高手指点一下如何不用common而使用全局数据吧！最好附上一小段的例程。

GWinston

module com1
  real,allocatable::x(
  endmodule
  
  program main
  use com1
  read(*,*) i
  allocate(x(i))
  call set(i)
  write(*,*)x
  deallocate(x)
  end

  subroutine set(i)
  use com1
  do j=1,i
  x(j)=j+1
  enddo
  end

jinguangyang

太谢谢Gwinston了，我好好吸收一下吧。希望你仍关注这个帖子，如果有问题我还会继续在这里向你请教。！

jinguangyang

谢谢，问题应该解决了吧，谢谢Gwinston，iwtry和hillyyuan。

sunyuyong99

不错，有学了点东西，谢谢了！

jinguangyang

最后在补充一点，最好在公用区中加上save属性，彭国伦书上说这是一种严格的写法，只有这样，在模块中的数据才能成为公用数据，但不加也可以得出正确的运行结果，这应归功于编辑器的扩展属性吧。
这也算给这个帖子画一个句号吧。！

firedragon

GWinston wrote:
module com1
  real,allocatable::x(
  endmodule
  
  program main
  use com1
  read(*,*) i
  allocate(x(i))
  call set(i)
  write(*,*)x
  deallocate(x)
  end

  subroutine set(i)
  use com1
  do j=1,i
  x(j)=j+1
  enddo
  end

试过了，但是compile的时候一直没有输出编译后的结果，并且编译的进程一直在进行，在VF的环境中无法中断，搞不懂为何，请GWinston指教，谢谢！

GWinston

我也编译过，没问题呀！我用比较老的POWERSTATION4.0

jinguangyang

我把我的一个成功的运行程序传上来吧，基本就是按照GWinston所介绍的来写的。在程序中说明了对全局数据的声明，赋值和修改。我用的是CVF6.5。

firedragon

jinguangyang wrote:
我把我的一个成功的运行程序传上来吧，基本就是按照GWinston所介绍的来写的。在程序中说明了对全局数据的声明，赋值和修改。我用的是CVF6.5。

试了一下，成功！
非常感谢！！