!-----  Ex5_1: Square Sum from 1 to 100   -----
      INTEGER :: n, sum = 0
      DO n  = 1, 100
         sum = sum + n*n
      END DO
      PRINT*, sum
      END