c TOTALS.DCK c saves accumulated total charges for an ACCOUNT real*4 totalcharges, totalvaxcharges, totalperscharges integer*4 totalusers, totalvaxusers, totalpersusers character*8 totalaccount common /totals/totalcharges,totalusers,totalaccount, 1 totalvaxcharges, totalvaxusers, 1 totalperscharges, totalpersusers