MODULE 中使用动态数组

li913

第一种，子程序和动态数组放在同一模块

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

module m 
integer,allocatable::n(:)
contains 
! 分配
subroutine sub1
allocate(n(3))
end subroutine

! 赋值
subroutine sub2
n=[1,2,3]
end subroutine

! 使用
subroutine sub3
integer i
i=n(2)
print*,i
end subroutine

! 释放
subroutine sub4
deallocate(n)
end subroutine
end module 

program test
use m
call sub1
call sub2
call sub3
call sub4
end 

li913

第二种，子程序和数组不在同一模块

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

module m 
integer,allocatable::n(:)
end module 

program test
call sub1
call sub2
call sub3
call sub4
end 
! 分配
subroutine sub1
use m
allocate(n(3))
end subroutine

! 赋值
subroutine sub2
use m
n=[1,2,3]
end subroutine

! 使用
subroutine sub3
use m
integer i
i=n(2)
print*,i
end subroutine

! 释放
subroutine sub4
use m
deallocate(n)
end subroutine