我在想 如果你本来就是一个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