program series
      real term, total
      integer n
      total=0.0
      term=1.0
      n=1.0
      dowhile(term .gt. 0.01)
         total=total+(-1**(n+1))*term
         n=n+1
         term=1/float(n) 
         print*,term 
      enddo
      print*,'total is',total,' after ',(n-1),' terms'
      end