      LOGICAL*4 PREM
      COMMON / SAVETRACE / PREM,INUMER0,IVIT0,IVALMAR0,ISO0,ICENTRISO0
     &                   , IX00,IX10,IY00,IY10
