READ(5,*) N, A, B ! N, A, B を入力する DX = (B - A)/DFLOAT(N) ! DX を定義する SUM = 0.D0 ! SUM を初期化する DO I = 0, N - 1 ! I = 0 から I = N - 1 まで繰り返す X = A + DX*I ! X を定義する SUM = SUM + F(X) ! 関数値を SUM に加えていく END DO S = DX*SUM ! 積分値を計算する WRITE(6,*) 'Integrated value=',S ! 出力する