※ 引述《JiGo (ㄐㄍ)》之铭言：
: 目前有一笔11x11的资料(二维阵列?)
: 每一个横行的资料我都会分别做计算所以使用一维阵列去读值
: 但是我要的资料只有矩阵的一半，对角线是右上到左下
: 如下：
: １　１　１　１　１　１　１　１　１　１　１
: １　１　１　１　１　１　１　１　１　１　０
: １　１　１　１　１　１　１　１　１　０　０
: １　１　１　１　１　１　１　１　０　０　０
: １　１　１　１　１　１　１　０　０　０　０
: １　１　１　１　１　１　０　０　０　０　０
: １　１　１　１　１　０　０　０　０　０　０
: １　１　１　１　０　０　０　０　０　０　０
: １　１　１　０　０　０　０　０　０　０　０
: １　１　０　０　０　０　０　０　０　０　０
: １　０　０　０　０　０　０　０　０　０　０
１的部分是我要读的值，并做一点计算
如果我没搞错问题，那么方法该跟下面的方式差不多。
先声明一点，因为太久没用fortran，所以我无法保证语法的正确性。
do x=LYR,1,-1 (循环11次)
array(x)=0.0
read (,)array(x)
enddo
循环的变量可以由小变大，也可以由大变小。
所以你就让他从11格读到剩下1格就好啦，然后计算的东西就包在循环里面即可。
我不确定是不是百分之百正确，因为太久没用fortran，所以语法可能有误。