作者gazzy (SC)
看板Fortran
标题Re: [问题] 定址阵列 如何放到共用区内?
时间Tue Sep 8 11:01:46 2009
※ 引述《magaiml (祈)》之铭言：
: 是这样的
: 小弟有一个定址阵列
: 也就是可变阵列
: 想放在共用区内
: 该如何写?
: 因为我想让某些副程式
: 不用再自行读一次就可以使用阵列
: 还是说共用区无法放可变阵列?
: 那还有甚麽方法可以解决?
: 就是一组可变阵列要再副程式间穿梭!
是指这样吗？
============================================
1 program test
2 implicit none
3 real(8),allocatable:: a(:)
4 integer::n
5 n=3
6 allocate(a(n))
7 a=(/0.,0.,1./)
8
9 call haha(a,n)
10
11 end program
12 subroutine haha(a,n)
13 implicit none
14 integer::n
15 real(8)::a(n)
16 write(*,*)a
17 return
18 end subroutine haha
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.114.82.114