我在想
如果你本來就是一個11x11的input data
你可以直接開個11x11的array
直接用簡單的迴圈把值都塞滿
以90/95的語法接下來你就可以直接簡單給值了

REAL*8 array(11,11)

OPEN(UNIT=11,FILE'xxx.txt')

DO J = 1, 11
READ(11,*) (array(I,J),I=1,11)
END DO
這樣就一次都拿到值了
接下來你要怎麼處理應該都簡單了
再把U_A,U_B以及U_1~U_9一起開成一個U(11)的array更開心

以第I行來看
這樣array(I,1)就是U_A , array(I,11)就是U_B , array(I,2~10) 就是U_1~U_9

反正你有第I行可比判別
內部計算就只要利用count來判斷11-I就行
DO I = 1, 11
count = 11 - I
result(I) = 0.0d0

!for UA
result(I) = result(I) + array(I,1)

!for U2~U9
DO J = 2 , count
result(I) = result(I) + REAL(J,KIND=8)*array(I,J)
END DO

!for UB
result(I) = result(I) + array(I,11)
END DO

也就是不要寫開一個一個變數 而是都改由array處理
這樣子也不用麻煩要改讀取format的問題
輸出跟計算也更簡便

希望可以提供你一個方向囉


※ 引述《JiGo (ㄐㄍ)》之銘言：
: ※ 引述《snowanimal (動物先生)》之銘言：
: : １的部分是我要讀的值，並做一點計算
: : 如果我沒搞錯問題，那麼方法該跟下面的方式差不多。
: : 先聲明一點，因為太久沒用fortran，所以我無法保證語法的正確性。
: : do x=LYR,1,-1 (迴圈11次)
: : array(x)=0.0
: : read (,)array(x)
: : enddo
: : 迴圈的變數可以由小變大，也可以由大變小。
: : 所以你就讓他從11格讀到剩下1格就好啦，然後計算的東西就包在迴圈裡面即可。
: : 我不確定是不是百分之百正確，因為太久沒用fortran，所以語法可能有誤。
: 應該這樣說
: 我是用下面的方式去讀值
: 101 READ(Rline,FMT3)U_B,U_A
: 102 READ(Rline,FMT4)U_1,U_2,U_3,U_4,U_5,U_6,U_7,U_8,U_9
: FMT3和FMT4會隨迴圈數變化
: 先讀最外面的兩個值
: 再讀中間的其他值
: 但是在第二個迴圈的時候U_9因為不在格式中所以會有錯誤
: 第三個圈時U_8和U_9亦然
: 因此造成程式停擺
: 所以想問說在102行後面讀取值的編號與個數
: 要怎麼用成可以隨迴圈數改變
: 因為每個值都會用來計算
: 所以想對讀取到的每個值做編號
: 隨後可能就是利用 U_A+2*U_1+3*U_2+.......+n*U_B 之類的計算

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.137.135.74