PROGRAM series
*     add the first 100 terms of a simple series
      IMPLICIT NONE
      DOUBLE PRECISION sum
      INTEGER n
      sum = 0.0D0
      DO n = 1,100
         sum = sum + 1.0D0/DBLE(n)**2
         WRITE(*,*) n,sum
      END DO
      END