※ 引述《JiGo (ㄐㄍ)》之銘言：
: 目前有一筆11x11的資料(二維陣列?)
: 每一個橫行的資料我都會分別做計算所以使用一維陣列去讀值
: 但是我要的資料只有矩陣的一半，對角線是右上到左下
: 如下：
: １　１　１　１　１　１　１　１　１　１　１
: １　１　１　１　１　１　１　１　１　１　０
: １　１　１　１　１　１　１　１　１　０　０
: １　１　１　１　１　１　１　１　０　０　０
: １　１　１　１　１　１　１　０　０　０　０
: １　１　１　１　１　１　０　０　０　０　０
: １　１　１　１　１　０　０　０　０　０　０
: １　１　１　１　０　０　０　０　０　０　０
: １　１　１　０　０　０　０　０　０　０　０
: １　１　０　０　０　０　０　０　０　０　０
: １　０　０　０　０　０　０　０　０　０　０
１的部分是我要讀的值，並做一點計算
如果我沒搞錯問題，那麼方法該跟下面的方式差不多。
先聲明一點，因為太久沒用fortran，所以我無法保證語法的正確性。
do x=LYR,1,-1 (迴圈11次)
array(x)=0.0
read (,)array(x)
enddo
迴圈的變數可以由小變大，也可以由大變小。
所以你就讓他從11格讀到剩下1格就好啦，然後計算的東西就包在迴圈裡面即可。
我不確定是不是百分之百正確，因為太久沒用fortran，所以語法可能有誤。