-------------------------------------------------------------------------------
DIMENSION(1:5000) :: VX, VY, VZ
MAXSTP = 5000
DATA KIN / 1/
OPEN(KIN, FILE='MDOUT', STATUS='OLD', ACCESS='SEQUENTIAL' &
,FORM='FORMATTED')
DO I=1,MAXSTP
READ(KIN, *,END=2000) VX(I), VY(I), VZ(I)
ここで各ステップにおける、各原子の 速度 VX(J), VY(J), VZ(J)
J=1,N ( Nは5000) の値を 解析し、ヒストグラムにセットする。
END DO
2000 CLOSE(KIN,
STATUS='KEEP')
-------------------------------------------------------------------------------