編譯後錯誤訊息:
forrtl: severe (157): Program Exception - access violation
除錯的結果，我認為跟記憶體使用限制有關，但不清楚原因，想請教板上的前輩
下面是我碰到的情形，我用簡單的語法表示
=======================================
程式1 可執行成功
=======================================
real(8) :: A(512,512,512)
A = 1d0
call sub(512,512,512,A)
A = A+A
=======================================
程式2 執行失敗
=======================================
real(8) :: A(512,512,512)
A = 1d0
call sub(511,511,511,A(1:511,1:511,1:511)
A = A+A <

我不知道為何compile 出錯 但是就算成功兩個也是不一樣的啊 懂了 主程式裡宣告了A的大小傳給sub但是sub裡又重新宣告了他的大小 而且大小不一樣所以你要傳遞部份是可以的 但是需要另外寫一個叫BB的大小要跟sub裡宣告的一樣如果你是不想寫死array的大小 那就要用allocatable但是用allocatable的話 就只能用module傳遞事實上這就是為何你去看一堆老程式 老是宣告一個很大的array 然後主副程式都用共一個parameter來宣告大小

我設A(11,11,11)這樣的矩陣大小 兩種方法都可以執行如果設成512 會顯示記憶體不足 所以應該是記憶體不足所造成的問題

sub裡的A陣列記憶體位置應該跟主程式的一樣，所以就……

副程式的矩陣宣告用A(:,:,:)，自動設定維度大小

8*512**3使用記憶體約1G,程式2的方法副程式又再吃1G,你系統如果是32位元就會不夠