####
Lesson topics

####
Demo 8

program demo8
c This program computes in double precision the volume and
c surface area of a ball. The radius is input by the user.
c Note that all numbers, except integer exponents, are
c written with double precision notation. Results are
c printed in a table with write and format statements.
double precision r, vol, surf, pi
parameter (pi = 3.1415926535897932D0)
print *, "What is the radius of the ball ?"
read *, r
vol = (4D0 * pi * r ** 3)/3D0
surf = 4D0 * pi * r * r
print *
write (*,10) "Radius", "Volume", "Surface Area"
10 format (t10,a,t32,a,t57,a)
write (*,20) r, vol, surf
20 format (f20.15,t22,f24.15,t48,f24.15)
end