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

shrine · 发表于 2017-12-14 10:08:14

本帖最后由 shrine 于 2017-12-14 10:30 编辑

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

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

module global_data
implicit none
Integer , parameter :: QP = Selected_real_kind( 18 )
real(kind=QP),allocatable::h(:),u(:)
Integer , parameter :: ne=100
end module

program main
use global_data
implicit none
integer::NERR
ALLOCATE(h(ne),u(ne),STAT=NERR)
IF(NERR>0)THEN
WRITE(6,*)      'ERROR IN ALLOCATE'
         STOP
ENDIF

call tvdd(h)
call tvdd(u)
DEALLOCATE(h,u)
end

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

pasuka · 发表于 2017-12-14 11:09:21

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

shrine · 发表于 2017-12-14 11:13:00

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

没明白，能写成代码吗

fcode · 发表于 2017-12-14 12:09:55

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

module global_data
  implicit none
  Integer , parameter :: QP = Selected_real_kind( 18 )
  real(kind=QP),allocatable::h(:),u(:)
  Integer , parameter :: ne=100
  
contains
  subroutine tvdd(t) !//把 tvdd 包含在module里，方便使用
    real(kind=QP) :: t(:)
    t=t+1
  endsubroutine
end module

program main
  use global_data
  implicit none
  integer::NERR
  ALLOCATE(h(ne),u(ne),STAT=NERR)
  IF(NERR>0)THEN
    WRITE(6,*)      'ERROR IN ALLOCATE'
    STOP
  ENDIF
  call tvdd(h)
  call tvdd(u)
  DEALLOCATE(h,u)
end

shrine · 发表于 2017-12-14 12:54:24

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

perfect！！
感谢版大

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

水王勋章

元老勋章

热心勋章

美女勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章