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