*DECK MAPWR 
      PROC MAPWR; 
*CALL COMMAPWR
