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