C     ********************************
C     ** Y=3*X*Xを0から1まで積分する**
C     **                            **
C     ** 区分求積法                 **
C     **                            **
C     ********************************
C
C
      H=0.001
      X=0.0
      S=0.0
C
      DO 100 L=1,1000
C
         X=X+H
         S=S+3.0*X*X*H
C
  100 CONTINUE
C
      WRITE(6,600) S
  600 FORMAT(' I=',F6.3)
C
C
      STOP
      END