*ID WMCTIM3A
*DECLARE TIMER3A
*D TIMER3A.177
          WRITE(6,*) section_name,' action= ',action