请问这种子程序的参数该怎么设计

shrine

主程序里动态分配了几个数组，要向子程序传递这几个数组，每次传的都不一样，这几个数组已经放到一个global-data的模块里，子程序可以直接use

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

查看代码

打印?

01	module global_data

02	implicit none

03	Integer , parameter :: QP = Selected_real_kind( 18 )

04	real(kind=QP),allocatable::h(:),u(:)

05	Integer , parameter :: ne=100

06	end module

07

08	program main

09	use global_data

10	implicit none

11	integer::NERR

12	ALLOCATE(h(ne),u(ne),STAT=NERR)

13	IF(NERR>0)THEN

14	WRITE(6,*)      'ERROR IN ALLOCATE'

15

STOP

16

ENDIF

17

18	call tvdd(h)

19	call tvdd(u)

20	DEALLOCATE(h,u)

21

end

22

23	subroutine tvdd(t) !这个参数该怎么设置，现在这样写肯定不行，t无法声明，我想把h和u传进来，每次传一个，每次不一样

24	use global_data

25	implicit none

26

t=t+1

27	endsubroutine

pasuka

已经导入global_data模块的情况下，变量h和u对于函数tvdd就是透明公开的，lz为啥画蛇添足？
选择h和u直接select case呗

shrine

pasuka 发表于 2017-12-14 11:09
已经导入global_data模块的情况下，变量h和u对于函数tvdd就是透明公开的，lz为啥画蛇添足？
选择h和u直接se ...

没明白，能写成代码吗

fcode

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

查看代码

打印?

01	module global_data

02	implicit none

03	Integer , parameter :: QP = Selected_real_kind( 18 )

04	real(kind=QP),allocatable::h(:),u(:)

05	Integer , parameter :: ne=100

06

07

contains

08	subroutine tvdd(t) !//把 tvdd 包含在module里，方便使用

09	real(kind=QP) :: t(:)

10

t=t+1

11	endsubroutine

12	end module

13

14	program main

15	use global_data

16	implicit none

17	integer::NERR

18	ALLOCATE(h(ne),u(ne),STAT=NERR)

19	IF(NERR>0)THEN

20	WRITE(6,*)      'ERROR IN ALLOCATE'

21

STOP

22

ENDIF

23	call tvdd(h)

24	call tvdd(u)

25	DEALLOCATE(h,u)

26

end

shrine

fcode 发表于 2017-12-14 12:09
[mw_shl_code=fortran,true]module global_data
  implicit none
  Integer , parameter :: QP = Selected_ ...

perfect！！
感谢版大