c  From: "COMPUTATIONAL PHYSICS, 2nd Ed" 
c  by RH Landau, MJ Paez, and CC Bordeianu 
c  Copyright Wiley-VCH, 2007.
c  Electronic Materials copyright: R Landau, Oregon State Univ, 2007;
c  MJ Paez, Univ Antioquia, 2007; and CC Bordeianu, Univ Bucharest, 2007.
c  Support by National Science Foundation                              
c     
c  over.f: determine overflow and underflow limits  

      Program overflow
			
        Implicit none 
        Integer I, N
        Real*8 under, over
c                                              number of iterations N
        N = 1024
c                                                  set initial values
        under = 1
        over = 1
c                                          calculate, print to screen
        Do 15, I = 1, N
          under = under / 2
          over = over * 2
          Write (*, *) I, over, under
 15     Continue   
        Stop 'over'
      End