Re: [問題] 有關 定址陣列 以及 常用副程式之間的問題
※ 引述《magaiml (祈)》之銘言：
: program yes
: implicit none
: ......
: logical,allocatable:: trans_all(:,:)
: ......
: open(11,file='read_mode_total.txt')
: ......
: read(11,*)total
: allocate(trans_all(1:total,12))
: ......
: call contrast_test(trans_all,test_result)
: ......
: end program ride
: subroutine contrast_test(trans_all,test_result)
: implicit none
: ......
: end
: 請問我該怎樣寫
: 在副程式中
: 也能開啟trans_all
: test_result也是個定址陣列
: 我想在副程式中以某變數來開啟
: 又該如何寫?
: 我試過很多種
: 主副都寫上定址陣列
: 卻無法成功
: 請高手指點
program test_allocate
integer,allocatable :: test(:)
parameter (n=3)
allocate(test(1:n))
do i=1,n
test(i)=i
enddo
print*, '1',test
call sub_test(test,n)
stop
end
subroutine sub_test(test,n)
integer test
dimension test(n)
print*, '2',test
return
end
輸出結果如下
1 1 2 3
2 1 2 3
不知道有沒有解決到你的問題?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.228.150.168
※ 編輯: laa7352 來自: 140.137.32.73 (06/29 10:58)
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
