All done but the footer.

Cannot find a way to break out of the DO loop controlling the
subroutine calls.