C     ****************************
C     ** SAMPLE PROGRAM OF SUM  **
C     **                        **
C     **                        **
C     **                        **
C     ****************************
C
C
      H=0.001
      X=0.0
C
      DO 100 L=1,1000
C
         X=X+H
C
  100 CONTINUE
C
      WRITE(6,600) X
  600 FORMAT(' SUM=',F6.3)
C
C
      STOP
      END