- 171 名前：デフォルトの名無しさん mailto:sage [2007/01/12(金) 04:54:06 ]
- REAL*8 FM(6),X(6),H,T,TI,TF
WRITE(*,201)
201 FORMAT(' ',5X,'T',9X,'X',11X,'Y',11X,'U',11X,'V')
OPEN(8,FILE='b:alinda.dat')
CALL ICOND(N,TI,TF,H,X)
DO 20 T=TI,TF,H
WRITE(*,'('' '',F8.1,4F12.7)')T,(X(I),I=1,N)
WRITE(8,'(2F10.5)')X(1),X(2)
CALL RUNGE(N,H,T,X,FM)
DO 30 I=1,N
30 X(I) = X(I) + FM(I)*H
20 CONTINUE
CLOSE(8)
END
上記のプログラムで、理解できないところがありまして。
＞WRITE(*,'('' '',F8.1,4F12.7)')T,(X(I),I=1,N)
ここの括弧内なのですが、[4F12.7]は4回実数を繰り返し表示する、という意味であっているのでしょうか?
あと、Tが何のためにあるのかがわかりません。
|
 |
